广州大学第10章 键盘与鼠标事件过程

1、浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 第十章第十章 键盘与鼠标事件过程键盘与鼠标事件过程本章主要任务：本章主要任务： （1）理解鼠标、键盘事件的触发机制理解鼠标、键盘事件的触发机制；（2）掌握键盘的掌握键盘的KeyDown， KeyPress， KeyUp 事事件中各参数的含义及编程控制件中各参数的含义及编程控制；（3）掌握鼠标的掌握鼠标的MouseDown， MouseMove， MouseUp事件中各参数的含义及编程控制事件中各参数的含义及编程控制

2、;（4）了解事件驱动的拖放和了解事件驱动的拖放和 OLE 的拖放。（自学）的拖放。（自学）浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 第十章第十章 键盘与鼠标事件过程键盘与鼠标事件过程键盘事件：键盘事件： 在在Visual Basic中，提供中，提供KeyPress、KeyDown、KeyUp三种键盘事件，窗体和接受键盘输入的控件三种键盘事件，窗体和接受键盘输入的控件都识别这三种事件。都识别这三种事件。 KeyPress 按下对应某按下对应某ASCII 字符

3、的键。字符的键。 KeyDown 按下键盘的任意键。按下键盘的任意键。 KeyUp 释放键盘的任意键。释放键盘的任意键。 只有获得焦点的对象才能够接受键盘事件只有获得焦点的对象才能够接受键盘事件 浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 第十章第十章 键盘与鼠标事件过程键盘与鼠标事件过程鼠标事件：鼠标事件： 除了单击（除了单击（Click）和双击（）和双击（DBlClick），大多），大多数控件能够识别鼠标的数控件能够识别鼠标的MouseMove、Mous

4、eDown和和MouseUp事件，通过响应这些鼠标事件，能在应用事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化作出响应操作。程序对鼠标位置及状态的变化作出响应操作。MouseDown 按下任意鼠标键按钮时发生按下任意鼠标键按钮时发生 MouseUp 释放任意鼠标键按钮时发生释放任意鼠标键按钮时发生 MouseMove 每当鼠标指针移动到屏幕新位置每当鼠标指针移动到屏幕新位置时发生时发生浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 当压下键盘上的

5、某个与当压下键盘上的某个与ASCIIASCII字符对应的键时发生字符对应的键时发生KeyPressKeyPress事件。其定义为：事件。其定义为：Private Sub Text1_KeyPress(KeyAscii As Integer) .End Sub KeyAsciiKeyAscii是所按键的是所按键的ASCIIASCII值值10.1 KeyPress事件事件KeyPressKeyPress事件只对会产生事件只对会产生ASCASC码的按键有反应。能产生码的按键有反应。能产生ASCASC码的按键包括码的按键包括数字数字、大小写字母大小写字母、EnterEnter、 BackspaceBa

6、ckspace、EscEsc、TabTab等键。等键。方向键（方向键（、）不会产生不会产生ASCASC码。码。浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 例：例：限制文本框输入内容只能为数字限制文本框输入内容只能为数字Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then Beep KeyAscii = 0 End IfEnd Sub数字数字09的的ASCII码为码为485710

7、.1 KeyPress事件事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 例：例：捕捉窗体上击键动作并在窗体上打印所按键字捕捉窗体上击键动作并在窗体上打印所按键字符符Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr ( KeyAscii ) ;End Sub10.1 KeyPress事件事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww

8、.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 例：例：输入的同时修改键入文本框的字符，非数字用输入的同时修改键入文本框的字符，非数字用* *代替代替Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 42 End IfEnd Sub*的的ASCII码为码为4210.1 KeyPress事件事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4

9、.6 作业 KeyDownKeyDown和和KeyUpKeyUp事件分别在压下和松开键盘事件分别在压下和松开键盘上的某个键时发生，这两个事件返回的是键上的某个键时发生，这两个事件返回的是键盘的直接状态。盘的直接状态。 其定义分别为：其定义分别为：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)End SubPrivate Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)End Sub10.2 KeyDown和和KeyUp事件事件浙江科技学院教信系计算机基础教学网站

10、：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 1.KeyCode1.KeyCode 表示按下的物理键表示按下的物理键的扫描代码的扫描代码。上档键字符和。上档键字符和下档键字符也是使用同一键，它们的下档键字符也是使用同一键，它们的KeyCodeKeyCode值相同。值相同。10.2 KeyDown和和KeyUp事件事件键（字符）键（字符） KeyCode KeyAscii “A” 65 65 “a” 65 97 “！” 49 33 “1”（大键盘上）（大键盘上） 49 49 “1”（数字键盘上）（

11、数字键盘上） 97 49 Home键键 36 无无F10键键 121 无无 浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 例：例：用用 KeyDownKeyDown 事件判断是否按下了事件判断是否按下了 A A 键键10.2 KeyDown和和KeyUp事件事件Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 65 Then MsgBox You press

