Visual Basic程序设计基础 模块6 鼠标和键盘事件 课件.pptxVIP

模块6 鼠标和键盘事件 目录6.1鼠标事件6.2键盘事件6.3拖放鼠标 知识目标掌握具体的鼠标事件和键盘事件，了解触发这些事件的方法。了解与鼠标拖放有关的属性、事件和方法以及OLE拖放。技能目标能够将具体的鼠标事件、键盘事件运用到编程过程中。 6.1 鼠标事件 6.1 鼠标事件VB共提供了5种鼠标事件，其中单击事件Click和双击事件DblClick在前面已经有所介绍，窗体及大部分控件都可以识别这两种事件。鼠标还有另外3种常用事件：MouseDown事件、MouseUp事件和 MouseMove事件，它们可以被窗体及大部分控件识别。 ?6.1.1 MouseDown事件MouseDown事件指的是用户在某个对象上按下鼠标按键的动作。鼠标上的任意一个按键被按下时都会触发MouseDown事件。6.1 鼠标事件MouseDown事件能够识别出的信息包括：是在哪个对象上发生的动作；被按键是左键、右键还是中间键；按鼠标键时有没有同时按键盘上的Shift键等控制键；动作发生时鼠标指针的位置。MouseDown事件过程的语法格式如下：Private Sub Object_MouseDown（Button As Integer，Shift As Integer，X As Single，Y As Single）…End Sub 其中各参数的说明如下：6.1 鼠标事件（1）参数Button是用来标识事件的产生是通过按下的哪一个鼠标键触发的，它返回一个整数。按下左键时，Button=1；按下右键时，Button=2；按下中间键时，Button=4。（2）Shift参数用来确定键盘上的Shift键、Ctrl键和 Alt键的状态，其返回值是一个整数。在按下鼠标键的同时，如果还按下Shift键，则参数Shift=1；如果按下Ctrl键，则参数Shift=2；如果按下 Alt键，则参数Shift=4。参数Shift的值还可以反映这些键的组合，如同时按下Shift键和 Alt键，则参数Shift=5。 （3）参数X、Y返回鼠标指针当前位置数据，X为横坐标位置，Y为纵坐标位置。例如，下面是一个窗体上的 MouseDown事件过程：Private Sub Form_MouseDown（Button As Integer，Shift As Integer，X As Single，Y As Single）Print您触发了MouseDown事件!End Sub6.1 鼠标事件该事件过程的作用是：如果在窗体上按下鼠标左键或右键，就会在窗体上显示出字符串您触发了 MouseDown事件!。 ?6.1.2 MouseUp事件MouseUp事件指的是用户在某个对象上释放鼠标按键的动作。鼠标上的任意按键被释放时都会触发 MouseUp事件。MouseUp事件是发生在 MouseDown事件之后的，它也可以识别出发生对象、被按键、键盘控制键和鼠标指针位置的信息。6.1 鼠标事件MouseUp事件过程的语法格式如下：Private Sub Object_MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single）…End Sub其中各参数的作用与MouseDown事件过程中的相同。 例如，下面是一个窗体上的 MouseUp事件过程：Private Sub Form_MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single）Print您又触发了MouseUp事件!End Sub6.1 鼠标事件该事件过程的作用是：如果在窗体上释放鼠标按键，就会在窗体上显示出字符串您又触发了MouseUp事件!。其实，当用户按下鼠标按键后没有移动鼠标就又立刻释放鼠标按键时，就触发了Click单击事件。在Click单击事件过程中，先后触发了MouseDown和MouseUp这两个事件。 ?6.1.3 MouseMove事件MouseMove事件是用户移动鼠标指针的操作过程。窗体及控件都可以识别MouseMove事件。当鼠标指针移动在具体对象的边框内部范围时，会触发该对象的MouseMove事件。6.1 鼠标事件MouseMove事件能够识别出的信息包括以下几个：（1）是在哪个对象边框内部移动鼠标指针。（2）是否按了鼠标键（区分左键、右键和中间键）。（3）是否同时按键盘上的Shift键等控制键。（4）动作发生时鼠标指针的位置。 MouseMove的事件过程格式如下：Private SubObject_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）…End