《Visual Basic入门第十讲 键盘与鼠标事件过程》由会员分享，可在线阅读，更多相关《Visual Basic入门第十讲 键盘与鼠标事件过程（58页珍藏版）》请在金锄头文库上搜索。
1、 第第1010章章 键盘与鼠标事件过程键盘与鼠标事件过程主要内容使用键盘事件过程，可以处理当按下或释放键盘上某个键时所执行的操作；而鼠标事件过程可用来处理与鼠标光标的移动和位置有关的操作。本章介绍与键盘和鼠标有关的事件过程。 键盘事件 KeyPress 按了键盘的某键时触发 。 KeyDown 按下键盘的某键触发。 KeyUp 释放键盘的某键触发。只有获得焦点的对象才能够接受键盘事件。只有获得焦点的对象才能够接受键盘事件。键盘事件可获得当前所按键的信息。键盘事件可获得当前所按键的信息。在Visual Basic中，提供KeyPress、KeyDown、 KeyUp三种键盘事件，窗体和接受键盘输
2、入的控件都识别这三种事件。 KeyDown事件发生KeyPress事件发生KeyUp事件发生键盘事件的先后顺序按下键盘的某键注意：有时一个注意：有时一个 动作会触发若干动作会触发若干 个事件。当按下个事件。当按下 键盘上某一键时键盘上某一键时 ，触发了多个键，触发了多个键 盘事件。盘事件。窗体的窗体的KeyPreviewKeyPreview属性属性窗体的窗体的KeyPreviewKeyPreview属性设置为属性设置为TrueTrue，则首先触发，则首先触发 窗体的窗体的KeyPressKeyPress、KeyDownKeyDown和和KeyUpKeyUp 事件，然后再触事件，然后再触 发活动
3、控件的发活动控件的KeyPressKeyPress、KeyDownKeyDown和和KeyUpKeyUp 事件。事件。即如窗体键盘事件过程修改了所按键的值，则当前即如窗体键盘事件过程修改了所按键的值，则当前 具有焦点的控件的具有焦点的控件的KeyPressKeyPress事件过程将接收到修改后的事件过程将接收到修改后的 值。值。按下某键窗体键盘事件KeyPreviewKeyPreview属性属性TF控件键盘事件控件键盘事件活动窗体和活动控件触发键盘事件的顺序默认值为False键盘事件与其它事件键盘事件发生Change事件发生在对某活动控件按键时，先触发该控件的键盘事件 ，然后才是其它事件。如文
4、本框，按键后，触发其 键盘事件，然后是Change事件，并显示字符。键盘事件常用于检查输入 数据是否合法。如在某文 本框中输入“a”，则在文 本框接受字符前，键盘事 件的程序可以先期截获该 字符。10. 1 10. 1 KeyPressKeyPress事件事件在程序运行过程中，当按下键盘某个键时，会触在程序运行过程中，当按下键盘某个键时，会触 发当前拥有输入焦点的那个控件的发当前拥有输入焦点的那个控件的KeyPressKeyPress事件。事件。当当KeyPressKeyPress事件发生时，可获得当前所按键的字事件发生时，可获得当前所按键的字 符符ASCIIASCII码值码值，如：按下回车键
5、时，可获得该键的字，如：按下回车键时，可获得该键的字 符符ASCIIASCII码值码值1313。KeyPressKeyPress事件可用于文本框、图片框、命令按钮事件可用于文本框、图片框、命令按钮 、复选框、列表框、组合框、滚动条、窗体等有关控、复选框、列表框、组合框、滚动条、窗体等有关控 件。件。KeyPressKeyPress事件过程事件过程在窗体上画一个控件，双击该控件，进入程序代码窗口后在窗体上画一个控件，双击该控件，进入程序代码窗口后 ，从，从“ “过程过程” ”框中选取框中选取KeyPressKeyPress，即可定义，即可定义KeyPressKeyPress事件过程事件过程 。一
6、般格式为：一般格式为： Private Sub Private Sub Form_KeyPress(KeyAsciiForm_KeyPress(KeyAscii As Integer) As Integer)Private Sub Private Sub object_KeyPress(KeyAsciiobject_KeyPress(KeyAscii As Integer) As Integer)形参形参KeyAsciiKeyAscii，其参数值是当，其参数值是当KeyPressKeyPress事件发生时，由事件发生时，由 系统自动传递过来的当前所按键的系统自动传递过来的当前所按键的Ascii
7、Ascii码值。例如，当按下码值。例如，当按下 “ “A”A”键，系统传递给形参键，系统传递给形参KeyAsciiKeyAscii的值为的值为6565；而当按下；而当按下“ “a”a”键时键时 ，则系统传递给，则系统传递给KeyAsciiKeyAscii的值为的值为9797。窗体的事件过程窗体的事件过程控件的事件过程控件的事件过程KeyPressKeyPress事件能识别字母、数字、标点、事件能识别字母、数字、标点、 EnterEnter、BackSpaceBackSpace等键盘上的字符；等键盘上的字符；功能键用其它两个事件识别；功能键用其它两个事件识别； 如何获得按下字符的如何获得按下字符
8、的AsciiAscii参数：参数：KeyAsciiKeyAscii As Integer As Integer程序中可以直接引用程序中可以直接引用 KeyAsciiKeyAsciiKeyAsciiKeyAscii代表按键的相对应的代表按键的相对应的AsciiAscii码值码值常用常用AsciiAscii码码(10(10进制进制) )表表AsciiAscii码码码码键 48-5748-570-90-9 65659090A-ZA-Z 97-12297-122a-za-z 3247 5864 9196 123126各种标点符号1313EnterEnter8 8BackSpaceBackSpace9
9、9TabTabASCII码编码范围：0127共 128个。031和127为控制符 ，无法打印。KeyPress 事件识别范围：数 字键、字符键、标点符号键。 控制键只识别： ENTER、 TAB 和 BACKSPACE 键。 注：表内的为KeyPressKeyPress事件能 接收的键。应用：对输入的数据进行验证、限制和修改应用：对输入的数据进行验证、限制和修改 1.1.限制数据输入限制数据输入 文本框中只能接收文本框中只能接收“0”0”“9”9”的数字字符。的数字字符。 Sub Sub T Text1_KeyPress(KeyAscii As Integer)ext1_KeyPress(Ke
10、yAscii As Integer)If If KeyAsciiKeyAscii 57 Then 57 ThenM Msgboxsgbox “ “请输入请输入0-90-9之间的数字之间的数字”KeyAsciiKeyAscii = 0 = 0 End IfEnd If End SubEnd Sub2.2.用用KeyPressKeyPress捕捉击键动作捕捉击键动作 Sub Sub T Text1_KeyPress(KeyAscii As ext1_KeyPress(KeyAscii As Integer)Integer)If If KeyAsciiKeyAscii = =1313 Then Th
11、enPrint Print T Text1.ext1.T TextextEnd If End If End SubEnd Sub3.3.用用KeyPressKeyPress过程输入口令显示过程输入口令显示“*”“*” Dim Dim PswPsw As String As String Sub Sub T Text1_KeyPress(KeyAscii As Integer)ext1_KeyPress(KeyAscii As Integer)If If KeyAsciiKeyAscii =65 And =65 And KeyAsciiKeyAscii = HScroll1.Value + HS
12、croll1.SmallChange ThenHScroll1.Value = HScroll1.Value + HScroll1.SmallChangeEnd IfCase 220 “”键If HScroll1.Max = HScroll1.Value + HScroll1.LargeChange ThenHScroll1.Value = HScroll1.Value + HScroll1.LargeChangeEnd IfEnd SelectLabel1.Caption = Str$(HScroll1.Value)End Sub1)1)鼠标事件与事件过程鼠标事件与事件过程 ClickCli
13、ck、DblClickDblClick、MouseMoveMouseMove、 MouseDownMouseDown 、 MouseUpMouseUp等事件。等事件。 鼠标发生某个动作时触发相应的事件。鼠标发生某个动作时触发相应的事件。注意：有时一个动作会触发若干个事件。注意：有时一个动作会触发若干个事件。 鼠标单击时，依次引发鼠标单击时，依次引发 MouseDownMouseDown、MouseUpMouseUp、 ClickClick事件，即事件，即ClickClick事件是包括在鼠标按下和放开的事件是包括在鼠标按下和放开的 一个组合过程中。一个组合过程中。10.3 10.3 鼠标事件鼠标
14、事件MouseDownMouseDown事件事件 Sub Sub Form_MouseDown(ButtonForm_MouseDown(Button As Integer, Shift As Integer, Shift As As Integer,XInteger,X As Single, Y As As Single, Y As Single)Single)MouseUpMouseUp事件事件 Sub Sub Form_MouseUp(ButtonForm_MouseUp(Button As Integer, Shift As As Integer, Shift As Integer,X
15、Integer,X As Single, Y As As Single, Y As Single)Single) MouseMoveMouseMove事件事件 Sub Sub Form_MouseMove(ButtonForm_MouseMove(Button As Integer, Shift As Integer, Shift AsAsInteger,XInteger,X As Single, Y As As Single, Y As Single)Single)发生在窗体上的事件过程发生在窗体上的事件过程MouseDownMouseDown事件事件 Sub Sub object_Mous
16、eDown(Buttonobject_MouseDown(Button As Integer, Shift As As Integer, Shift As Integer,XInteger,X As Single, Y As As Single, Y As Single)Single)MouseUpMouseUp事件事件 Sub Sub object_MouseUp(Buttonobject_MouseUp(Button As Integer, Shift As As Integer, Shift As Integer,XInteger,X As Single, Y As As Single, Y As Single)Single) MouseMoveMouseMove事件事件 Sub Sub object_MouseMove(Buttonobject_Mo
