Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Timeout...
Message
De
13/04/2000 17:07:12
 
 
À
13/04/2000 08:59:34
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00359198
Message ID:
00359515
Vues:
10
>Something isn't right here. Sometimes my timers debug out to be disabled or they never get enabled to begin with. Any ideas on the logic or an easier way to achieve the same result?

It would probably be simpler to only use 1 timer, just let it run (I haven't tested this, just typing it out):

define class mytimeout as timer
     name = 'mytimeout'
     interval = 100000
     nLastKey = -1
     nMRow = -1
     nMCol = -1
     procedure timer
          with this          
               if lastkey() = .nLastKey and ;
                    mrow() = .nMRow and mcol() = .nMCol
                    & Start to restart
               else
                    .nLastKey = lastkey()
                    .nMRow = mrow()
                    .nMCol = mcol()
               endif
          endwith
     endproc
enddefine
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform