|
| |
| ||||||||||||||||||
Purpose
Interrupts a currently running subroutine to process pending user input.
Use DoEvents to develop applications that respond to user input while the application loops, and to monitor data or update values on the form.
Syntax
DoEvents (StartTime, EndTime)
Example
Sub Click ()
Dim StartTime as integer
LastTime as integer
Dim IconNumber as integer
Randomize
StartTime = Timer
Do While (Timer < StartTime + 60)
'run loop for 60 seconds
If Timer > LastTime + 1 Then
'every second, run this code
IconNumber = Int ( (9 * Rnd) +1)
'Generate 1 of 9 random icons
DisplayIcon(IconNumber)
End If
DoEvents '**Call DoEvents to process pending input**
Loop
End Sub
| ||