Name:WaitHere Funktion:Programm läuft bestimmte Zeit in einer Schleife. Eine Art Pause. Rückgabe:Keine
Benötigte Api: Visual Basic: [code]Private Declare Function GetTickCount Lib "kernel32" () As Long[/code] Visual Basic: [code] Public Sub WaitHere(ByVal Seconds As Long) Dim x1 As Long, x2 As Long x2 = GetTickCount + (Seconds * 1000) Do Until x1 >= x2 x1 = GetTickCount DoEvents Loop End Sub [/code]
Registrieren
Login
