VB鼠标滚轮事件应用

1、打开VS2012，点击“文件”->“新建”->“项目”

2、选择“已安装”->“模板”->“其他语言”->“Visual Basic”->“Windows”，选择“Windows窗体应用程序”，在下面选择位置，输入项目名称，确认后点击“确定”。

3、进入项目后，切换到窗体设计界面。

4、从工具箱中拖动一个Label控件 到窗体上，名称保持默认，即Label1.

5、双击窗体Form1，进入代码编辑界面，定义一个变量m_scale为Integer类型，在Form1的Load事件中对其进行初始化。

6、点击代码编辑区域上左边的下拉框，选择“Form1事件”，在选择右侧的下拉框，选择MouseWheel即鼠标滚轮事件，软件会自动生成一个事件子过程。

7、向滚轮事件子过程中添加如下代码： I酆璁冻嘌f e.Delta > 0 Then '向前滚动 m_sca造婷用痃le += 1 Else m_scale -= 1 End If Label1.Text = m_scale它的基本功能就是实现滚动鼠标在Label1显示数字，向前数字增加，向后数字减小。

8、运行程序，可以看到向前滚动滚轮数字增加，向后则减小。