如何在轮子（中）按钮按下时写入鼠标滚轮滚动事件？

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 

当中间鼠标关闭时写入一个私有变量，然后在wheel处理程序中运行您的条件语句。