SetWindowsHookEx函數爲WM_MOUSEWHEEL

Question

我需要寫在VB.NET代碼示例來捕獲鼠標滾輪滾動事件形式使用具有user32.dll中和WM_MOUSEWHEEL低電平鉤外像通過漢斯帕桑特所述回答我的其他問題：Record mouse Middle button and wheel scroll

這是什麼，我需要做的僞例如：

Dim mousewheel_up as boolean 
Dim mousewheel_down as boolean 

Sub that Overides the windows messages to set the mousewheel booleans 

    If mousewheel_up then msgbox("MouseWheel up") 
    If mousewheel_down then msgbox("MouseWheel down") 

End sub 

UPDATE

試過，但它只能在表單內，也不知如何獲得增量值：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Application.AddMessageFilter(New MouseWheelMessageFilter()) 
    End Sub 

Public Class MouseWheelMessageFilter : Implements IMessageFilter 

    Public Function PreFilterMessage1(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage 

     ' Filter out WM_MOUSEWHEEL messages, which raise the MouseWheel event, 
     ' whenever the Ctrl key is pressed. Otherwise, let them through. 
     Const WM_MOUSEWHEEL As Integer = &H20A 

     'If m.Msg = WM_MOUSEWHEEL & My.Computer.Keyboard.CtrlKeyDown Then 
     If m.Msg = WM_MOUSEWHEEL Then 
      ' Process the message here. 
      If Form.ActiveForm IsNot Nothing Then 
       MsgBox("Mouse scrolled!") 
       ' TODO: Insert your code here to adjust the size of the active form. 
       ' As shown above in the If statement, you can retrieve the form that 
       ' is currently active using the static Form.ActiveForm property. 
       ' ... 
      End If 
      Return True ' swallow this particular message 
     End If 
     Return False ' but let all other messages through 
    End Function 

End Class 

Answer 1

您需要使用SetWindowsHookEx功能，並指定鉤鍵入爲* WH_MOUSE_LL *（14）。有以下聲明。

Public Structure Point 
    Public X As Integer 
    Public Y As Integer 
End Structure 

Public Structure Msllhookstruct 
    Public Location As Point 
    Public MouseData As Integer 
    Public Flags As Integer 
    Public Time As Integer 
    Public ExtraInfo As Integer 
End Structure 

Private Delegate Function HookProc(nCode As Integer, wParam As Integer, ByRef lParam As Msllhookstruct) As Integer 

<DllImport("user32.dll", SetLastError:=True)> _ 
Private Function SetWindowsHookEx(ByVal hookType As Integer, ByVal lpfn As HookProc, ByVal hMod As IntPtr, ByVal dwThreadId As UInteger) As IntPtr 
End Function 

<DllImport("user32.dll")> _ 
Private Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByRef lParam As Msllhookstruct) As IntPtr 
End Function 

Private Hook As IntPtr 

在你的初始化程序，把它作爲跟隨

Hook = SetWindowsHookEx(14, AddressOf Proc, Process.GetCurrentProcess().MainModule.BaseAddress.ToInt32(), 0) 

凡Proc是一個回調函數，像這樣：

Private Function Proc(nCode As Integer, wParam As Integer, ByRef lParam As Msllhookstruct) As IntPtr 
    If wParam = 522 Then 
     Dim Delta = CShort(lParam.MouseData >> 16) 

     If Delta > 0 Then 
      ' Up 
     ElseIf Delta < 0 Then 
      ' Down 
     End If 
    End If 

    Return CallNextHookEx(Hook, nCode, wParam, lParam) 
End Function