vb程序设计第十一章

《vb程序设计第十一章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计教程ptc.imust.cn内蒙古科技大学实践训练中心第十一章键盘和鼠标事件过程11.1键盘事件键盘事件：●KeyPress事件：用户按下并释放一个能产生一个能产生ASCII码的键时被触发；●KeyUp事件：用户释放任一键时被触发；●KeyDown事件：用户按下任一个键时被触发；11.2KeyPress事件引发KeyPress事件的按键：数字、大小写字母、Enter、Backspace、Esc、Tab等键。如文本框Text1的KeyPress事件如下：PrivateSubText1_KeyPress(Keya

2、sciiasinteger)…EndSub“a”的ASCII值为97；“A”的ASCII值为65；11.3KeyUp和KeyDown事件当控制焦点在某个对象上时，按下键盘上的任一键，便会引发该对象的KeyDown事件，释放按键便会触发KeyUp事件。如文本框Text1的KeyDown事件过程：PrivateSubText1_KeyDown(KeyCodeasinteger,ShiftAsinteger)…EndSub如文本框Text1的KeyUp事件过程：PrivateSubText1_KeyUp(KeyCodeasinteger,Shi

3、ftAsinteger)…EndSub参数：KeyCode：为用户所操作的键的扫描码；即键的物理位置相同则KeyCode参数值相同（”A“和”a“；5和％等）；但大键盘的数字和小键盘的数字的KeyCode不一样；11.3KeyUp和KeyDown事件参数：Shift：根据是否同时按下Shift、Ctrl和Alt键返回的一个整数；整数值符号常量说明1vbShiftMask按下Shift键2vbCtrlMask按下Ctrl键4vbAltMask按下Alt键0没有按下Shift、Ctrl、Alt键7同时按下Shift、Ctrl、Alt键●键盘三

4、个事件的触发顺序：KeyDown、KeyPress、KeyUp；●一般情况下，控件可以触发这三个事件；●但窗体必须将“KeyPreiew”属性值设为True；则首先窗体的KeyPress、KeyUp和KeyDown；11.3KeyUp和KeyDown事件例[11-1]设计一个应用程序。在窗体上建立一个文本框和一个标签，当从键盘向文本框英文字符时，将其转换成大写字母显示在标签中。解题思路：在text1的keypress事件中，将键盘的asc码转化为相应的字符，再将其转化为大写。PrivateSubText1_KeyPress(KeyAsci

5、iAsInteger)DimcharAsStringchar=UCase(Chr(KeyAscii))Label1.Caption=Label1.Caption&charEndSub11.3KeyUp和KeyDown事件例[11-2]设计一个应用程序。在窗体上建立一个文本框，其属性值均为默认值，并将窗体的KeyPreview属性值设为True。解题思路:若设置窗体的KeyPreview属性值为True，则先执行窗体的KeyPress事件，而后执行文本框的KeyPress事件；PrivateSubForm_KeyPress(KeyAscii

6、AsInteger)KeyAscii=KeyAscii+1EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)KeyAscii=KeyAscii+1EndSub11.3KeyUp和KeyDown事件例[11-3]设计一个应用程序。当按下Alt＋F5组合键时终止程序运行。说明：先将窗体的KeyPreiew设为True；F5的KeyCde值为vbKeyF5;Alt键被按下的常数为vbAltMaskPrivateSubForm_KeyDown(KeyCodeasinteger,Shiftasinte

7、ger)Ifkeycode=vbkeyF5andShift=vbAltMaskthenendendifendsub11.4鼠标事件●MouseDown事件；●MouseUp事件；●MouseMove事件；以窗体Form为例：PrivateSubForm_MouseDown(Buttonasinteger,ShiftasInteger,xassingle,yassingle)…endsubPrivateSubForm_MouseUp(Buttonasinteger,ShiftasInteger,xassingle,yassingle)…en

8、dsubPrivateSubForm_MouseMove(Buttonasinteger,ShiftasInteger,xassingle,yassingle)…endsub11.4鼠标事件参