5

サブで Mousewheel ハンドラを使用してマウスが上下にスクロールするかどうかを判断する方法はありますか? 例えば

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 に答える