kako da postavim counter na formu da mogu da je otvorim samo 10 puta?
[Ovu poruku je menjao jc denton dana 20.07.2002 u 12:13 AM GMT]
[Ovu poruku je menjao jc denton dana 20.07.2002 u 12:13 AM GMT]
Kako da postavim neki counter na formu da mogu da je otvorim samo 10 puta?
Zaključano
Zakačeno
To ogranicenje moras preko nekog fajla u kome se
upisuje koliko je puta program otvoren. Pa kad
se program startuje proveri u tom fajlu koliko je puta startovan,
ako je deset puta, program se iskljucuje.
Mozes takodje koristiti i bazu, mada ako ti to treba za neku
demo verziju bolje je da snimas u fajl i da ga kriptujes.
Poz...
upisuje koliko je puta program otvoren. Pa kad
se program startuje proveri u tom fajlu koliko je puta startovan,
ako je deset puta, program se iskljucuje.
Mozes takodje koristiti i bazu, mada ako ti to treba za neku
demo verziju bolje je da snimas u fajl i da ga kriptujes.
Poz...
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
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