Как написать событие прокрутки колеса мыши, когда нажата кнопка (средняя)?

Question

Может ли кто-нибудь помочь мне для достижения этого требования в vb.net ?? Алгоритм:

If middle click pressed AND mouse wheel scroll up 
number ++; 
else 
number--; 

Я попытался это, но он не работает:

If e.Button = MouseButtons.Middle and e.Delta > 0 

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

Answer 1

Вам необходимо обработать несколько событий. Вам нужно захватить событие MouseWheel и события MouseDown/MouseUP.

Private mouseDown As Boolean = False 
Private Sub Form1_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel 
    If e.Delta > 0 And mouseDown Then 
     Console.WriteLine("Scrolling with button down") 
    Else 
     Console.WriteLine("Button Not down whilst scrolling") 
    End If 
End Sub 

Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown 
    If e.Button = MouseButtons.Middle Then 
     mouseDown = True 
    End If 
End Sub 

Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp 
    If e.Button = MouseButtons.Middle Then mouseDown = False 
End Sub 

Напишите персональную переменную, когда средняя мышь опущена, а затем запустите свое условие в обработчике колес.