Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to KEEP reading events?
Message
From
12/12/2003 16:23:50
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00858174
Message ID:
00858787
Views:
29
>>This is a SWAG, but maybe you could experiment with DOEVENTS, since you're working with Outlook and not just VFP.
>
>I did get this working. I did the following:
>
>
>...
>
>loSysTray = createobject("mySysTray")
>loSysTray.Tag = "Run"
>
>do while loSysTray.Tag == "Run"
>   read events
>enddo
>
>...
>
>* Proc Of Class Definition for mySysTray
>   PROCEDURE icondblclickevent
>      this.RemoveIconFromSysTray
>      this.Tag = "End"
>      CLEAR EVENTS
>   ENDPROC
>
>
>It works but I'm still not sure why the read events doesn't continue to read the systray events. According to Fox Help, read events is supposed to read events until a clear events is issued. My code never issued the clear events. So the mystery remains but the program works.
>
>BTW, I wasn't quite sure where I'd use the DoEvents ... had the above not worked, I would've at least started toying with that thought. <g>

IIRC I'd have put it exactly where you put CLEAR EVENTS, right after the cleanup code you had in the other version.
Regards. Al

"Violence is the last refuge of the incompetent." -- Isaac Asimov
"Never let your sense of morals prevent you from doing what is right." -- Isaac Asimov

Neither a despot, nor a doormat, be

Every app wants to be a database app when it grows up
Previous
Reply
Map
View

Click here to load this message in the networking platform