12、ed the A key.“ End ifEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyA Then MsgBox You pressed the A key.“ End ifEnd Sub浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 2.Shift2.Shift 表示是在事件发生时响应表示是在事件发生时响应SHIFTSHIFT、

13、CTRL CTRL 和和 ALT ALT 键的状态，它是一个整数。键的状态，它是一个整数。10.2 KeyDown和和KeyUp事件事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 2.Shift2.Shift10.2 KeyDown和和KeyUp事件事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 2.Shift2.Shif

14、t10.2 KeyDown和和KeyUp事件事件参数（参数（ShiftShift） 值值 描述描述vbShiftMaskvbShiftMask 1 1 SHIFT SHIFT 键被按下键被按下vbCtrlMaskvbCtrlMask 2 2 CTRL CTRL 键被按下键被按下vbAltMaskvbAltMask 4 4 ALT ALT 键被按下键被按下浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 例：例：用用 KeyDownKeyDown 事件判断是否按下了

15、事件判断是否按下了 A + Ctrl + ShiftA + Ctrl + Shift 键键10.2 KeyDown和和KeyUp事件事件Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 65 And Shift = 3 Then MsgBox You pressed A + Ctrl + Shift . End ifEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 65 An

16、d Shift = vbShiftMask + vbCtrlMask Then MsgBox You pressed A + Ctrl + Shift . End ifEnd Sub浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 当压下、松开鼠标键或移动鼠标时产生鼠标当压下、松开鼠标键或移动鼠标时产生鼠标事件事件MouseDownMouseDown、MouseUpMouseUp、MouseMoveMouseMove。其定。其定义为：义为：Sub Form_Mou

17、seDown(Button As Integer, Shift As integer,x As single, y As Single) . End Sub10.3 鼠标事件鼠标事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 1.1.鼠标位置鼠标位置 通过通过X X和和Y Y参数返回一个指定鼠标指针当参数返回一个指定鼠标指针当前位置。前位置。Sub Form_MouseDown(Button As Integer, Shift As integer,x As

18、 single, y As Single) Text1.Text = x & , & y End Sub10.3 鼠标事件鼠标事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 例：跟随鼠标运动的按钮例：跟随鼠标运动的按钮Sub Form_MouseMove(Button As Integer, Shift As integer,x As single, y As Single) Command1.Move x , y End Sub10.3 鼠

19、标事件鼠标事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 例：涂鸦板例：涂鸦板( (参考参考P250)P250)Sub Form_MouseMove(Button As Integer, Shift As integer,x As single, y As Single) DrawWidth = 2 PSet (x , y) End Sub10.3 鼠标事件鼠标事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.

20、Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 2.2.鼠标按钮鼠标按钮 ButtonButton参数是表示鼠标按钮状态为按下还参数是表示鼠标按钮状态为按下还是松开。是松开。10.3 鼠标事件鼠标事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 2.2.鼠标按钮鼠标按钮 ButtonButton参数是表示事件发生时各鼠标按钮参数是表示事件发生时各鼠标按钮状态为按下还是松开。状态为按下还是松开。10.3 鼠标事件鼠标事件

21、参数参数ButtonButton值值参数（参数（ButtonButton）值值 说明说明vbLeftButtonvbLeftButton 1 1左按钮被按下左按钮被按下vbRightButtonvbRightButton 2 2右按钮被按下右按钮被按下vbMiddleButtonvbMiddleButton 4 4中间按钮被按下中间按钮被按下 浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 例：涂鸦板增强例：涂鸦板增强( (参考参考P257)P257)Sub F

22、orm_MouseMove(Button As Integer, Shift As integer,x As single, y As Single) If Button = vbLeftButton Then DrawWidth = 2 PSet (x , y) End if End Sub10.3 鼠标事件鼠标事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 3.3.转换参数转换参数 ShiftShift表示是在该事件发生时响应表示是在该事件发生时响应SH

23、IFTSHIFT、CTRL CTRL 和和 ALT ALT 键的状态。其含义与上一节键键的状态。其含义与上一节键盘事件中的盘事件中的shiftshift参数完全相同。参数完全相同。10.3 鼠标事件鼠标事件浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 1.MousePointer1.MousePointer属性属性 鼠标光标的形状通过鼠标光标的形状通过MousePointerMousePointer属性属性来设置。该属性可以在设计阶段设置，也可来设置。该属性可以在设计阶段设置，也可以在运行时设置。以在运行时设置。 属性值见属性值见 表表10.910.9。10.4 鼠标光标的形状鼠标光标的形状浙江科技学院教信系计算机基础教学网站：浙江科技学院教信系计算机基础教学网站：www.Goit.Netwww.Goit.Net目录4.1 4.2 4.3 4.4 4.5 4.6 作业 2.2.设置方法设置方法1）在程序代码中设置）在程序代码中设置MousePointer属性：属性： 对象对象.Mousepointer =