DoEvents

[Sergey-13]

При использовании функции DoEvents не будет ли дольше выполняться программа?

[skiperski]

Выполняться будет дольше, но приятнее глазу.

[gaidar]

Ндя...

goto MSDN now!

[GM]

Будет.Для маленьких задач почти незаметно, но для больших надо ставить что типа:

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

for i= 1 to 100000
if i mod 1000 then doevents
...
next


или

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

for i= 1 to 100000
if getinputstate > 0 then doevents
...
next


иначе тормоза будут очевидны, а без doevents ваша програма будет не отвечать и тормозить другие программы.

[gaidar]

А вот это неверно. С doevents или без - производительность других программ по сути не страдает.
doevents лишь позволяет вашей программе продолжать работать, реагировать на действия юзера и т.д.

[GM]

Будет.Для маленьких задач почти незаметно, но для больших надо ставить что типа:

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

for i= 1 to 100000
if i mod 1000 then doevents
...
next


или

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

for i= 1 to 100000
if getinputstate > 0 then doevents
...
next


иначе тормоза будут очевидны, а без doevents ваша програма будет не отвечать и тормозить другие программы.

[Q2W]

...даёт возможность проге только реагировать на юзера, то почему прога с DoEvents работает быстрее раз в 10...

[GM]

Не знаю ,но у меня при больших процесах програма з doevents тормозила.Вот например простой код:

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

dim i as long
dim j as long
for i= 1 to 10000000
i= j
doevents
next


Без doevents программа работала быстрее.

[Amed]

Ну да, это нормально...

Можно ещё использовать DoEvents не при каждом проходе большого цикла, скажем вот так:

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

If i \ 10=0 Then DoEvents

или

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

If Rnd*10>9 Then DoEvents

Хотя последний код что-то не очень рационален (не знаю, какой из них быстрее выполняется...)