VB编程的键盘控制

VB编程的键盘控制

我们利用Visual BASIC编写程序，多数情况只涉及到鼠标操作（如单击、双击、拖动等），但如果程序中需要实现文本编辑、热键激活或利用键盘进行游戏控制等功能时，将不可避免地碰到键盘捕获及处理的问题。下面，我们就来看一看VB编程中如何进行键盘控制。

一、概述

在VB中，很多控件都提供了键盘输入功能（如文本框、组合框等），但它们对键盘的处理较简单，遇到复杂一点的要求即无能为力。因而VB提供了KeyPress、KeyUp、KeyDown 三种键盘事件，当用户按键时，会触发这三种事件，而且窗体和接受键盘输入的控件都识别这三种事件。下表对这些事件作了描述。

表1键盘事件的触发原因

键盘事件触发原因

KeyPress按下某ASCII字符键

KeyDown按下键盘的任意键

KeyUp释放键盘的任意键

KeyDown和KeyUp事件提供了最低级的键盘响应，可用这些事件检测KeyPress事件无法检测到的情况：

◆SHIFT、CTRL和ALT键的特殊组合。

◆光标控制键。

◆HOME、END、PAGEUP、PAGEDOWN等。

◆数字小键盘的数字键与打字键盘数字键的区别。

◆不仅响应按键操作而且响应释放键操作（KeyPress只响应按键操作）。

键盘事件彼此不相互排斥。按下某键时将生成KeyDown和KeyPress事件，而松开此键时生成KeyUp事件。当用户按下一个KeyPress不能检测的键时将触发KeyDown事件，松开此键时生成KeyUp事件。若使用KeyUp和KeyDown事件应确保KeyPress事件的功能不够用，通常编写KeyPress事件的代码比较容易。

二、KeyPress事件

在按下与ASCII字符对应的键时将触发KeyPress事件。ASCII字符集代表标准键盘的字母、数字和标点符号以及部分控制键（ENTER、TAB、BACKSPACE键等）。KeyDown 和KeyUp事件能够检测其它功能键、编辑键和光标定位键。当处理标准ASCII字符时应使用KeyPress事件。例如，如果希望将输入到文本框中的所有字符都强制转换为大写字符，则可在输入时使用此事件转换大小写：

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii=Asc(Ucase(Chr(KeyAscii)))

End Sub

KeyAscii参数返回对应所按键的ASCII代码。

也可通过KeyPress事件识别部分控制键。例如，下述事件过程使用KeyPress检测用户是否正在按BACKSPACE键：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii=8Then MsgBox"You Pressed the BACKSPACE key."

End Sub

注：BACKSPACE键的ASCII值为8。

还可用KeyPress事件改变某些键的缺省行为。例如，当在文本框内按ENTER键就会结束当前行输入并将光标转到下一行（Multiline属性设为True）。在KeyPress事件中截断ENTER键（ASCII值为13）就可避免这种情况：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii=13Then KeyAscii=0

End Sub

三、KeyUp和KeyDown事件

KeyUp和KeyDown事件报告键盘本身准确的物理状态：按下键（KeyDown）及松开键（KeyUp）。而KeyPress事件并不直接地报告键盘状态，它只提供键所代表的字符而不识别键的按下或松开状态。

进一步举例将有助于阐明这一差别。输入大写"A"时，KeyDown事件获得"A"的ASCII 码。在输入小写"a"时，KeyDown事件获得相同的ASCII码。为区分大小写，KeyDown和KeyUp事件使用shift参数。与此相对照的是，KeyPress事件将字母的大小写作为两个不同的ASCII字符处理。KeyUp和KeyDown事件通过提供下列两参数返回输入字符的信息。

1、Keycode参数

字母键的Keycode与此字母大写字符的ASCII值相同，所以"A"和"a"的Keycode都是由Asc("A")返回的数值；数字与标点符号键的Keycode与键上数字的ASCII码相同，因此"1"和"！"的Keycode都是由Asc（"1"）返回的数值。

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

If KeyCode=65Then MsgBox"You pressed the A or a key."

End Sub

上例中按下"A"或"a"后都将显示消息框，为判断按下的字母是大写还是小写需用shift 参数。可见，处理这些键时用KeyPress事件更方便。

KeyDown和KeyUp事件可识别标准键盘上的大多数控制键。其中包括功能键（F1-F12）、编辑键（HOME、PAGEUP、DELETE等）、光标键（↑、↓、←、→）和数字小键盘上的键。可以通过键代码常数或相应的ASCII值检测这些键。例如：

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

If KeyCode=36Then MsgBox"You pressed the HOME key."

End Sub

VB中常用控制键的Keycode值见下表：

表2常用键的Keycode值

键Keycode键Keycode键Keycode BACKSPACE8TAB9ENTER13 CAPS LOCK20SHIFT16CTRL17 PAGEDOWN34PAUSE19ESC27 SPACEBAR32END35HOME36 PAGEUP33INS45DEL46