part 8鼠标与键盘事件

考点1 KeyPress事件

当按下键盘上的某个键时，即发生KeyPress事件。

在窗体上画一个控件（指可以发生KeyPress事件的控件），并双击该控件，进入程序代码窗口后，从“过程”框中选取KeyPress，即可定义KeyPress事件过程。一般格式为： Private Sub Textl KeyPress（KeyAscii As Integer） End Sub

KeyPress事件带有一个参数，这个参数有两种形式，第1种形式是Index As Integer，只用于控件数组；第2种形式是KeyAscii As Integer，用于单个控件，表示键盘上按下的键的ASCII码。

默认情况下，控件的键盘事件优先于窗体的键盘事件。如果希望窗体先接收键盘事件，必须把窗体的KeyPreview属性设置为true。

8.2 KeyDown和KeyUp事件 考点2 KeyDown和KeyUp事件

Private Sub Textl KeyDown(KeyCode As Integer,Shift as Integer） ‘键盘上的键被按下时触发KeyDown事件 End Sub

Private Sub Textl KeyUp(KeyCode As Integer,Shift as Integer） ‘键盘上的键被弹起时触发KeyUp事件 End Sub

KeyDown和KeyUp事件的参数也有两种形式，其中Index As Integer只用于控件数组，而 KeyCode As Integer，Shift As Integer用于单个控件。

KeyDown和KeyUp事件都有两个参数，即KeyCode和Shift。

（1）KeyCode是按键的实际ASCII码。该码以“键”为准，而不是以“字符”为准。 大写字母和对应的小写字母的KeyCode值相同。如A和a的KeyCode值相同，都是A的ASCII码65。

（2）Shift转换键。它指的是3个转换键的状态，包括Shift，Ctrl和Alt键，这3个键分别以二进制形式表示，每个键有3位，即Shift键为001，Ctrl键为010，Alt键为100。 Shift值 VB常数 0 1 2 3 4 5 6 7

vbShiftMask vbCtrlMask vbShiftMask +vbCtrlMask vbAltMask vbAltMask+ vbAltMask vbCtrlMask+ vbAltMask 含义 Shift，Ctrl和Alt键均未被按下 Shift键被按下 Ctrl键被按下 Shift和Ctrl键被按下 Alt键被按下 Shift和Alt键被按下 Ctrl和Alt键被按下 全部被按下 8.3鼠标事件 考点3 鼠标事件

为了实现鼠标操作，Visual Basic提供了3个过程模板： 1按下鼠标键事件过程

Private Sub Form MouseDown（Button As Integer，Shift As Integer，X As Single，Y As Single） End Sub

2松开鼠标键事件过程

Private Sub Form MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single） End Sub

3移动鼠标光标事件过程

Private Sub Form MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single） End Sub

上述事件过程使用于窗体和大多数控件，包括复选框、命令按钮、单选按钮、框架、文本框、目录框、文件框、图像框、图片框、标签、列表框等。 3个鼠标事件过程具有相同的参数，含义如下：

（1）Button：被按下的鼠标键，可以取3个值。1表示左键，2表示右键，4表示中间键。 （2）Shift：表示Shift， Ctrl和Alt键的状态。 （3）X，Y：鼠标光标的当前位置。

8.4鼠标光标的形状 考点4 MousePointer属性

鼠标光标的形状通过MousePointer属性来设置，该属性可以在属性窗口中设置，也可以在程序代码中设置。

MousePointer的属性是一个整数，可以取0~15之间的数值。当某个对象的MousePointer属性被设置为某个值时，鼠标光标在该对象内就以相应的形状显示。

考点5设置鼠标光标形状

MousePointer属性可以通过代码设置，也可以通过属性窗口没置 1代码中设置MousePointer属性

在程序代码中设置MousePointer属性的一般格式为： 对象．MousePointer＝设置值

2在属性窗口中设置MousePointer属性

单击属性窗口的MousePointer属性条，然后单击设置框右端向下的箭头，将下拉显示MousePointer的16个属性值。如果把MousePointer属性设置为99，则可以通过Mouselcon属性定义自己的鼠标光标。有以下两种方法：

（1）在属性窗口中定义，可首先选择所需要的对象，再把MousePointer属性设置为“99 – Custom”，然后设置MouseIcon属性，把一个图标文件赋给该属性（与设置Picture属性的方法相同）。

（2）如果用程序代码设置，则可先把MousePointer属性值设置为99，然后再用LoadPicture函数把一个图标文件赋给Mouselcon属性。 3鼠标光标形状的使用

在Windows中，鼠标光标的应用有一些约定俗成的规则。为了与Windows环境相适应，在应用程序中应遵守这些规则，主要有：

（1）表示用户当前可用的功能，如“I”，形鼠标光标（属性值3）表示插入文本；十字形状（属性2）表示画线或圆，或者表示选择可视对象以进行复制或存取。

（2）表示程序状态的用户可视线索，如沙漏鼠标（属性值11）表示程序忙，一段时间后将权力交给用户。

（3）当坐标（X，Y）值为0时，改变鼠标光标形状。

8.5拖放

考点6 与拖放有关的属性、事件和方法

1属性

有两个属性与拖放有关，即DragMode和DragIcon。 2事件

与拖放有关的事件是DragDrop和DragOver 3方法

与拖放有关的方法有Move和Drag。其中Move方法已比较熟悉，下面介绍Drag方法。Drag方法的格式为： 控件．Drag整数

不管控件的DragMode属性如何设置，都可以用Drag方法来人工地启动或停止一个拖放过程。“整数”的取值为0，1或2，其含义分别为： 0——取消指定控件拖放：

1——当Drag方法出现在控件的事件过程中时，允许拖放指定的控件。 2——结束控件的拖动，并发出一个DragDrop事件。