Есть ли альтернатива DoEvents? - VB
Формулировка задачи:
Есть ли альтернатива DoEvents?
Если да, то какая и как ее можно использовать? Хотя бы пример.
Если да, то какая и как ее можно использовать? Хотя бы пример.
Решение задачи: «Есть ли альтернатива DoEvents?»
textual
Листинг программы
Sub test()
Const N = 3000000
Dim t!, i&
t = Timer
For i = 1 To N
DoEvents
Next
Debug.Print "DoEvents", Timer - t
t = Timer
For i = 1 To N
API_DoEvents
Next
Debug.Print "API_DoEvents", Timer - t
End Sub