5

有什么方法可以确定鼠标是使用鼠标滚轮处理程序向上还是向下滚动吗?例如

Private Sub PictureBox1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel

if mousewheel.scrollup then
        UserZoom = UserZoom + 0.05
        Me.Refresh()
end if


End Sub

我希望能够根据鼠标是向上还是向下滚动来调整 userzoom 的值。任何帮助将不胜感激

4

2 回答 2

21

检查 MouseEventArgs 的 Delta 属性:

示例代码:

Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
    If e.Delta > 0 Then
        Trace.WriteLine("Scrolled up!")
    Else
        Trace.WriteLine("Scrolled down!")
    End If
End Sub
于 2010-03-04T10:14:42.183 回答
0

弄清楚了。

e.delta根据鼠标是向上还是向下滚动传递负值或正值!

于 2010-03-04T10:10:36.107 回答