VB鼠标滚轮事件应用

 时间:2026-02-11 23:08:00

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、向滚轮事件子过程中添加如下代码:

        If e.Delta > 0 Then '向前滚动            m_scale += 1        Else            m_scale -= 1        End If

        Label1.Text = m_scale

它的基本功能就是实现滚动鼠标在Label1显示数字,向前数字增加,向后数字减小。

VB鼠标滚轮事件应用

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

VB鼠标滚轮事件应用

VB鼠标滚轮事件应用

VB鼠标滚轮事件应用

  • excel中多层复杂递进IF条件语句详解
  • Excel中动态图表做法——定义名称法
  • VBA提取当前文件夹内工作表指定单元格值
  • Excel电子表格中怎么插入基本循环
  • Excel如何VBA代码排序?
  • 热门搜索
    酷狗音乐怎么k歌 怎么打架能一人打多人 怎么装路由器 拉斯维加斯旅游 怎么刻录cd 火火兔怎么下载歌曲 如何锻炼胸肌 红枣枸杞泡水喝的功效 ps如何调色 眼部整形哪里最好