VB-PPT教程12.ppt

第十二章 响应鼠标和键盘事件 12.1 鼠标事件 12.2.2 KeyDown 和 KeyUp 事件 * * 本章要求: 1. 理解鼠标、键盘事件的触发机制。 2. 掌握鼠标的MouseDown， MouseMove， MouseUp事件中各参数的含义及编程控制。 3. 掌握键盘的KeyDown， KeyPress， KeyUp 事件中各参数的含义及编程控制 大多数控件能够识别鼠标的MouseMove、MouseDow 和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） 其中： 1．Object是可选的一个对象表达式，可以是窗体对象和大多数可视控件。 2．Button参数是表示按下或松开鼠标哪个按钮。 12.1.1 鼠标事件过程 参数Button值 参数（Button） 值 说明 vbLeftButton 1 左按钮被按下 vbRightButton 2 右按钮被按下 vbMiddleButton 4 中间按钮被按下 参数Shift值 参数（Shift） 值 描述 vbShiftMask 1 SHIFT 键被按下 vbCtrlMask 2 CTRL 键被按下 vbAltMask 4 ALT 键被按下 3．通过Shift参数表示在Button参数指定的按钮被按下或者被松开的情况下键盘的Shift、Ctrl和Alt键的状态。 Ctrl、Shift、Alt三键组合使用情况如表12.1 4. 参数X、Y X, Y鼠标指针的位置，通过X和Y参数返回一个指定鼠标指针当前位置的数，X和Y的值是使用该对象的坐标系统表示鼠标指针当前位置。 注意： 鼠标事件被用来识别和响应各种鼠标状态，并把这些状态看作独立的事件，在按下鼠标按钮并释放时，Click 事件只能把此过程识别为一个单一的单击操作。鼠标事件能够区分各鼠标按钮及键盘的SHIFT、CTRL、ALT 键的状态。 例 使用MouseUp 与 MouseDown 和MouseMove 事件，编写一个在窗体上用鼠标绘图的简单程序。 12.1.2 拖 放 （简略介绍，一般不作要求） 在运行时拖动控件，通常情况下并不能自动改变控件位置，这就必须使用Visual Basic的拖放功能，通过编程，才能实现在运行时拖动控件并改变其位置。把按下鼠标按钮并移动控件的操作称为拖动，把释放按钮的操作称为放下。 12.1.3 OLE 拖放（简略介绍，一般不作要求） Visual Basic支持OLE 拖放，使用这种强大且实用的工具，可以在其他支持 OLE 拖放的应用程序（如 Windows 资源管理器、Word 和 Excel等等）之间、控件之间拖放数据。 12.2 键盘事件 在Visual Basic中，提供KeyPress、KeyDown、KeyUp三种键盘事件，窗体和接受键盘输入的控件都识别这三种事件。 KeyPress 按下对应某ASCII 字符的键。 KeyDown 按下键盘的任意键。 KeyUp 释放键盘的任意键