VB编程的键盘控制

在VB中，很多控件都提供了键盘输入功能（如文本框、组合框等），但它们对键盘的处理较简单，遇到复杂一点的要求即无能为力。

因而VB提供了KeyPress、KeyUp、KeyDown三种键盘事件，当用户按键时，会触发这三种事件，而且窗体和接受键盘输入的控件都识别这三种事件。

下表对这些事件作了描述：

KeyDown和KeyUp事件提供了最低级的键盘响应。

可用这些事件检测KeyPress事件无法检测到的情况：

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

光标控制键。

HOME、END、PAGEUP、PAGEDOWN等。

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

不仅响应按键操作而且响应释放键操作（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检测用户是否正在按BACKSPACE键：

Private Sub Text1_KeyPress(KeyAscii As Integer)

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

End Sub

注：BACKSPACE键的ASCII值为8。

附：常用键的Keycode值

Shift参数 ：键盘事件使用shift参数来判断按下某键的同时是否按下了SHIFT、CTRL、ALT键或它们的组合。

如果按SHIFT键，则shift 为1；按CTRL键，shift为2；按ALT键，shift为3，通过键值总和来判断这些组合。

例如：同时按下SHIFT和ALT键时shift等于5(1+4)。

在使用中，可将KeyDown 与KeyUp事件及shift参数一同使用以区分字符的大小写或检测各种组合键。

例如：以下事件过程可捕获CTRL+ALT+F1并给出提示：

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

If Keycode = 112 And Shift = 6 Then MsgBox "You press the CTRL+ALT+F1 Key!"

End Sub

编写窗体级键盘处理程序 ：

只有获得焦点的对象才能够接受键盘事件。

当窗体为活动窗体且其上所有控件均未获得焦点时，窗体才获得焦点。

这种情况只有在空窗体或窗体上的控件都无效时才发生。

如果将窗体上的KeyPreview属性设置为True，则每个控件在识别其所拥有的KeyPress、KeyUP、KeyDown事件之前，窗体会抢先接受这些键盘事件。

当您希望无论何时按下某键都会执行同一个操作，而不管哪个控件在此时具有焦点时，这样设置KeyPreview属性极为有用。

可在"属性"窗口中或通过Form_Load过程中的代码设置窗体的KeyPreview属性为True：

Private Sub Form_Load

Form1.KeyPreview = True

End Sub

需要注意的是，当把窗体的KeyPreview属性设置为True时，窗体在控件之前识别键盘事件，但对控件来说事件仍然会发生，这可能会造成一次按键触发多个不同的处理。

为防止这种情况，可在窗体键盘事件过程结束前将KeyAscii或KeyCode重置为0。

例如：在窗体上将ENTER键捕获并处理后，把KeyAscii或KeyCode设置为0，则控件在自己的键盘事件过程中将无法识别按下的ENTER键，因而控件的键盘事件过程也不被调用。

设计一个窗体和文本框以及其它控件，无论焦点在哪个控件，按下CTRL+P即让文本框显示"Hello！"；按下ALT+C 清除文本框；按下F10结束程序。

Private Sub Form_Load()

Form1.KeyPreview = True

End Sub

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

If KeyCode = 80 And Shift = 2 Then Text1.Text = "Hello!"

If KeyCode = 67 And Shift = 4 Then Text1.Text = ""

If KeyCode = 121 Then End

End Sub