全国二级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 Comman