VB鼠标事件

鼠标事件有共有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)
参数的含义及其用法与上面完全相同。

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------------------...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTime 竟然结果和...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的解决方案直接...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,看来我以前没...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, t...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integ...