VB程序设计第十一章键盘和鼠标事件过程课件

VisualBasic程序设计教程第十一章键盘和鼠标事件过程11.1键盘事件键盘事件：

●KeyPress事件：用户按下并释放一个能产生一个能产生ASCII码的键时被触发；

●KeyUp事件：用户释放任一键时被触发；

●KeyDown事件：用户按下任一个键时被触发；11.2KeyPress事件引发KeyPress事件的按键：

数字、大小写字母、Enter、Backspace、Esc、Tab等键。如文本框Text1的KeyPress事件如下：

PrivateSubText1_KeyPress(Keyasciiasinteger)…EndSub“a”的ASCII值为97；“A”的ASCII值为65；11.3KeyUp和KeyDown事件

参数：Shift：根据是否同时按下Shift、Ctrl和Alt键返回的一个整数；

整数值符号常量说明1vbShiftMask按下Shift键2vbCtrlMask按下Ctrl键4vbAltMask按下Alt键0没有按下Shift、Ctrl、Alt键7同时按下Shift、Ctrl、Alt键●键盘三个事件的触发顺序：KeyDown、KeyPress、KeyUp；●一般情况下，控件可以触发这三个事件；●但窗体必须将“KeyPreiew”属性值设为True；则首先窗体的KeyPress、KeyUp和KeyDown；11.3KeyUp和KeyDown事件

例[11-1]设计一个应用程序。在窗体上建立一个文本框和一个标签，当从键盘向文本框英文字符时，将其转换成大写字母显示在标签中。

解题思路：在text1的keypress事件中，将键盘的asc码转化为相应的字符，再将其转化为大写。PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=UCase(Chr(KeyAscii))Label1.Caption=Label1.Caption&charEndSub11.3KeyUp和KeyDown事件

例[11-2]设计一个应用程序。在窗体上建立一个文本框，其属性值均为默认值，并将窗体的KeyPreview属性值设为True。

解题思路:若设置窗体的KeyPreview属性值为True，则先执行窗体的KeyPress事件，而后执行文本框的KeyPress事件；PrivateSubForm_KeyPress(KeyAsciiAsInteger)KeyAscii=KeyAscii+1EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)KeyAscii=KeyAscii+1EndSub11.3KeyUp和KeyDown事件

例[11-3]设计一个应用程序。当按下Alt＋F5组合键时终止程序运行。说明：先将窗体的KeyPreiew设为True；

F5的KeyCde值为vbKeyF5;Alt键被按下的常数为vbAltMask

PrivateSubForm_KeyDown(KeyCodeasinteger,Shiftasinteger)Ifkeycode=vbkeyF5andShift=vbAltMaskthenendendif11.4鼠标事件

参数：Button参数：参数值符号常量说明1vbLeftButton按下鼠标左键2vbRightButton按下鼠标右键4vbMiddleButton按下鼠标中键

Shift：同键盘的Shift参数；

x、y：对应于鼠标指针的位置；鼠标事件出发顺序：MouseDown、Click、MouseUp

11.4鼠标事件例[11-4]利用鼠标画圆。方法：利用MuseDown事件记录圆心的坐标，用MouseUp