Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Counter
Autor: Martoeng (Moderator)
Datum: 04.06.03 13:45
Da gibt es viele Möglichkeiten. Entweder Du nimmst Die Registry oder eine Datei. Registry: Dim uCount As Long uCount = CLng(GetSetting("Dein Programm","Sektion","Counter",0)) uCount = uCount + 1 SaveSetting "Dein Programm","Sektion","Counter",uCount oder Datei: Dim Free As Integer, uCount As Long Free = FreeFile Open "Programmpfad\counter.dat" For Binary As #Free get #Free,1,uCount uCount = uCount + 1 put #Free,1,uCount Close #Free Alles klar? vbarchiv.dll (Freeware), Tutorials uvm. auf http://www.martoeng.com.

Counter	433	Moni-hl	04.06.03 12:49
Re: Counter	309	Martoeng	04.06.03 13:45
Re: Counter	288	Moni-hl	04.06.03 15:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen