响应鼠标和键盘事件.pptVIP

第十二章 响应鼠标和键盘事件 12.1 鼠标事件 例12.4 通过编程序，在一个文本框（Text1）中限定只能输入数字、小数点，只能响应BackSpace 键及回车键。 Private Sub Text1_KeyPress (KeyAscii As Integer) Select Case KeyAscii Case 48 to 57,46,8,13 Case Else KeyAscii=0 End Select End Sub 12.2.2 KeyDown 和 KeyUp 事件 * * 本章要求: 1. 理解鼠标、键盘事件的触发机制。 2. 掌握鼠标的MouseDown， MouseMove， MouseUp事件中各参数的含义及编程控制。 3. 掌握键盘的KeyDown， KeyPress， KeyUp 事件中各参数的含义及编程控制 4. 了解事件驱动的拖放和 OLE 的拖放。 大多数控件能够识别鼠标的MouseMove、MouseDown和MouseUp事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化作出响应操作。 MouseMove 每当鼠标指针移动到屏幕新位置时发生 MouseDown 按下任意鼠标键按钮时发生 MouseUp 释放任意鼠标键按钮时发生 12.1.1 鼠标事件过程 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参数是表示按下或松开鼠标哪个按钮， 参数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 键的状态。 例12.1 使用MouseUp 与 MouseDown 和MouseMove 事件，编写一个在窗体上用鼠标绘图的简单程序。 12.1.2 拖 放 （简略介绍，一般不作要求） 在运行时拖动控件，通常情况下并不能自动改变控件位置，这就必须使用Visual Basic的拖放功能，通过编程，才能实现在运行时拖动控件并改变其位置。把按下鼠标按钮并移动控件的操作称为拖动，把释放按钮的操作称为放下。 例12.2 在窗体上放置1个Image控件，1个