Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Synchronous processing
Message
From
25/01/1999 17:26:19
 
 
To
25/01/1999 12:44:22
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00179839
Message ID:
00180034
Views:
27
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform