键盘与鼠标事件过程(I)

《键盘与鼠标事件过程(I)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第11章键盘与鼠标事件过程第11章键盘与鼠标事件过程除了响应鼠标的单击（Click）或双击（DblClick）事件以外，VisualBasic应用程序还能响应多种鼠标事件和键盘事件。例如，窗体、图片框与图象控件都能检测鼠标指针的位置，并可判定其左、右键是否已按下，还能响应鼠标按钮与Shift、Ctrl或Alt键的各种组合。利用键盘事件可以编程响应多种键盘操作，也可以解释、处理ASCII字符。11.1键盘事件键盘事件是指能够响应各种按键操作的KeyDown、KeyUp及KeyPress事件，可以把编写响应击键事件的应用程序看作是编写

2、键盘处理器。键盘处理器可在控件级和窗体级这两个层次上工作。有了控件级（低级）处理器就可对特定控件编程。例如，可能希望将Textbox这个控件中的输入文本都转换成大写字符。而有了窗体级处理器就可使窗体首先响应击键事件，于是就可将焦点转换成窗体的控件并重复或启动事件。11.1.1KeyPress事件KeyPress事件当用户按下和松开一个ASCII字符键时发生。该事件被触发时，被按键的ASCII码将自动传递给事件过程的KeyAscii参数。在程序中，通过访问该参数，即可获知用户按下了哪一个键，并可识别字母的大小写。其语法格式为：Pri

3、vateSub对象名_KeyPress(keyasciiAsInteger)其中参数keyascii是被按下字符键的标准ASCII码。对它进行改变可给对象发送一个不同的字符。将keyascii改变为0时可取消击键，这样一来对象便接收不到字符。KeyPress事件可以引用任何可打印的键盘字符、来自标准字母表的字符或少数几个特殊字符之一的字符与〈Ctrl〉键的组合、〈Enter〉或〈Backspace〉键。【例11-1】可以显示按键及其ASCII码的程序（如图11-1）。图11-1KeyPress事件接受的按键程序的代码部分：复选框的

4、Click事件代码：PrivateSubCheck1_Click()Text1.SetFocusEndSub文本（输入）框Text1的KeyPress事件代码：PrivateSubText1_KeyPress(KeyAsciiAsInteger)Text2.Text=KeyAsciiSelectCaseKeyAsciiCase0To7,9To12,14To26,28To31Text1.Text=""Text3.Text="Ctrl+"&Chr(64+KeyAscii)Case8Text3.Text="Ctrl+"&Chr(64+K

5、eyAscii)&"或退格键"Case13Text1.Text=""Text3.Text="Ctrl+"&Chr(64+KeyAscii)&"或回车键"Case27Text1.Text=""Text3.Text="Ctrl+"&Chr(64+KeyAscii)&"或Esc键"CaseElseText3.Text=Chr(KeyAscii)EndSelectIfCheck1.Value=0ThenKeyAscii=0EndIfEndSub11.1.2KeyDown和KeyUp事件KeyDown和KeyUp事件是当一个对象具有焦点时按

6、下或松开一个键时发生的。当控制焦点位于某对象上时，按下键盘中的任意一键，则会在该对象上触发产生KeyDown事件，当释放该键时，将触发产生KeyUp事件，之后产生KeyPress事件。其语法格式为：PrivateSub对象名_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrivateSub对象名_KeyUp(KeyCodeAsInteger,ShiftAsInteger)其中参数KeyCode参数项用于返回被按键的扫描代码。由于扫描码主要反映物理键位，因此通过该参数不能区分字母大小写。11.1.

7、2KeyDown和KeyUp事件shift参数项返回一个整数，该整数相应于〈Shift〉、〈Ctrl〉和〈Alt〉键的状态。shift参数等于1、2和4分别表示〈Shift〉、〈Ctrl〉和〈Alt〉键被按下，而三数的部分和表示三个按钮部分地被同时按下。因此，可结合该参数项来判断输入字母的大小写。应当使用KeyDown和KeyUp事件过程来处理任何不被KeyPress识别的击键，诸如：功能键、编辑键、定位键以及任何这些键和键盘换档键的组合等。与KeyDown和KeyUp事件不同的是，KeyPress不显示键盘的物理状态，而只是传递

8、一个字符。【例11-2】可以测试功能键与控制键的程序（如图11-2）。程序的代码部分：文本（输入）框Text1的Keydown事件代码：PrivateSubText1_Keydown(KeyCodeAsInteger,ShiftAsInteger)