VB编程的键盘控制
- 格式:doc
- 大小:28.50 KB
- 文档页数:3
VB编程的键盘控制
我们利用VisualBASIC编写程序,多数情况只涉及到鼠标操作(如单击、双击、拖动等),但如果程序中需要实现文本编辑、热键激活或利用键盘进行游戏控制等功能时,将不可避免地碰到键盘捕获及处理的问题。下面,我们就来看一看VB编程中如何进行键盘控制。
一、概述
在VB中,很多控件都提供了键盘输入功能(如文本框、组合框等),但它们对键盘的处理较简单,遇到复杂一点的要求即无能为力。因而VB提供了KeyPress、KeyUp、KeyDown三种键盘事件,当用户按键时,会触发这三种事件,而且窗体和接受键盘输入的控件都识别这三种事件。下表对这些事件作了描述。
可用这些事件检测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事件。例如,如果希望将输入到文本框中的所有字符都强制转换为大写字符,则可在输入时使用此事件转换大小写:
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
KeyAscii=Asc(Ucase(Chr(KeyAscii)))
EndSub
KeyAscii参数返回对应所按键的ASCII代码。
也可通过KeyPress事件识别部分控制键。例如,下述事件过程使用KeyPress检测用户是否正在按BACKSPACE键:
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=8ThenMsgBox"YouPressedtheBACKSPACEkey."
EndSub
注:BACKSPACE键的ASCII值为8。
还可用KeyPress事件改变某些键的缺省行为。例如,当在文本框内按ENTER键就会结束当前行输入并将光标转到下一行(Multiline属性设为True)。在KeyPress事件中截断ENTER键(ASCII值为13)就可避免这种情况:
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13ThenKeyAscii=0
EndSub
三、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")返回的数值。
PrivateSubText1_Keydown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=65ThenMsgBox"YoupressedtheAorakey."
EndSub
上例中按下"A"或"a"后都将显示消息框,为判断按下的字母是大写还是小写需用shift参数。可见,处理这些键时用KeyPress事件更方便。
KeyDown和KeyUp事件可识别标准键盘上的大多数控制键。其中包括功能键(F1-F12)、编辑键(HOME、PAGEUP、DELETE等)、光标键(↑、↓、←、→)和数字小键盘上的键。可以通过键代码常数或相应的ASCII值检测这些键。例如:
PrivateSubText1_Keydown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=36ThenMsgBox"YoupressedtheHOMEkey."
EndSub
VB中常用控制键的Keycode值见下表:
键盘事件使用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并给出提示:
PrivateSubText1_Keydown(KeyCodeAsInteger,ShiftAsInteger)
IfKeycode=112AndShift=6ThenMsgBox"YoupresstheCTRL+ALT+F1Key!"
EndSub
四、编写窗体级键盘处理程序