键盘与鼠事标件过程.pptxVIP

Visual Basic 6.0;第10章 键盘与鼠标事件过程;键盘事件;KeyDown事件发生; ;按下某键;键盘事件与其它事件;10. 1 KeyPress事件;KeyPress事件过程 在窗体上画一个控件，双击该控件，进入程序代码窗口后，从“过程”框中选取KeyPress，即可定义KeyPress事件过程。 一般格式为： Private Sub Form_KeyPress(KeyAscii As Integer) Private Sub object_KeyPress(KeyAscii As Integer) 形参KeyAscii，其参数值是当KeyPress事件发生时，由系统自动传递过来的当前所按键的Ascii码值。例如，当按下“A”键，系统传递给形参KeyAscii的值为65；而当按下“a”键时，则系统传递给KeyAscii的值为97。 ;KeyPress事件能识别字母、数字、标点等键盘上 的字符键。此外还识别Enter、BackSpace、Tab 等键，其它功能键不能识别。 如何获得按下字符的Ascii 参数：KeyAscii As Integer 程序中可以直接引用 KeyAscii KeyAscii代表按键的相对应的Ascii码值;常用Ascii码(10进制)表;应用：对输入的数据进行验证、限制和修改 1.限制数据输入 文本框中只能接收“0”～“9”的数字字符。 Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then Msgbox “请输入0-9之间的数字” KeyAscii = 0 End If End Sub;2.用KeyPress捕捉击键动作 Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =13 Then Print Text1.Text Text2.SetFocus End If End Sub ;3.用KeyPress过程输入口令显示“*” Dim Psw As String Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =65 And KeyAscii =122 Then Psw=Psw chr(KeyAscii) KeyAscii=42 ‘ 42为字符“*”的Ascii码值 End If End Sub ;Private Sub Form_Load() Form1.KeyPreview = True End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Form1显示:; Chr(KeyAscii); 其Ascii码=; KeyAscii KeyAscii = KeyAscii + 1 改变Ascii码值，使文本框接受的与窗体不同 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Print Text1显示:; Chr(KeyAscii); 其Ascii码=; KeyAscii End Sub; 程序运行过程中，当按下键盘某个键时，则产生KeyDown事件，而放开该键时产生KeyUp事件。按下某个键也会发生KeyPress事件，但与KeyDown事件是不一样的。KeyDown和KeyUp事件???回的是键盘的直接状态，即该键的“扫描码”值。;KeyDown和KeyUp事件过程 Sub Form_KeyDown(keycode As Integer, shift As Integer) Sub Form_KeyUp(keycode As Integer, shift As Integer) Sub object_KeyDown(keycode As Integer,shift As Integer) Sub object_KeyUp(keycode As Integer,shift As Integer) 两个参数：1.键盘扫描码 2.返回Shift、Ctrl、Alt键的状态;参数KeyCode：键盘扫描码 由于字母键不论大写还是小写都是按同一个键，所以按下每个字母键时的 KeyCode 值只能为一个值，如按下“A”与按下“a”得到的KeyCode值都是65（有上下档键的字符取下档键的Ascii码值）。 Shift：记录Shift、Ctrl、