Растолкуйте мне за DoEvents

[Dummiel]

Ребята, по голове только не бейте!

Вижу в прогах DoEvents, а для чего она - толком не знаю. В справочниках пишут, что для передачи процесса операционке. А ЗАЧЕМ?

Пожалуйста, подробнее и на крестьянском уровне, а то я буквы не все знаю, не говоря уж про слова.

[alibek]

Сравни:

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

Private Sub Form_Click
  Dim I As Long
  For I = 1 To 1000
    Caption = I
  Next I
End Sub

и

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

Private Sub Form_Click
  Dim I As Long
  For I = 1 To 1000
    Caption = I
    DoEvents
  Next I
End Sub

[alibek]

А вообще, в правильно написанной проге чаще всего можно обойтись без DoEvents.

[ANDLL]

А вообще, в правильно написанной проге чаще всего можно обойтись без DoEvents

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

В справочниках пишут, что для передачи процесса операционке

Глупость пишут, это можно скзать разве что о SwitchTOThread или о WaitMessage. Но не как ни о DoEvents. То есть это утверждение в корне неправильно.

[Dummiel]

alibek!
Сравнил. И?
Коды отличаются только наличием/остутствием DoEvents
Я же и прошу разъяснить, для чего он там вставлен.

[Antonariy]

Глупость пишут

Это, видимо, автор так пересказал прочитанное, к тому же скорее всего источник был английским

DoEvents passes control to the operating system. Control is returned after the operating system has finished processing the events in its queue and all keys in the SendKeys queue have been sent.

Это не означает, что какой-то контрол передается системе, а то, что операционка прекращает выполнение инструкций твоей проги и переходит к другим в очереди.

Сравнил. И?

Поставь бесконечный цикл и сравни еще раз. 1000 слишком мало.

[uhm]

Не только код сравни, а и результаты его выполнения

[Viper]

вернее процесс выполнения

[ANDLL]

Хм, опять этот неоднозначный комментарий в MSDN

а то, что операционка прекращает выполнение инструкций твоей проги и переходит к другим в очереди.

Ммм. Тут вот не сказано, в какой очереди Как вы думаете?

[Dummiel]

Вон чо!!!
Я в салоне сижу, ща приду - сравню в работе.

[tyomitch]

Глупость пишут

Это, видимо, автор так пересказал прочитанное, к тому же скорее всего источник был английским

DoEvents passes control to the operating system. Control is returned after the operating system has finished processing the events in its queue and all keys in the SendKeys queue have been sent.

Это не означает, что какой-то контрол передается системе, а то, что операционка прекращает выполнение инструкций твоей проги и переходит к другим в очереди.

Видимо, эту часть документации не обновляли со времён Win16

На самом деле, естественно, ОС сама выбирает, когда прекратить выполнение одного процесса и перейти к следующему в очереди. DoEvents на эту передачу управления от одного процесса к другому влияет очень слабо.

То, что на самом деле делает DoEvents -- это обрабатывает сообщения, накопившиеся в очереди. Как бы это объяснить по рабоче-крестьянски?

[Viper]

куда уж рабоче-крестьянскее то? Простыми словами DoEvents дает системе возможность посмотреть на наличие сообщений в очереди и их обработку, а при отсутствии DoEvents система не будет отвлекаться на такие мелочи, как рассматривание очереди сообщений

[ANDLL]

Как бы это объяснить по рабоче-крестьянски?

Когда выполняется-какой то твой код, все формы "блокируются", а DoEvents их "разблокирует". Пойдет?

Простыми словами DoEvents дает системе возможность посмотреть на наличие сообщений в очереди и их обработку

Важно сказать так:

Простыми словами DoEvents дает системе возможность посмотреть на наличие сообщений в очереди текущей программы и их обработку

[Andrey Fedorov]

В справочниках пишут, что для передачи процесса операционке. А ЗАЧЕМ?

Чтобы она могда выполнила то что находится в очереди.

Например, обновить окно твоей программы, обработать нажатие кнопки и прочая, прочая...

[kirrun]

Сравни:

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

Private Sub Form_Click
  Dim I As Long
  For I = 1 To 1000
    Caption = I
  Next I
End Sub

и

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

Private Sub Form_Click
  Dim I As Long
  For I = 1 To 1000
    Caption = I
    DoEvents
  Next I
End Sub

лучше 1000 замени на 10000 и пока он выполняется попробуй свернуть окно

[Dummiel]

Здравствуйте!
Наконец-то дорвался до И-нета.
Спасибо всем, все опробовал, и все понял.
Во всяком случае, тешу себя надеждой