Как поймать event вращения колесика мышки?

[BorisSS]

И еще, с событиями MouseDown, MouseUP, ... для объектов, расположенных в Форме, это понятно, а вот есть возможность перехватывать эти события самой Формой или какой-нибудь функцией? Типа KeyPreview=true но для мышки.
Заранее благодарен,
Борис.

[Arcanoid]

в декларации

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

Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (ByRef lpMsg As WinMSG, ByVal hWnd As Long, ByVal uMsgFilterMin As Long, ByVal uMsgFilterMax As Long, ByVal uRemoveMsg As Long) As Long
Declare Function WaitMessage Lib "user32" () As Long

Public Type WinMSG
    hWnd As Long
    uMessage As Long
    wParam As Long
    lParam As Long
    dwTime As Long
    pt As POINT
End Type

Public Const PM_NOREMOVE As Long = 0
Public Const WM_MOUSEWHEEL As Long = &H20A


цикл обработки (я запихивал его в конец Form_Load())

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

Dim msg As WinMSG
While 1
    WaitMessage
    If PeekMessage(msg, hWnd, WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then
        If msg.wParam < 0 Then 'скролл вверх
            Form_MouseWheel 0
        Else
            Form_MouseWheel 1
        End If
    End If
    DoEvents
Wend


и главное не забыть про процедуру обработки. здесь она именуется Form_MouseWheel:

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

Sub Form_MouseWheel(byval nScroll as Long)
...
End Sub


[Arcanoid]

поправочка! вместо PM_NOREMOVE надо объявить:

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

Public Const PM_REMOVE As Long = 1


[Arcanoid]

Так можно перехватывать и другие сообщения окну (для мыши: WM_LBUTTONDOWN, WM_LBUTTONUP, ...)

да, забыл расписать тип POINT:

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

type POINT
  X as Long
  Y as Long
end type


[BorisSS]

Супер!
А подтормаживать While ...PeekMessage... Wend не сильно будет? А то быстродействие в MouseMove ОЧЕНЬ критично для меня.

[Arcanoid]

Ну, это ж АПИ-функции! Если что и будет тормозить, то это скорее всего ВБ!

[sergey-911]

Уважаемые, подскажите плиз, как выйти из функции "PeekMessage", и как заставить ее работать в пределах объекта в форме.
Есть таблица (генератор отчетов F1Book1), не работающая нормально со скроллом.
При клике по ней запускаю процедуру обработки Form_MouseWheel. Скролл начинает работать. При закрытии формы она зависает (исчезает с экрана, но остается в диспетчере задач).
Нужно, чтобы скролл срабатывал только в пределах таблицы, или формы. А при щелчке мышью, к примеру по форме, переставал срабатывать. Как отключить обработку события колесика мыши в данной ситуации, с возможностью дальнейшего включения. И еще, что за константа "WM_MOUSEWHEE".
Надеюсь на вашу поддержку и прошу извинения за ламерский вопрос.

[GSerg]

Мда...
Такого я ещё не видел...
Влезть в message loop и хозяйничать там... гы...

В общем, так...
Берём subclasser из кирпичей.
Сабклассим грид.
Будет приходить WM_MOUSEWHEEL - обрабатываем.

[sergey-911]

Прошу прощение за вторжение.
А можно ли поподробнее? Скрипт, или исходник?
Буду благодарен любой информации.

[GSerg]

Какой скрипт?

Есть раздел с кирпичами. Там есть сабклассер. Никаких скриптов.

[sergey-911]

Извини, но я не знаю ни про раздел с кирпичами, ни про сабклассер. Вот и попросил пример листинг программы. Прокомментируй, если не в лом. Буду благодарен любой информации.

[tyomitch]

Извини, но я не знаю ни про раздел с кирпичами, ни про сабклассер. Вот и попросил пример листинг программы. Прокомментируй, если не в лом. Буду благодарен любой информации.

Нет, во дают
Раздел с кирпичами: http://bbs.vbstreets.ru/viewforum.php?f=28
Сабклассер: http://bbs.vbstreets.ru/viewtopic.php?t=13761

Пожелание админам: перенести раздел с самого низа на самый верх - его не замечают

[sergey-911]

Спасибо за ссылку. Обязательно изучу. Я , конечно стыжусь своей темноты. Но если не стремиться, то и не узнаешь. Спасибо Вам.

[Arcanoid]

sergey-911
Можно попробовать ловить сообщения PeekMessage'ем не для hWnd формы, а хэндлами контролов - дочерних окон.

[sergey-911]

Спасибо за ценный совет.