键盘和鼠标事件当用户按下或松开键盘上的某个 键时触发的事件是键盘事件； 当用户单击、双击或拖动鼠标时 ，触发的事件是鼠标事件。常用的与键盘有关的事件:KeyDown事件：按键按下时触发KeyPress事件：按键按下时触发 KeyUp事件 ：按键松开时触发u按键按下时先触发KeyDown事件，后触发 KeyPress事件uKeyUp事件触发在KeyPress事件之后 键盘事件lKeyPress事件中得到的是按键对应的字符 的ASCII码(KeyAscii) lKeyUp,KeyDown事件中得到的是按键对应 的键号(KeyCode)，键盘104个键都对应着 唯一的键号。对象的KeyPress事件过程的一般格式为：Privat Sub Object_KeyPress(KeyAscii As Integer)语句块End SubKeyPress事件l如果对象是控件数组中的一个，则 KeyPress格式变为：lPrivate Sub Object_KeyPress(Index As Integer, KeyAscii As Integer)l 语句块lEnd SublIndex代表控件数组中的索引值。例如 ：利用KeyPress事件对键盘输入的值取舍。 程序运行后要求输入大写字母，如果输入的是其 它字符就响铃报警，设计界面如下图：代码如下：Private Sub TxtUCase_KeyPress(KeyAscii As Integer)If KeyAscii 90 Then BeepKeyAscii = 0 为空操作，不满足条件的字符在文本框中不回显End If End Sub Dim PWord As String 口令 Dim TryCount As Integer 重 输次数 Private Sub Form_Load()PWord = “TryCount = 0 End Sub例：利用KeyPress事件实现口令的验证,口令设定为“admin”。Private Sub TxtPWD_KeyPress(KeyAscii As Integer)If KeyAscii 5 ThenBeepKeyAscii = 0ElsePWord = PWord 6.11;6.16;6.19;6.20