VB 键盘事件

键盘是另一个输入数据或信息的重要工具。Visual Basic提供了三种事件处理键盘行为，即KeyPress，KeyDown和KeyUp事件，而且窗体和接受键盘输入的控件都可识别这三种事件。

1．KeyPress事件

KeyPress事件是当键盘有按键发生触发时。KeyPress事件检测有Enter，Tab，BackSpace以及键盘上的字母、数字和标点符号键，对于其他功能键、编辑键和定位键，则不作响应。其语法格式为：

Private Sub 对象_KeyPress(KeyAscii As Integer)

KeyAscii参数是按键对应的ASCII码值。例如，在一个空白窗体的Form_KeyPress事件过程中，输入显示此参数的命令：

Print KeyAscii

运行程序后，如果在键盘上按下“a”字符，窗体将会显示出数字97，也就是KeyPress事件会在用户按下“a”字符时返回其字符码97。不过这些字符码通常不是我们需要的，利用Chr函数就可将字符码转换为该字符了，对于上行程序代码可改为：

Print Chr(KeyAscii)

KeyPress事件过程在截取TextBox或ComboBox控件所输入的击键时，可立即测试击键的有效性，也可用于识别键盘是否按键，或是否按下某些特定键(如回车键)。例如在给文本框输入数据时，要求只能输入0～9数字的程序代码为：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 48 Or KeyAscii > 57 Then

KeyAscii = 0

Text1.SetFocus

End If

End Sub

数字0～9的ASCII值位于48～57之间。当按下的不是有效的数字时，KeyPress事件可使其在文本框中不显示，这样就不需要在文本框的LostFocus事件中判断输入的合法性了。

2．KeyDown和KeyUp事件

KeyDown事件是当按下按键时触发，KeyUp事件是当释放按键时触发，这两个事件提供了最低级的键盘响应，可以报告键盘的物理状态。语法格式如下：

Private Sub 对象_KeyDown(KeyCode As Integer, Shift As Integer)

Private Sub 对象_KeyUp(KeyCode As Integer, Shift As Integer)

其中，KeyCode是所按键的ASCII码值，Shift表示Shift，Ctrl，Alt键的按下状态。

KeyDown和KeyUp事件除了可识别KeyPress事件可识别的键，还可识别键盘上的大多数键，如功能键、编辑键、定位键和数字小键盘上的键。虽然键盘上的数字键与小键盘上的数字键的字符相同，但其ASCII码值是不同的。如表8.7所示，列出了一些常用的按键与KeyCode、常数的对应关系。

表8.7 一些常用KeyCode值

KeyDown和KdyUp事件报告键盘本身准确的物理状态，而KeyPress事件只提供键所代表的字符而不识别键的按下或松开状态。例如在输入大写字母“A”时，KeyDown事件获得“A”的ASCII码，输入小写“a”时，KeyDown事件获得相同的ASCII码。为了区分大小写，这些事件使用Shift参数。与此相对照的是，KeyPress事件将字母的大小写作为两个不同的ASCII字符处理。

键盘事件彼此之间并不互相排斥，当按下某个键时，将产生KeyPress和KeyDown事件。如果是KeyPress事件不能检测的键，那么仅触发KeyDown事件。虽然KeyDown和KeyUp事件可应用于大多数键，它们最经常应用的还是扩展的字符键、定位键、修饰键和按键的组合，区别数字小键盘和常规数字键。例如，要想在程序运行时，通过Ctrl+End组合键结束程序，可用下列代码实现：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 35 And Shift = 2 Then End

End Sub

每个KeyDown和KeyUp事件都附加在特定的对象上。为了编写应用于窗体上所有对象的键盘处理器，应将窗体的KeyPreview属性设置为True。将KeyPreview属性设置为True时，对所有控件，在控件识别KeyPress，KeyDown和KeyUp事件之前，窗体会识别控件的这些事件。

例如，可以在窗体上添加两个控件Text1和Command1，并把窗体的KeyPreview属性改为True。先在窗体声明部分加入：

Dim ShiftKey As Integer

然后在Form_KeyDown事件中编写如下代码：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

ShiftKey = Shift And 7

Select Case ShiftKey

Case 1

Print "You pressed the Shift Key."

Case 2

Print "You pressed the Ctrl Key."

Case 4

Print "You pressed the Alt Key."

End Select

End Sub

在运行程序时，无论哪个控件获得焦点，按下每个键都会在窗体上显示相应的信息。

如果已为菜单控件定义了快捷键，那么，当按下该键时会自动触发菜单控件的Click事件，而不是键盘事件。同样，如果在窗体上有一个命令按钮，其Default属性被设置为True，则Enter键将触发此命令按钮的Click事件而不是键盘事件。如果将命令按钮的Cancel属性设置为True，则按Esc键将触发按钮的Click事件而不是键盘事件。