Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
PAUSE in VFP5
Message
 
À
28/09/1998 21:52:47
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00141705
Message ID:
00141833
Vues:
31
>>Bernard,
>>
>>Use a timer.
>Please give me an example in program form as this code runs in a program
>
>Thanks

Bernard,

loTimer = CreateObject("MyTimer")
WITH loTimer
.Interval = 200 && 200 milliseconds
ENDWITH
LOCAL llFired

DO WHILE Whatever
loTimer.Enabled = .T.
DO WHILE NOT llFired
INKEY(.01)
ENDDO
llFired = .F.
* Do your thing
ENDDO

DEFINE CLASS MyTimer AS Timer
PROCEDURE Timer
llFired = .T.
THIS.Enabled = .F.
ENDPROC
ENDDEFINE
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform