ヘッダー

VB.NET2002対応 VB.NET2003対応 VB2005対応

 

Visual Basic 中学校 > VB.NET サンプル >

マウスホイールに反応する

VB.NET2002対応 VB.NET2003対応 VB2005対応

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

    If e.Delta > 0
Then
       
MsgBox("上方向にスクロールしました。")
   
Else
       
MsgBox("下方向にスクロールしました。")
    End
If

End Sub