DoEvents()

[Demonx]

Как использовать?

[moderator]

Код: Выделить всё

Dim lTemp as Long

For lTemp = 1 to 10000
    '// do smth
    DoEvents()
Next


Смысл в чем - система будет обрабатывать и другие системные события. Убери DoEvents из кода выше и запусти - приложение не будет отвечать некоторое время.

Некоторые особо продвинутые личности юзают такое (привет, Гайдар! ):

Код: Выделить всё

Dim lTemp as Long

For lTemp = 1 to 10000
    '// do smth
    DoEvents : DoEvents : DoEvents
Next


[Demonx]

Не, просто когда я пишу DoEvents() то пишет мол эта функция не декларирована. Может нужно что-то подключить?

[moderator]

Так ты без скобок пиши - просто DoEvents

[Demonx]

Скобки сами ставятся
А ответ я нашёл.
Надо было:

Код: Выделить всё

Imports System.Windows.Forms.Application

[Грандж]

%)
application.DoEvents
и подключать ничево не надо %), хотя суть разницы то и нет