文档介绍：第九章事件过程
. 简单鼠标事件
【格式】Private Sub Object_Click()
其中Object为接收事件的对象名。
【格式】Private Sub Object_DblClick()
触发DblClick事件必须在系统规定的双击时间限制内双击鼠标,否则会被认为是两次单击。
注意:对于能识别DblClick事件的对象,在双击时先触发Click事件,再触发DblClick事件;
对于不能识别双击事件的对象则将双击分解为两次单击事件。
. MouseDown、 MouseUp、 MouseMove事件
【功能】: 能够区分和检测出:
1)鼠标左、右、中各个鼠标按钮;
2)鼠标指针的位置;
3)按下鼠标按钮的同时是否按下了SHIFT、CTRL 或 ALT 键。
【格式】:Sub Object_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Sub Object_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Sub Object_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
【说明】:(1) Button参数
中右左
b2
b1
b0
b0为1:按下了左键
b1为1:按下了右键
b2为1:按下了中键
例如:001 101
二进制
十进制
常数
鼠标键状态
001
1
vbLeftButton
按下左键
010
2
vbRightButton
按下右键
100
4
vbMiddleButton
按下中键
011
3
vbLeftButton+vbRightButton
按下左键+右键
101
5
vbMiddleButton+vbLeftButton
按下中键+左键
110
6
vbMiddleButton+vbRightButton
按下中键+右键
111
7
vbMiddleButton+vbLeftButton+
vbRightButton
同时按下三键
Button值与鼠标个键的状态表
注意:MouseDown、 MouseUp事件一次只能识别一个按键,对于多键同时按下或释放,将其解释为多个独立的MouseDown、 MouseUp事件;MouseMove事件中, Button参数表示的是所有鼠标键的当前状态,可用于检测单个或多个按键的状态。
(2) Shift参数
b2
b1
b0
返回一个整数,用于表示在 button 参数指定的按钮被按下或者被释放的同时,是否有 SHIFT、CTRL和 ALT 功能键被按下。某键被按下使得一个二进制位被设置1。
Alt Ctrl Shift b0为1:按下了Shift键
b1为1:按下了Ctrl键
b2为1:按下了Alt键
二进制
十进制
常数
鼠标键状态
001
1
vbShiftMask
按下Shift键
010
2
vbCtrlMask
按下Ctrl键
100
4
vbAltMask
按下Alt键
011
3
vbShiftMask+ vbCtrlMask
按下Shift键+ Ctrl键
101
5
vbAltMask+ vbShiftMask
按下Alt键+ Shift键
110
6
vbAltMask+ vbCtrlMask
按下Alt键+ Ctrl键
111
7
vbAltMask+ vbCtrlMask+ vbShiftMask
同时按下三键
(3) x,y:鼠标的当前位置
返回一个指定鼠标指针当前位置的数。
x 和 y 的值是在接受鼠标事件的对象的坐标系统中描述的。
MouseDown、 MouseUp事件
当按下鼠标按钮时发生 MouseDown 事件;
当释放鼠标按钮时发生MouseUp事件。
Click事件与MouseDown、 MouseUp事件的关系。
由此可见:应尽量避免对同一对象的Click、DblClick、 MouseDown、 MouseUp事件都编写事件过程,以免混乱。
画图程序,按下鼠标左键画园,按下鼠标右键显示该位置的坐标值。
可以用过程调用语句显示调用事件过程,此时如果事件过程包含参数要给出具体参数。例如:
Private mand1_Cl