(9.56)--VB面向对象程序设计键盘事件.ppt

7.2 7.2 键盘与鼠标键盘与鼠标7 7.2 2 键盘与鼠标键盘与鼠标v 键盘事件键盘事件键盘事件键盘事件KeyPressKeyPress事件事件事件事件KeyDownKeyDown事件事件事件事件KeyUpKeyUp事件事件事件事件7.2.1 键盘v 键盘事件键盘事件键盘事件键盘事件KeyPressKeyPress事件过程事件过程事件过程事件过程Sub Form_KeyPress(KeyAscii As Integer)Sub object_KeyPress(index As Integer,KeyAscii As Integer)说明：明：（1）Index As Integer是可是可选项，只用于控件数，只用于控件数组。若不是控。若不是控件数件数组，是，是单个控件，个控件，该项省略。省略。（2）KeyAscii参数将参数将得到所按得到所按键的的ASCII码。例如，按下。例如，按下“A”键，KeyAscii返回的是返回的是65。注意：注意：对于于不会不会产生生ASCII码的按的按键，如方向，如方向键，KeyPress事事件不会被触件不会被触发。利用。利用KeyPress事件，可以事件，可以对输入的数据入的数据进行限行限制。制。7 7.2 2 键盘与鼠标键盘与鼠标例例7.7编写一个程序，控制在一文本框中只能写一个程序，控制在一文本框中只能输入大写字母，入大写字母，如果如果输入其他字符，入其他字符，则响响铃（Beep），并消除），并消除该字符。字符。分析：不管在文本框中分析：不管在文本框中输入什么字符，都会触入什么字符，都会触发KeyPress事件，事件，并得到参数并得到参数KeyAscii的的值。如果某如果某键的的ASCII码小于小于“A”的的ASCII码或大于或大于“Z”的的ASCII码，说明按明按键不是大写字母，那么就要将不是大写字母，那么就要将KeyAscii的的值设置置为0，而，而ASCII码为0的字符的字符为空，即不能空，即不能输入入任何字符，任何字符，这样就可以限制在文本框中只能就可以限制在文本框中只能输入大写字母。入大写字母。7 7.2 2 键盘与鼠标键盘与鼠标v 键盘事件键盘事件键盘事件键盘事件KeyPressKeyPress事件事件事件事件KeyDownKeyDown事件事件事件事件KeyUpKeyUp和和和和KeyDownKeyDown事件过程事件过程事件过程事件过程Sub Form_KeyDown(keycode As Integer,shift As Integer)Sub object_KeyDown(index As Integer,keycode As Integer,shift As Integer)7 7.2 2 键盘与鼠标键盘与鼠标v 键盘事件键盘事件键盘事件键盘事件KeyPressKeyPress事件事件事件事件KeyDownKeyDown事件事件事件事件KeyUpKeyUp事件事件事件事件Sub Form_KeyUp(keycode As Integer,shift As Integer)Sub object_KeyUp(index As Integer,keycode As Integer,shift As Integer)7 7.2 2 键盘与鼠标键盘与鼠标ShiftShiftShiftShift参数参数参数参数b b2 2b b1 1b b0 0b b0 0为为为为1 1：按下了：按下了：按下了：按下了ShiftShift键键键键b b1 1为为为为1 1：按下了：按下了：按下了：按下了CtrlCtrl键键键键b b2 2为为为为1 1：按下了：按下了：按下了：按下了AltAlt键键键键使用符号常数：使用符号常数：使用符号常数：使用符号常数：1 1vbShiftMaskvbShiftMask 2 2vbCtrlMaskvbCtrlMask4 4vbAltMaskvbAltMask 说明：说明：说明：说明：7 7.2 2 键盘与鼠标键盘与鼠标KeyCodeKeyCodeKeyCodeKeyCode：键盘扫描码键盘扫描码键盘扫描码键盘扫描码KeyAsciiKeyAsciiKeyAsciiKeyAscii：字符字符字符字符ASCIIASCIIASCIIASCII码码码码KeycodeKeycode与与与与 keyasciikeyascii的区别：的区别：的区别：的区别：KeyPressKeyPressKeyDownKeyDown和和KeyUpKeyUp事件事件发发生的生的时间时间输输入一个入一个ASCIIASCII字符字符按任意一个按任意一个键键参数参数值值KeyAsciiKeyAscii接收到接收到字符的字符的ASCIIASCII值值KeyCodeKeyCode接收到接收到键键的的扫扫描描码码按按Shift+AShift+A时时事件事件发发生的次数生的次数事件事件发发生一次生一次事件事件发发生两次生两次按按Shift+AShift+A时时参数参数值值(键盘处键盘处于大写状于大写状态态)9797第一次是第一次是1 16 6第二次是第二次是6565按按Shift+AShift+A时时参数参数值值(键盘处键盘处于小写状于小写状态态)6565第一次是第一次是1 16 6第二次是第二次是65657 7.2 2 键盘与鼠标键盘与鼠标分析：由于当前窗体没有其他对象，那么控制焦点只能置于分析：由于当前窗体没有其他对象，那么控制焦点只能置于分析：由于当前窗体没有其他对象，那么控制焦点只能置于分析：由于当前窗体没有其他对象，那么控制焦点只能置于窗体上，即操作的对象是窗体，按下键盘上的任意键，便会窗体上，即操作的对象是窗体，按下键盘上的任意键，便会窗体上，即操作的对象是窗体，按下键盘上的任意键，便会窗体上，即操作的对象是窗体，按下键盘上的任意键，便会对窗体引发对窗体引发对窗体引发对窗体引发KeyDownKeyDownKeyDownKeyDown事件。按下事件。按下事件。按下事件。按下AltAltAltAlt键，窗体的键，窗体的键，窗体的键，窗体的KeyDownKeyDownKeyDownKeyDown事件事件事件事件过程的过程的过程的过程的ShiftShiftShiftShift参数的十进制值为参数的十进制值为参数的十进制值为参数的十进制值为4 4 4 4、KeyCodeKeyCodeKeyCodeKeyCode参数的值为字母参数的值为字母参数的值为字母参数的值为字母QQQQ的的的的ASCIIASCIIASCIIASCII码。码。码。码。例例例例7.87.87.87.8假设当前窗体没有其他对象，编写一个程序，当假设当前窗体没有其他对象，编写一个程序，当假设当前窗体没有其他对象，编写一个程序，当假设当前窗体没有其他对象，编写一个程序，当按下按下按下按下Alt+QAlt+QAlt+QAlt+Q组合键时终止程序的运行。组合键时终止程序的运行。组合键时终止程序的运行。组合键时终止程序的运行。7 7.2 2 键盘与鼠标键盘与鼠标