Syntax
|
DoEvents
|
Description
|
Yields control to other applications.
|
Comments
|
This statement yields control to the operating system, allowing other applications to process mouse, keyboard, and other messages.
If a SendKeys statement is active, this statement waits until all the keys in the queue have been processed.
|
Examples
|
This first example shows a script that takes a long time and hogs the system. The following routine explicitly yields to allow other applications to execute and refresh on a regular basis.
Sub Main()
????Open "test.txt" For Output As #1
????For i = 1 To 10000
????????Print #1,"This is a test of the system and stuff."
????????DoEvents
????Next i
????Close #1
End Sub
|
|
In this second example, the DoEvents statement is used to wait until the queue has been completely flushed.
Sub Main()
????id = Shell("notepad.exe",3)????'Start new instance of Notepad.
????SendKeys "This is a test.",False??'Send some keys.
????oEvents??????????????????????????????????????'Wait for the keys to play back.
End Sub
|
See Also
|
DoEvents (statement).
|