Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3833150 Thu, 25 Jun 2020 21:58:43 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3833150
Сообщения были разделены в тему "Флуд"]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3286770 Mon, 11 Mar 2013 14:26:18 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3286770 Цитата B.V. @
не совсем корректно. Сообщения для потока будут благополучно теряться

:yes:]]> leo Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3286598 Mon, 11 Mar 2013 11:11:02 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3286598 Цитата leo @
К чему относится это замечание?

К тому, что утверждение
Цитата leo @
цикл обрабатывает все сообщения

не совсем корректно. Сообщения для потока будут благополучно теряться
Цитата MSDN
As a general rule, messages that are not associated with a window cannot be dispatched by the DispatchMessage function. Therefore, if the recipient thread is in a modal loop (as used by MessageBox or DialogBox), the messages will be lost.
]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3285809 Fri, 08 Mar 2013 09:40:45 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3285809 Цитата B.V. @
Не все, а только те, которые адресованы какому-то окну.

"Один пишем, два в уме"? ;)
К чему относится это замечание?
Если в PeekMessage параметр hWnd = NULL (как в #2), то из очереди извлекаются сообщения, адресованные всем окнам потока (в том числе и thread message c hWnd=NULL)]]> leo Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3285384 Thu, 07 Mar 2013 08:36:00 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3285384 B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3284693 Tue, 05 Mar 2013 20:20:04 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3284693 Цитата salieri @
Граждане, объясните, пожалуйста, как физически работает этот цикл

"Физически":
PeekMesage проверяет, есть ли сообщение в очереди, и если есть, то извлекает его (PM_REMOVE).
TranslateMessage анализирует сообщения WM_KEYDOWN на предмет нажатия символьных клавиш и транслирует их в сообщения WM_CHAR (добавляет в очередь).
DspatchMessage вызывает процедуру окна, которому адресовано сообщение.
В итоге этот цикл обрабатывает все сообщения, имеющиеся\накопившиеся в очереди с момента предыдущего вызова]]> leo Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3284461 Tue, 05 Mar 2013 13:49:30 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3284461 salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3281742 Thu, 28 Feb 2013 19:57:13 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3281742 Seriy-Coder, спасибо большое!]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3278156 Fri, 22 Feb 2013 08:56:05 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3278156

На API процентов на 20 быстрее у меня на компе выполняется.
DoeventsAPI.rar (, : 678) ]]> Seriy-Coder Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3276123 Mon, 18 Feb 2013 10:03:15 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3276123 Артур, спасибо!]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3276048 Mon, 18 Feb 2013 06:40:32 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3276048 http://bbs.vbstreets.ru/viewtopic.php?f=1&t=41820

Добавлено
Цитата mamonoff @
А зачем аналог DoEvents? Чем плоха стандартная процедура?
Объясните пожалуйста ни разу не грамотному

По моей ссылке - есть как раз обсуждение этого]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3276041 Mon, 18 Feb 2013 06:35:46 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3276041 mamonoff, я хочу сравнить скорость выполнения команды DoEvents и собственной функции. И так, в принципе, неплохо было бы знать, как это всё устроено!]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3276012 Mon, 18 Feb 2013 02:19:31 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3276012 Объясните пожалуйста ни разу не грамотному :)]]> mamonoff Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275789 Sun, 17 Feb 2013 10:27:57 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275789 Mikle, мне надо, чтобы при обработке сложной продолжительной задачи программа выводила на экран прогресс, например, выполнено 15%, а не повисала.]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275773 Sun, 17 Feb 2013 09:50:52 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275773 Filka, только DoEvents в VB6 - это функция, возвращающая число загруженных форм в проекте.]]> Mikle Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275747 Sun, 17 Feb 2013 07:57:10 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275747 Filka, спасибо, буду пробовать!]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275741 Sun, 17 Feb 2013 07:25:17 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275741
    Private Declare Function TranslateMessage Lib "user32.dll" (ByRef lpMsg As MSG) As Long
    Private Declare Function DispatchMessage Lib "user32.dll" Alias "DispatchMessageA" (ByRef lpMsg As MSG) As Long
    Private Declare Function PeekMessage Lib "user32.dll" Alias "PeekMessageA" (ByRef lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
    Private Const PM_REMOVE As Long = &H1
     
    Private Type POINTAPI
      x As Long
      y As Long
    End Type
     
    Private Type MSG
      hwnd As Long
      message As Long
      wParam As Long
      lParam As Long
      time As Long
      pt As POINTAPI
    End Type
     
    Private Sub MyDoEvents()
      Dim AMsg As Msg
      Do While PeekMessage(AMsg, 0&, 0&, 0&, PM_REMOVE)
        TranslateMessage AMsg
        DispatchMessage AMsg
      Loop
    End Sub
]]> Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275719 Sun, 17 Feb 2013 05:54:31 +0000 Аналог DoEvents на API https://forum.sources.ru/index.php?showtopic=372583&view=findpost&p=3275719 salieri Visual Basic: Общие вопросы