VB程序设计第十一章键盘鼠标过程.pptVIP

Visual Basic程序设计教程 11.1 键盘事件 11.2 KeyPress事件 11.3 KeyUp和KeyDown事件 11.3 KeyUp和KeyDown事件 11.3 KeyUp和KeyDown事件 11.3 KeyUp和KeyDown事件 11.3 KeyUp和KeyDown事件 11.4 鼠标事件 11.4 鼠标事件 11.4 鼠标事件 * ptc.imust.cn 内蒙古科技大学实践训练中心 第十一章 键盘和鼠标事件过程 键盘事件： ● KeyPress 事件：用户按下并释放一个能产生一个能产生ASCII码的键时 被触发； ● KeyUp 事件：用户释放任一键时被触发； ● KeyDown 事件：用户按下任一个键时被触发； 引发KeyPress事件的按键： 数字、大小写字母、Enter、Backspace、Esc、Tab等键。 如文本框Text1的KeyPress事件如下： Private Sub Text1_KeyPress(Keyascii as integer) … End Sub “a”的ASCII值为97；“A”的ASCII值为65； 当控制焦点在某个对象上时，按下键盘上的任一键，便会引发该对象的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 integer) … End Sub 参数： KeyCode：为用户所操作的键的扫描码；即键的物理位置相同则KeyCode参数值相同（”A“和”a“；5和％等）；但大键盘的数字和小键盘的数字的KeyCode不一样； 参数： Shift：根据是否同时按下Shift、Ctrl和Alt键返回的一个整数； 没有按下Shift、Ctrl、Alt键 0 按下Alt键 vbAltMask 4 同时按下Shift、Ctrl、Alt键 7 按下Ctrl键 vbCtrlMask 2 按下Shift键 vbShiftMask 1 说明 符号常量 整数值 ● 键盘三个事件的触发顺序：KeyDown、KeyPress、KeyUp； ● 一般情况下，控件可以触发这三个事件； ● 但窗体必须将“KeyPreiew”属性值设为True；则首先窗体的KeyPress、 KeyUp和KeyDown； 例[11-1]设计一个应用程序。在窗体上建立一个文本框和一个标签，当从键盘向文本框英文字符时，将其转换成大写字母显示在标签中。 解题思路：在text1的keypress事件中，将键盘的asc码转化为相应的字符， 再将其转化为大写。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char = UCase(Chr(KeyAscii)) Label1.Caption = Label1.Caption char End Sub 例[11-2]设计一个应用程序。在窗体上建立一个文本框，其属性值均为默认值，并将窗体的KeyPreview属性值设为True。 解题思路:若设置窗体的KeyPreview属性值为True，则先执行窗体的KeyPress事件，而后执行文本框的KeyPress事件； Private Sub Form_KeyPress(KeyAscii As Integer) KeyAscii = KeyAscii + 1 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = KeyAscii + 1 End Sub 例[11-3]设计一个应用程序。当按下Alt＋F5组合键时终止程序运行。 说明：先将窗体的KeyPreiew设为True； F5的KeyCde值为vbKeyF5; Alt键被按下的常数为vb