Men, du skal bruge en timer til den funktionalitet, og ikke Sleep. Så undgår du helt problemet. Når du bruger Sleep går eksekveringen af hele dit program i stå, og det kan ikke opdatere skærmen, etc.
Nemmerlig, du skal nok en timer. Prøv nedenstående. Slet din Public declare Sub Sleep. Indsæt følgende:
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Function Sleep(TimeToWait As Long) Dim Start As Long Start = GetTickCount Do DoEvents Loop Until Abs(GetTickCount - Start) > TimeToWait End Function
Jeg skulle selv bruge det, og i stedet for at ændre alle sleep's i mit program, lavede jeg denne funktion og fjernede declare sleep. GetTickCount er antal millisek. siden midnat.
Du har accepteret mit svar, så jeg har fået point. :o)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.