鼠标和键盘24例析.ppt

浙江科技学院教信系计算机基础教学网站：www.Goit.Net 目录 12.1 12.2 本章作业 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） 其中： 1．Object是可选的一个对象表达式，可以是窗体对象和大多数可视控件。 2．Button参数是表示按下或松开鼠标哪个按钮。 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 键的状态。 例：如果按住Ctrl，然后在坐标为（2000,3000）的点上按下鼠标器右键，则立即调用过程Object _MouseDown，释放鼠标器右键时调用过程Object _MouseUp，此时四个参数的值分别为2、2、 2000 、2000。 例 1 显示鼠标器指针所指的位置。 分析：用两个文本框显示鼠标器指针所指的位置，它们的名称分别是txtX和txtY。 MouseMove的事件过程如下： 例 2 利用MouseMove事件结合绘图方法，在鼠标移动时画图。 鼠标光标的形状 MousePointer属性 整数，取0～15的值用于设置鼠标指针的形状 例： Text1.MousePointer=2 设置鼠标光标的形状 在程序代码中设置 对象.MousePointer=设置值 在属性窗口中设置 自定义鼠标光标（取值99） 例3 设置鼠标的形状为漏斗形。 当MousePointer属性值被设定成99时