文档介绍：1. 理解鼠标、键盘事件的触发机制。
2. 掌握鼠标的MouseDown, MouseMove, MouseUp事件中各参数的含义及编程控制。
3. 掌握键盘的KeyDown, KeyPress, KeyUp 事件中各参数的含义及编程控制
4. 了解事件驱动的拖放和 OLE 的拖放。
本章要求:
第十二章响应鼠标和键盘事件
本章重点:
本章难点:
理解鼠标、键盘事件的触发机制运用
事件驱动的拖放和 OLE 的拖放
鼠标事件
大多数控件能够识别鼠标的MouseMove、MouseDown和MouseUp事件,通过响应这些鼠标事件,能在应用程序对鼠标位置及状态的变化作出响应操作。
MouseMove 每当鼠标指针移动到屏幕新位置时发生
MouseDown 按下任意鼠标键按钮时发生
MouseUp 释放任意鼠标键按钮时发生
鼠标事件过程
MouseMove、MouseDown、MouseUp三个事件的过程的语法格式如下:
Sub Object_MouseMove(Button As Integer,Shift As Integer,_
X As Single,Y As Single)
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)
其中:
,可以是窗体对象和大多数可视控件。
,
鼠标事件
参数Button值
参数(Button) 值说明
vbLeftButton 1 左按钮被按下
vbRightButton 2 右按钮被按下
vbMiddleButton 4 中间按钮被按下
鼠标事件
参数Shift值
参数(Shift) 值描述
vbShiftMask 1 SHIFT 键被按下
vbCtrlMask 2 CTRL 键被按下
vbAltMask 4 ALT 键被按下
、Ctrl和Alt键的状态,
鼠标事件
Ctrl、Shift、
鼠标事件
4. 参数X、Y
X, Y鼠标指针的位置,通过X和Y参数返回一个指定鼠标指针当前位置的数,X和Y的值是使用该对象的坐标系统表示鼠标指针当前位置。
注意:
鼠标事件被用来识别和响应各种鼠标状态,并把这些状态看作独立的事件,在按下鼠标按钮并释放时,Click 事件只能把此过程识别为一个单一的单击操作。鼠标事件能够区分各鼠标按钮及键盘的SHIFT、CTRL、ALT 键的状态。
使用MouseUp 与 MouseDown 和MouseMove 事件,编写一个在窗体上用鼠标绘图的简单程序。
鼠标事件
拖放
(简略介绍,一般不作要求)
在运行时拖动控件,通常情况下并不能自动改变控件位置,这就必须使用Visual Basic的拖放功能,通过编程,才能实现在运行时拖动控件并改变其位置。把按下鼠标按钮并移动控件的操作称为拖动,把释放按钮的操作称为放下。
鼠标事件
在窗体上放置1个Image控件,1个Picture控件,1个Label控件,设计一个如图12-4所示的应用程序,实现对象的拖放功能。
鼠标事件
OLE 拖放
Visual Basic支持OLE 拖放,使用这种强大且实用的工具,可以在其他支持 OLE 拖放的应用程序(如 Windows 资源管理器、Word 和 Excel等等)之间、控件之间拖放数据。
(简略介绍,一般不作要求)
鼠标事件