Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Synchronous processing
Message
De
25/01/1999 17:26:19
 
 
À
25/01/1999 12:44:22
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00179839
Message ID:
00180034
Vues:
28
>Hi,
> Thank you for reply...
> I have put the DOEVENT command in my loop....there are still a few problem..
> 1. if the previous statement before doevent is processing, the event will not fired and it appear like semi click (button down but not clicked)...
> 2. how could i exit the loop if the click even for the particular button clicked??


Try something like this...

Have a property in your button or form, or whatever that when the button is clicked will be changed to true... for example...

Button - Click()

this.lCancelNow = .t.

Here would be your loop code...

* get reference to the button

oButton = thisform.whatever.cbmButton

do while loopthatgoesforever
if mdown() and sys(1270) = oButton
doevents
endif
if oButton.lCancelNow = .t.
* clean up loop stuff
exit
endif
enddo

BOb
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform