Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zapisywanie ustawień np. caption
kamil010



Typ: neutral
Postów: 28
Zarejestrowany: Jul 2004
Zapisywanie ustawień np. caption

Chodzi mi o to ze w programie mozna zmieniac wartosc jakiejs zmiennej (mam w programie kilka ustawien np. "liczba pytan" którą mozna zmieniac od 5 do 25 chcialbym zeby przy nastepnym urchomieniu programu, odczytał on jego wartośc w poprzednim urchochmieniu. Tak samo jak zamkne dana forme zeby to pamiętał (umiem operowac bazami danych plikami ale czy jest jakis sprosty sposób funkcja która np. zapisuje do jakiegos pliku w programie Moze nie mam nie wime nie mam pojecia


_____________________________________________
Każdy problem ma rozwiązanie, jeśli nie ma rozwiązania to nie ma problemu

26-03-2005 11:14
Pokaż profil kamil010  Wyślij email do kamil010   Odwiedź stronę kamil010       7447998
kros




Typ: neutral
Postów: 39
Zarejestrowany: Apr 2003

Jeśli umiesz operować na plikach to poptostu zapisz wartość do pliku a podczas uruchamiania programu odczytaj dane z tego pliku.

Private Sub Command1_Click()
  Dim sDane As String
  Dim sPath As String
  Dim iNrPliku As Integer
 
  sDane = Me.Name
  sPath = App.Path & "\Ustawienia.txt"
 
  iNrPliku = FreeFile
  Open sPath For Output As #iNrPliku
      Print #iNrPliku, sDane 'Zapisz do pliku
  Close #iNrPliku
 
  MsgBox "Zapisałem w pliku: " & sDane, vbInformation
End Sub

Private Sub Command2_Click()
  Dim sPath As String
  Dim iNrPliku As Integer
  Dim sDane As String
  Dim iOdp As Integer
 
  sPath = App.Path & "\Ustawienia.txt"
 
  iNrPliku = FreeFile
  Open sPath For Input As #iNrPliku
      'Odczytaj z pliku dane wczesniej zapisane.
      Input #iNrPliku, sDane
  Close #iNrPliku
 
  MsgBox "Odczytałem z pliku: " & sDane, vbInformation
End Sub


_____________________________________________

(Im więcej wiem to wiem, że mało wiem)

26-03-2005 13:38
Pokaż profil kros  Wyślij email do kros   
Jeż



Typ: neutral
Postów: 55
Zarejestrowany: Mar 2004

Mozna to zrobić na conajmniej kilka sposobów.
Poniżej chyba najprostszty:

'Zapis ustawień:
Private Sub Form_Unload(Cancel As Integer)

nrpliku=freefile
Open "MójProgram.ini" as #nrpliku
  Print #nrpliku, LiczbaPytań
  Print #nrpliku, InnaZmienna
  .....
Close #nrpliku   

End Sub

'odczyt ustawień
Private Sub Form_Load()

nrpliku=freefile
Open "MójProgram.ini" as #nrpliku
  Input #nrpliku, LiczbaPytań
  Input #nrpliku, InnaZmienna
  .....
Close #nrpliku   

End Sub

Warunek, żeby nie wyskoczył błąd - zbiór "MójProgram.ini" musi istnieć.
Możesz go utworzyć np. notatnikiem windows i od razu wpisać w nim wartości początkowe(wartość każdej zmiennej w nowej lini).

26-03-2005 13:44
Pokaż profil Jeż  Wyślij email do Jeż   
Jeż



Typ: neutral
Postów: 55
Zarejestrowany: Mar 2004

Do krosa - drugi raz mi się zdarza, że piszę z kimś równolegle.
Do kamila010 - oba przykłady są dobre.

26-03-2005 13:47
Pokaż profil Jeż  Wyślij email do Jeż   
kamil010



Typ: neutral
Postów: 28
Zarejestrowany: Jul 2004
Kamil010

Co ty mówic "Każdy problem ma rozwiązanie, a jeśli nie ma rozwiązania to nie ma problemu" kolejny raz dzięki za odpowiedzi


_____________________________________________
Każdy problem ma rozwiązanie, jeśli nie ma rozwiązania to nie ma problemu

26-03-2005 16:30
Pokaż profil kamil010  Wyślij email do kamil010   Odwiedź stronę kamil010       7447998
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Można jeszcze zapisać w rejestrze systemowym. Polecenie SaveSetting i Get Setting .


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


26-03-2005 18:04
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Można jeszcze zapisać w rejestrze systemowym. Polecenie SaveSetting i GetSetting .


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


26-03-2005 18:04
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1