Функция

DoEvents

Синтаксис

DoEvents( )

Передает управление операционной системе для обработки других событий. Функция DoEvents возвращает значение типа Integer, представляющее число открытых форм в независимо установленных версиях языка Visual Basic. Во всех других приложениях функция DoEvents возвращает нуль.
DoEvents передает управление операционной системе. Управление возвращается после завершения обработки операционной системой всех событий из своей очереди и после передачи всех нажатий клавиш из очереди SendKeys. Если часть программы занимает основное процессорное время, следует периодически использовать функцию DoEvents для отказа от управления в пользу операционной системы, чтобы такие события как ввод с клавиатуры и нажатия кнопок мыши могли быть обработаны без существенной задержки.

Параметры

Функция не имеет никаких параметров.

Замечания

Проверьте, что процедура, в которой имеет место отказ от управления с помощью функции DoEvents, не выполняется вновь из другой части программы до возврата управления после первого вызова DoEvents. Это может привести к непредсказуемым результатам. Кроме того, не следует использовать функцию DoEvents, если другие приложения могут взаимодействовать с данной процедурой непредсказуемым способом во время передачи управления системе.

Пример использования

'в данном примере функция DoEvents используется для передачи
'управления операционной системе каждый раз после выполнения
'1000 итераций цикла. DoEvents возвращает число открытых форм
'Visual Basic, однако только в том случае, если главным приложением
'является Visual Basic.

'создает переменную для хранения числа загруженных и видимых форм Visual Basic.
Dim I, OpenForms
For I = 1 To 150000    'начало цикла.
    If I Mod 1000 = 0 Then     'если цикл выполнен 1000 раз.
        OpenForms = DoEvents    'передает управление операционной системе.
    End If
Next I    'увеличивает счетчик цикла

Дополнительная информация

Категория: Системные функции

Еще функции: Command, CVErr, DoEvents, Environ, Error, GetAllSettings, GetSetting, IMEStatus, Shell

Логин:

Пароль:

Регистрация, забыли пароль?