VB鼠标事件
发布时间:2020-12-17 07:56:44 所属栏目:百科 来源:网络整理
导读:鼠标事件有共有5种: mousedown 按下鼠标 mouseup 放开鼠标 mousemove 移动鼠标光标 click 单击 dblclick 双击 1. Click事件与DblClick事件 双击窗体打开代码窗口,在事件选择框中选择Click、DblClick,则Click事件过程的框架就会出现在代码编辑区中。 窗体
鼠标事件有共有5种:mousedown 按下鼠标mouseup 放开鼠标 mousemove 移动鼠标光标 click 单击 dblclick 双击 1. Click事件与DblClick事件 双击窗体打开代码窗口,在事件选择框中选择Click、DblClick,则Click事件过程的框架就会出现在代码编辑区中。 窗体的Click事件过程的形式: Private Sub Form_Click() End Sub 窗体的DblClick事件过程的形式: Private Sub Formes DblClick() End Sub 在该事件过程中添加一段代码,运行程序时,当使用鼠标单击、双击窗体时,则该段代码就会被执行。 注意:双击鼠标会同时触发Click事件与Db1Click事件,即在程序运行时,当用户双击窗体时,则Click事件过程与Db1Click事件过程都将被执行。 2. MouseDown事件与MouseUp事件 事件过程的形式分别如下: Private Sub Form_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single) End Sub Private Sub Form_MouseUp(Button As Integer,shift As Integer,X As Single,255)">以上都含有四个参数,其中: Button,用来判断用户按下的是鼠标的哪一个键,可取1、2、4三个值,分别代表左键、右键和中间键。 Shift, 用来判断是否开启Shift,Ctrl或Alt键构成组合状态,可取0-7任意整数。 X、Y, 这两个值对应于当前鼠标的位置,采用ScaleMode属性指定的位置。 双击窗体→选择MouseDown事件: 输入响应代码: If Button=1 Then Print"鼠标左键被按下" If Button=2 Then Print"鼠标右键被按下" Print方法是窗体的一个很重要的方法,在很多实例中都使用到了该方法。 实例3.判断Shift,Ctrl或Alt键是否开启 双击窗体→选择MouseDown事件→输入响应代码: If Shift=1 And Button=1 Then Print"同时按下Shift和左键" If Shift=2 And Button=2 Then Print"同时按下Ctrl和右键" If Shift=4 And Button=1 Then Print"同时按下Alt和左键" If Shift=3 And Button=2 Then Print"同时按下Ctrl、Shift和右键" If Shift=5 And Button=1 Then Print"同时按下Shift、Alt和左键" If Shift=6 And Button=2 Then Print"同时按下Alt、Ctrl和右键" If Shift=7 And Button=1 Then Print"同时按下Shift、Ctrl、Alt和左键" 3. MouseMove事件 窗体的MouseMove事件过程的形式: Private Sub Form_MouseMove(Button As Integer,Y As Single) 参数的含义及其用法与上面完全相同。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |