VB编程的键盘控制

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

下面，我们就来看一看VB编程中如何进行键盘控制
概述
在VB中，很多控件都提供了键盘输入功能（如文本框、组合框等），但它们对键盘的
处理较简单，遇到复杂一点的要求即无能为力。

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

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

表1键盘事件的触发原因
键盘事件触发原因
KeyPress 按下某ASCII字符键
KeyDow n 按下键盘的任意键
KeyUp 释放键盘的任意键
KeyDown和KeyUp事件提供了最低级的键盘响应，可用这些事件检测KeyPress事件无
法检测到的情况：
SHIFT CTRL和ALT键的特殊组合。

光标控制键。

数字小键盘的数字键与打字键盘数字键的区别不仅响应按键操作而且响应释放键操作
(KeyPress只响应按键操作)。

键盘事件彼此不相互排斥。

按下某键时将生成KeyDowr和KeyPress事件，而松开此键时生成KeyUp事件。

当用户按下一个KeyPress不能检测的键时将触发KeyDowr事件，松开此键时生成KeyUp事件。

若使用KeyUp和KeyDowr事件应确保KeyPress事件的功能不够用，通常编写KeyPress 事件的代码比较容易。

二、KeyPress 事件
在按下与ASCII字符对应的键时将触发KeyPress事件。

ASCII字符集代表标准键盘的字母、数字和标点符号以及部分控制键(ENTER TAB BACKSPACE等)。

KeyDowr和KeyUp 事件能够检测其它功能键、编辑键和光标定位键。

当处理标准ASCII字符时应使用KeyPress 事件。

例如，如果希望将输入到文本框中的所有字符都强制转换为大写字符，则可在输入时使用此事件转换大小写：Private Sub Text1_KeyPress(KeyAscii As Ir teger)
KeyAscii = Asc(Ucase(Chr(KeyAscii)))
Erd Sub
KeyAscii参数返回对应所按键的ASCII代码。

也可通过KeyPress事件识别部分控制键。

例如，下述事件过程使用KeyPress检测用
户是否正在按BACKSPACE:
Private Sub Text1_KeyPress(KeyAscii As Ir teger)
If KeyAscii = 8 Then MsgBox "You Pressed the BACKSPACE key."
End Sub
注：BACKSPACE的ASCII 值为8。

还可用Keypress事件改变某些键的缺省行为。

例如，当在文本框内按ENTE键就会结束当前行输入并将光标转到下一行（Multiline 属性设为True ）。

在KeyPress事件中截断ENTEF®（ASCII值为13）就可避免这种情况：
Private Sub Text1_KeyPress（KeyAscii As Integer）
If KeyAscii = 13 Then KeyAscii = 0
End Sub
三、KeyUp和KeyDowr事件
KeyUp 和KeyDown事件报告键盘本身准确的物理状态：按下键（KeyDowr及松开键（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_Keydow n(KeyCode As In teger. Shift As In teger)
If KeyCode = 65 Then MsgBox "You pressed the A or a key."
End Sub
上例中按下"A"或"a"后都将显示消息框，为判断按下的字母是大写还是小写需用shift 参数。

可见，处理这些键时用KeyPress事件更方便。

KeyDown和KeyUp事件可识别标准键盘上的大多数控制键。

其中包括功能键(F1-F12)、编辑键(HOME PAGEUPDELETE等)、光标键()和数字小键盘上的键。

可以通过键代码常数或相应的ASCII值检测这些键。

例如：
Private Sub Text1_Keydow n(KeyCode As In teger, Shift As In teger)
If KeyCode = 36 The n MsgBox "You pressed the HOME key."
End Sub
VB中常用控制键的Keycode值见下表：
表2常用键的Keycode值
2、Shift 参数
键盘事件使用shift参数来判断按下某键的同时是否按下了SHIFT、CTRL ALT键或它
们的组合。

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

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

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

例如，以下事件过程可捕获CTRL+ALT+F并给出提示：
Private Sub Text1_Keydow n(KeyCode As In teger, Shift As In teger)
If Keycode = 112 And Shift = 6 Then MsgBox "You press the CTRL+ALT+F1 Key!"
End Sub
四、编写窗体级键盘处理程序
只有获得焦点的对象才能够接受键盘事件。

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

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

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

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

可在" 属性" 窗口中或通过Form_Load 过程中的代码设置窗体的KeyPreview 属性为True：
Private Sub Form_Load
Form1.KeyPreview = True
Erd Sub
需要注意的是，当把窗体的KeyPreview 属性设置为True 时，窗体在控件之前识别键盘事件，但对控件来说事件仍然会发生，这可能会造成一次按键触发多个不同的处理。

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

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

下面，我们来看一个键盘处理的简单例子：设计一个窗体和文本框以及其它控件，无
论焦点在哪个控件，按下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)
80 And Shift = 2 Then Text1.Text = "Hello!"
If KeyCode
=
If KeyCode
67 And Shift = 4 Then Text1.Text = ""
=
If KeyCode
= 121 Then End
End Sub。