title image


Smiley Re: Endloszähler bauen
Hi!



Du könntest in dein Textfeld '0' reinschreiben, wenn die Form geladen wird:



Private Sub Form_Load()



Text1.text="0"



End Sub



Und die Zahl die in dem Textfeld steht nutzt du dann zum hochzählen:



Private Sub CmdHilfe_Click()



dim lngAnzahlKlicks as long



lngAnzahlKlicks = clng(Text1.text)



lngAnzahlKlicks = lngAnzahlKlicks + 1



Text1.text = cstr(lngAnzahlKlicks)



End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: