title image


Smiley Re: kurz warten ohne Timer
Noch eine Möglichkeit:Declare Function GetTickCount Lib "kernel32" () As LongSub Warte_Sekunden(Tausendstel_Sekunden As Long) Dim Wartezeit As Long Dim StartZeit As Double Dim Jetzt As Double StartZeit = GetTickCount() Wartezeit = 0 While (Wartezeit Jetzt = GetTickCount() Wartezeit = Jetzt - StartZeit WendEnd SubCiaoNorbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: