Visual Basic 23 第二十三课 键盘事件过程

计算机二级VB考点分析之键盘与鼠标事件过程8.1 KeyPress事件考点1 KeyPress事件在窗体上画一个控件(指可以发生KeyPress事件的控件)，并双击该控件，进入程序代码窗口后，从―过程‖框中选取KeyPress，即可定义KeyPress事件过程。

一般格式为：Private Sub Textl KeyPress(KeyAscii As Integer)End SubKeyPress事件带有一个参数，这个参数有两种形式，第1种形式是Index As Integer，只用于控件数组；第2种形式是KeyAscii As Integer，用于单个控件。

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

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

(1)KeyCode是按键的实际ASCII码。

该码以―键‖为准，而不是以―字符‖为准(2)Shift转换键。

它指的是3个转换键的状态，包括Shift，Ctrl和Alt键，这3个键分别以二进制形式表示，每个键有3位，即Shift键为001，Ctrl键为010，Alt键为100。

10.3 鼠标事件考点3 鼠标事件为了实现鼠标操作，Visual Basic提供了3个过程模板：1按下鼠标键事件过程Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)End Sub2松开跳标键事件过程Private Sub Form MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) End Sub3移动鼠标光标事件过程Private Sub Form MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) End Sub上述事件过程使用于窗体和大多数控件，包括复选框、命令按钮、单选按钮、框架、文本框、目录框、文件框、图像框、图片框、标签、列表框等。

KeyUp 和 KeyPress）之前激活窗体的键盘事件。其语法为：
-
对象名.KeyPreview [= boolean]
- 其中，Boolean是布尔表达式，指定如何接收事件：当取值为False（缺省值）时，活动控 件接收键盘事件，而窗体不接收；当取值为True时，窗体先接收键盘事件，然后是活动 控件接收事件。

Label1(2).Caption = "你刚才按了功能键：" & "F" & Str(KeyCode - 111)
Label1(2).Visible = True
Else
Label1(2).Visible = False
End If
Check1.Value = IIf((Shift And vbShiftMask) > 0, 1, 0)
Ca ""

Text3.Text = "Ctrl+" & Chr(64 + KeyAscii) & " 或 Esc键"
Case Else

Text3.Text = Chr(KeyAscii)
End Select
If Check1.Value = 0 Then
11
Confidential
11.2 鼠标事件
- 在前面的例子中曾多次使用鼠标事件，即单击（Click）事件和双击（DblClick）事件， 这些事件是通过快速按下并松开鼠标键而产生的。除此之外，VB还可以通过 MouseDown、MouseUp、MouseMove事件使应用程序对鼠标位置及状态的变化作出响 应（其中不包括拖放事件。

MouseDown：鼠标按下时发生旳事件。
MouseUp：鼠标抬起时发生旳事件。
MouseMove：鼠标移动时发生旳事件，对某控
件旳此事件进行编程，则当鼠标移过此控件时就
会触发此事件，执行其相应代码。
21
10.3 响应鼠标事件
鼠标事件旳发生顺序是： (1)首先发生旳是MouseMove事件，当鼠标移动时，
转换键，指旳是三个转换键旳状态，涉及Shift、Ctrl和Alt，这三 个键分别以二进制形式表达，每个键有三位，Shift键为001，Ctrl 键为010，Alt键为100； 例P255 例10.2 例10.3
18
习题
3. 在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Private Sub Text1_KeyDown (KeyCode As Integer ,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub
经过该参数判断顾客是否按下了Shift、Ctrl或Alt键。例如： If Shift = vbShiftMask Then If Shift = vbCtrlMask Then If Shift = vbAlttMask Then If (Shift = vbAltMask) And (Key Code= VbKeyA) Then
阐明：在键盘上按下一种键总是会触发KeyDown事件、KeyUp事件和KeyPress 事件。
19
习题
4. 在窗体上画1个命令按钮和1个文本框，其名称分别为 Command1和Text1，然后编写如下代码：

键盘与鼠标事件过程（上机指导）教学要求：掌握键盘事件KeyPress、KeyDown、KeyUp的基本方法；掌握鼠标事件MouseDown、MouseUp、MouseMove的基本方法；能利用键盘事件、鼠标事件进行程序设计。

知识点：各键盘事件的使用方法；各鼠标事件的使用方法。

内容导航：一、键盘事件（一）KeyPress事件该事件在单击键盘时发生。

它可获得按键的KeyAscii码，并不是单击任意一个键都会发生KeyPress事件，该事件只对会产生ASCII码的键有反应。

在窗体上画一个控件（指上面所讲的可以发生KeyPress事件的控件），双击该控件，进入程序代码窗口后，从“过程”框中选取KeyPress，即可以定义KeyPress事件过程。

一般格式为：Private Sub Command1_KeyPress(KeyAscii As Integer)… …End Sub（二）KeyDown事件和KeyUp事件当用户按下键盘上的任意一个键，便触发该对象的KeyDown事件，释放按键则触发KeyUp 事件。

由于按下键盘的键往往会立即放开，所以这两个事件的使用差别并不大。

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

二、鼠标事件鼠标事件是由用户操作鼠标而引发的事件。

（一）Click事件用户单击鼠标键时发生，格式如下：Private Sub控件名_Click ( [ index As Integer ] )其中Index用于当控件是控件数组时传递的参数。

（二）DbClick事件用户双击鼠标键时发生，格式如下：Private Sub控件名_DbClick ( [ index As Integer ] )（三）MouseDown事件用户按下鼠标上的任一按钮时，就会引发该事件。