VisualBasic程序设计案例教程第15讲键盘与鼠标事件

《VisualBasic程序设计案例教程第15讲键盘与鼠标事件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计第十五讲2课时教学目标及基本要求了解键盘事件和鼠标事件的概念。熟练应用键盘事件过程和鼠标事件过程编写程序。了解鼠标的拖放操作。教学重点KeyPress、KeyDown和KeyUp三种键盘事件。MouseUp、MouseDown和MouseMove三种鼠标应用键盘事件过程和鼠标事件过程编写程序。教学难点应用键盘事件过程和鼠标事件过程编写程序教学内容键盘事件鼠标事件鼠标光标拖放键盘事件在VisualBasic中，窗体和接受键盘输入的控件都能识别这三种键盘事件：KeyPress

2、：按下对应某ASCII字符的键；KeyDown：按下键盘的任意键；KeyUp：释放键盘的任意键。只有获得焦点的对象才能接受键盘事件。键盘事件KeyPress事件当按下某个键时，将触发拥有输入焦点（Focus）的那个控件的KeyPress事件，返回“所按字符”的ASCII码。语法格式：SubObject_KeyPress(KeyAsciiAsInteger)说明：Object：是指窗体或控件对象名；KeyAscii：是指KeyAscii参数返回对应ASCII字符代码的整型数值；键盘事件KeyDown事件

3、和KeyUp事件当按下或松开某个键时，将触发拥有输入焦点（Focus）的那个控件的KeyDown事件或者KeyUp事件，返回键盘的直接状态。语法格式为：SubObject_KeyDown(KeyCodeAsInteger，ShiftAsInteger)SubObject_KeyUp(KeyCodeAsInteger，ShiftAsInteger)键盘事件说明KeyCode参数：表示按下的物理键，以“键”为准，而不是以“字符”为准。即大小字母使用同一个键，KeyCode相同；上档键字符和下档键字符使用同

4、一个键，KeyCode相同。Shift是转换键，表示事件发生时3个转换键的状态，即Shift键、Ctrl键和Alt键的状态。二进制数十进制数作用二进制数十进制数作用0000没有按下任何键1004按下Alt0011按下Shift1015按下Alt+Shift0102按下Ctrl1106按下Ctrl+Alt0113按下Ctrl+Shift1117按下Ctrl+Alt+Shift键盘事件举例：用Shift参数来判断是否按下了字母的大写形式。PrivateSubText1_KeyDown(KeyCodeAsI

5、nteger,ShiftAsInteger)IfKeyCode=vbKeyCAndShift=1ThenMsgBox"你按下的是Shift键+字母C键组合，即输入大写字母C"EndIfEndSub鼠标事件在VisualBasic中，提供了鼠标的MouseUp、MouseDown和MouseMove事件，通过响应这些鼠标事件，应用程序能对鼠标位置及状态的变化作出响应操作。MouseUp：释放任意鼠标键按钮时发生；MouseDown：按下任意鼠标键按钮时发生；MouseMove：每当鼠标指针移动到屏幕新位

6、置时。当鼠标事件发生时，鼠标指针位于哪个对象，就由哪个对象来识别鼠标事件。鼠标事件过程压下鼠标按钮事件过SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)EndSub松开鼠标按钮事件过程SubForm_MouseUp(ButtonAsInteger,ShiftAsinteger,xAsSingle,yAsSingle)EndSub移动鼠标光标事件过程SubForm_MouseMove(ButtonAsInteger

7、,ShiftAsinteger,xAsSingle,yAsSingle)EndSub鼠标事件鼠标事件说明Button：被按下的鼠标按钮，可取3个值：符号常量值作用符号常量值作用LEFT_BUTTON1按下鼠标左按钮MIDDLE_BUTTON4按下鼠标中间按钮RIGHT_BUTTON2按下鼠标右按钮鼠标事件说明Shift：表示Shift、Ctrl和Alt的状态，可取3个值：Shift参数值常数作用二进制十进制0000未按任何键0011VbShiftMaskShift键被按下0102VbCtrlMaskC

8、trl键被按下0113VbShiftMask+VbCtrlMask同时按下Shift和Ctrl键1004VbAltMaskAlt键被按下1015VbShiftMask+VbAltMask同时按下Shift和Alt键1106VbCtrlMask+VbAltMask同时按下Ctrl和Alt键1117VbCtrlMask+VbAltMask+VbShiftMask同时按下Ctrl、Alt、Shift键说明：x、y：鼠标光标的当前位置。这里的x、y不须要给出具体