《VB程序设计第十一章.ppt》由会员分享，可在线阅读，更多相关《VB程序设计第十一章.ppt（11页珍藏版）》请在装配图网上搜索。
1、Visual Basic程序设计教程 内蒙古科技大学实践训练中心 第十一章 键盘和鼠标事件过程 11.1 键盘事件 键盘事件 ： KeyPress 事件：用户按下并释放一个能产生一个能产生 ASCII码的键时 被触发； KeyUp 事件：用户释放任一键时被触发； KeyDown 事件：用户按下任一个键时被触发； 11.2 KeyPress事件 引发 KeyPress事件的按键： 数字、大小写字母、 Enter、 Backspace、 Esc、 Tab等键。 如文本框 Text1的 KeyPress事件如下： Private Sub Text1_KeyPress(Keyascii as inte
2、ger) End Sub “a”的 ASCII值为 97； “ A”的 ASCII值为 65； 11.3 KeyUp和 KeyDown事件 当控制焦点在某个对象上时，按下键盘上的任一键，便会引发该对象的 KeyDown事件，释放按键便会触发 KeyUp事件。 如文本框 Text1的 KeyDown事件过程： Private Sub Text1_KeyDown(KeyCode as integer,Shift As integer) End Sub 如文本框 Text1的 KeyUp事件过程： Private Sub Text1_KeyUp(KeyCode as integer,Shift As
3、 integer) End Sub 参数： KeyCode： 为用户所操作的键的扫描码；即键的物理位置相同则 KeyCode参 数值相同（ ” A“和 ” a“； 5和等）；但大键盘的数字和小键盘的数字的 KeyCode不 一样； 11.3 KeyUp和 KeyDown事件 参数： Shift： 根据是否同时按下 Shift、 Ctrl和 Alt键返回的一个整数； 整数值 符号常量 说明 1 vbShiftMask 按下 Shift键 2 vbCtrlMask 按下 Ctrl键 4 vbAltMask 按下 Alt键 0 没有按下 Shift、 Ctrl、 Alt键 7 同时按下 Shift、
4、 Ctrl、 Alt键 键盘三个事件的触发顺序： KeyDown、 KeyPress、 KeyUp； 一般情况下，控件可以触发这三个事件； 但窗体必须将 “ KeyPreiew”属性值设为 True；则首先窗体的 KeyPress、 KeyUp和 KeyDown； 11.3 KeyUp和 KeyDown事件 例 11-1设计一个应用程序。在窗体上建立一个文本框和一个标签，当从键盘 向文本框英文字符时，将其转换成大写字母显示在标签中 。 解题思路 ： 在 text1的 keypress事件中，将键盘的 asc码转化为相应的字符， 再将其转化为大写。 Private Sub Text1_KeyPr
5、ess(KeyAscii As Integer) Dim char As String char = UCase(Chr(KeyAscii) Label1.Caption = Label1.Caption Alt键被按下的常数为 vbAltMask Private Sub Form_KeyDown(KeyCode as integer,Shift as integer) If keycode=vbkeyF5 and Shift=vbAltMask then end end if end sub 11.4 鼠标事件 MouseDown事件； MouseUp事件； MouseMove事件； 以窗体
6、 Form为例： Private Sub Form_MouseDown(Button as integer, Shift as Integer, x as single,y as single) end sub Private Sub Form_MouseUp(Button as integer, Shift as Integer, x as single,y as single) end sub Private Sub Form_MouseMove(Button as integer, Shift as Integer, x as single,y as single) end sub 11
7、.4 鼠标事件 参数： Button参数 ： 参数值 符号常量 说明 1 vbLeftButton 按下鼠标左键 2 vbRightButton 按下鼠标右键 4 vbMiddleButton 按下鼠标中键 Shift：同键盘的 Shift参数； x、 y：对应于鼠标指针的位置； 鼠标事件出发顺序 ： MouseDown、 Click、 MouseUp 11.4 鼠标事件 例 11-4利用鼠标画圆 。 方法：利用 MuseDown事件记录圆心的坐标，用 MouseUp事件记录半径端点的 坐标，计算半径，再利用 Circle方法在窗体上画圆。 例 11-5显示鼠标指针所指的位置 。 方法：利用窗体的 MouseMove事件，将事件的鼠标坐标 x、 y显示在文本框 内。
VB程序设计第十一章.ppt
