Функция DoEvents

DoEvents()

Функция передает управление операционной системе для обработки событий и сообщений, ждущих в системной очереди и всех нажатий клавиш из очереди SendKeys. После обработки всех событий управление возвращается приложению(следующий за строкой DoEvents инструкции. Применяется для обеспечения возможности прерывания пользователем какой-нибудь длительной операции, выполняемой программой

Возвращаемое значение

Функция возвращает значение типа Integer, определяющих число открытых форм в Visual Basic, в других приложениях возвращается 0

Пример
' Создание переменной для хранения
' числа загруженных и видимых форм VB
Dim I, OpenForms
For I = 1 To 150000   ' Начало цикла
   If I Mod 1000 = 0 Then    ' Если цикл выполнен 1000 раз
' Передает управление операционной системе
      OpenForms = DoEvents   
   End If
Next I  
Категория
Функции обработки системных параметров