帮你粘贴一下吧:
Control.MouseWheel 事件 [Visual Basic]请参见
Control 类 | Control 成员 | System.Windows.Forms 命名空间 | OnMouseWheel
要求
平台: Windows 98, Windows NT 4.0, Windows Millennium Edition, Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows .NET Server family
语言
C#
C++
JScript
Visual Basic
全部显示
在移动鼠标轮并且控件有焦点时发生。
[Visual Basic]
Public Event MouseWheel As MouseEventHandler
[C#]
public event MouseEventHandler MouseWheel;
[C++]
public: __event MouseEventHandler* MouseWheel;
[JScript] 在 JScript 中,可以处理由某个类定义的事件,但不能定义自己的事件。
to:TheAres(班门斧)
参照http://www.dotnet247.com/247reference/msgs/17/88811.aspx写了如下事件,其中xiansiping是system.windows.forms.panel控件。
Private Sub xiansiping_MouseWheel(ByVal e As System.Windows.Forms.MouseEventArgs)
If (e.Delta > 0) Then
If (xiansiping.Value < xiansiping.Maximum) Then
xiansiping.Value += 1
End If
Else
If (xiansiping.Value > xiansiping.Minimum) Then
xiansiping.Value -= 1
End If
End If
End Sub