全国二级VB教程(补充内容).pptVIP

举例：设计一个能对输入值进行限止、分流的应用程序。其中阿拉伯数字0（ASCII码 48）- 9（ASCII码 57）在Text1中回显。除此不充许，仅在Text2中显示。 下转：第三部分 键盘与鼠标事件 - 3 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then MsgBox “不充许！在Text2中显示, 16 Text2.Text = Text2 Chr(KeyAscii) Else Text1.Text = Text1 Chr(KeyAscii) End If KeyAscii = 0 End Sub 5、在默认情况下，控件的键盘事件优于窗体的键盘事件，若需要窗体先接收键盘事件，则应把窗体的KeyPreview属性设置为 True（后面讲述的按键按下 KeyDown 与按键抬起 KeyUp 情况相同）。 举例4： 下转：第三部分 键盘与鼠标事件 - 4 Private Sub Form_KeyPress(KeyAscii As Integer) 窗体的 KeyPreview 暂不设置！ Print Chr(KeyAscii); KeyAscii End Sub Private Sub Command1_Click() Text1 = 学习VB” End Sub Private Sub Command2_Click() End End Sub 无法显示 7、KeyPress事件可作用的对象有： 窗体、文本框、滚动条、列表框、图片框、复选框 组合框、命令按钮以及与文件有关的控件。 不能响应该事件（即无键盘焦点）的有：标签框、框架、图像框、时钟等。 （二）键盘的KeyDown(按下)和KeyUp(抬起）事件 1、 KeyDown、KeyUp事件的一般格式： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) End Sub 2、事件参数：二种形式 1）KeyCode As Integer, Shift As Integer 用于单个控件(常 用) 2）Index As Integer 用于控件数组(不常用) 3、参数含义： 复习：我们已经学过 KeyPress (KeyAscii) 返回“字符”的Ascii码的值 例键 A:若键入的是大写的 A，则值为 65 若键入的是小写的 a，则值为 97 KeyDown (KeyCode) 返回“键”的值 KeyUp “键”的值以大写的字母的Ascii码为准。例键“A”，无论是“A”还是“a”，值只有65。也就是说：KeyCode只认“键”（不分大小写）。 注意：大键盘上的数字键与小键盘（数字键盘）上相同的数字键的 KeyCode 是不一样的。对于有上档字符和下档字符的键，其 KeyCode 均为下档字符的Ascii码值。以下是 KeyCode 与 KeyAscii 比较： 键（字符） KeyCode KeyAscii 键（字符） KeyCode KeyAscii A H41 H41 上档 % H35 H25 a H41 H61 下档 5 H35 H35 B H42 H42 1(大键盘上）H31 H31 b H42 H62 1(数字键盘上）H61 H31 举例5：编程试求KeyCode的值。注：《计算机应用基础》上无此参数 Private Sub Form_KeyDown(KeyCode As_ Integer, Shift As Integ