vb键盘与鼠标事件过程.pptVIP

* vb键盘与鼠标事件过程 vb键盘与鼠标事件过程vb键盘与鼠标事件过程第11章 键盘与鼠标事件过程 除了响应鼠标的单击（Click）或双击（DblClick）事件以外，Visual Basic应用程序还能响应多种鼠标事件和键盘事件。例如，窗体、图片框与图象控件都能检测鼠标指针的位置，并可判定其左、右键是否已按下，还能响应鼠标按钮与Shift、Ctrl或Alt键的各种组合。利用键盘事件可以编程响应多种键盘操作，也可以解释、处理ASCII字符。 第一页，共24页。 第11章 键盘与鼠标事件过程 除了响应鼠标的单击（Click）或双击（DblClick）事件以外，Visual Basic应用程序还能响应多种鼠标事件和键盘事件。例如，窗体、图片框与图象控件都能检测鼠标指针的位置，并可判定其左、右键是否已按下，还能响应鼠标按钮与Shift、Ctrl或Alt键的各种组合。利用键盘事件可以编程响应多种键盘操作，也可以解释、处理ASCII字符。 第二页，共24页。 11.1 键盘事件 键盘事件是指能够响应各种按键操作的KeyDown、KeyUp及KeyPress事件，可以把编写响应击键事件的应用程序看作是编写键盘处理器。键盘处理器可在控件级和窗体级这两个层次上工作。有了控件级（低级）处理器就可对特定控件编程。例如，可能希望将Textbox这个控件中的输入文本都转换成大写字符。而有了窗体级处理器就可使窗体首先响应击键事件，于是就可将焦点转换成窗体的控件并重复或启动事件。 第三页，共24页。 11.1.1 KeyPress事件 KeyPress事件当用户按下和松开一个ASCII字符键时发生。该事件被触发时，被按键的ASCII码将自动传递给事件过程的KeyAscii参数。在程序中，通过访问该参数，即可获知用户按下了哪一个键，并可识别字母的大小写。其语法格式为： Private Sub 对象名_KeyPress(keyascii As Integer) 其中参数keyascii是被按下字符键的标准ASCII码。对它进行改变可给对象发送一个不同的字符。将keyascii改变为0时可取消击键，这样一来对象便接收不到字符。 KeyPress事件可以引用任何可打印的键盘字符、来自标准字母表的字符或少数几个特殊字符之一的字符与〈Ctrl〉键的组合、〈Enter〉或〈Backspace〉键。 第四页，共24页。 【例11-1】可以显示按键及其ASCII码的程序（如图11-1）。 图11-1 KeyPress事件接受的按键 程序的代码部分： 复选框的Click事件代码： Private Sub Check1_Click() Text1.SetFocus End Sub 第五页，共24页。 文本（输入）框Text1的KeyPress事件代码： Private Sub Text1_KeyPress(KeyAscii As Integer) Text2.Text = KeyAscii Select Case KeyAscii Case 0 To 7, 9 To 12, 14 To 26, 28 To 31 Text1.Text = Text3.Text = Ctrl+ Chr(64 + KeyAscii) Case 8 Text3.Text = Ctrl+ Chr(64 + KeyAscii) 或 退格键 Case 13 Text1.Text = Text3.Text = Ctrl+ Chr(64 + KeyAscii) 或 回车键 Case 27 Text1.Text = Text3.Text = Ctrl+ Chr(64 + KeyAscii) 或 Esc键 Case Else Text3.Text = Chr(KeyAscii) End Select If Check1.Value = 0 Then KeyAscii = 0 End If End Sub 第六页，共24页。 11.1.2 KeyDown和KeyUp事件 KeyDown和KeyUp事件是当一个对象具有焦点时按下或松开一个键时发生的。当控制焦点位于某对象上时，按下键盘中的任意一键，则会在该对象上触发产生KeyDown事件，当释放该键时，将触发产生KeyUp事件，之后产生KeyPress事件。其语法格式为： Private Sub 对象名_KeyDown(KeyC