VB鼠标滚轮事件应用

时间:2024-10-16 21:34:30

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

VB鼠标滚轮事件应用

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

VB鼠标滚轮事件应用
VB鼠标滚轮事件应用

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

VB鼠标滚轮事件应用

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

VB鼠标滚轮事件应用

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

VB鼠标滚轮事件应用
VB鼠标滚轮事件应用

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

VB鼠标滚轮事件应用
VB鼠标滚轮事件应用

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

VB鼠标滚轮事件应用

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

VB鼠标滚轮事件应用
VB鼠标滚轮事件应用
VB鼠标滚轮事件应用
© 手抄报圈