gio1000 Italia
Član broj: 1159 Poruke: 122 *.98-62.inwind.it
|
Mozes i pomocu Save i GetSettinga upisati u registar.
Stavi jedan TextBox (Text1) i kopiraj ovo:
Private Sub Form_Load()
'Trazi u registru setting nazvan "Count" i vrijednost upisuje u Text1
Text1.Text = GetSetting(App.Title, "Settings", "Count", Text1.Text)
'Na vrijednost dodaje +1 (Na startu u property Text1.Text upisi nulu)
Text1 = Text1 + 1
If Text1 > 9 Then
MsgBox "Ovo je deseti put da me otvaras!"
End If
End Sub
Private Sub Text1_Change()
'Na promjenu u Text1 zapisuje u registar novu vrijednost settinga "Count"
SaveSetting App.Title, "Settings", "Count", Text1.Text
End Sub
|