第9章 键盘和鼠标事件.pptVIP

第9章:键盘和鼠标事件 9.1键盘事件 9.2鼠标事件 9.3对象拖放 * * 常用的与键盘有关的事件: KeyPress事件:按键时触发KeyDown事件 KeyDown事件:按键按下时触发KeyDown事件 KeyUp事件 :按键松开时触发KeyUp事件 按键按下时先触发KeyDown事件，后触发KeyPress事件 KeyUp事件触发在KeyPress事件之后 KeyPress事件中得到的是按键对应的字符的ASCII码(KeyAscii) KeyDown事件中得到的是按键对应的键号(KeyCode) 9.1 键盘事件 9.1.1 KeyPress事件 对象的KeyPress事件过程的一般格式为： Private Sub Object_KeyPress(KeyAscii As Integer) 语句块 End Sub 如果对象是控件数组中的一个，则KeyPress格式变为： Private Sub Object_KeyPress(Index As Integer, KeyAscii As Integer) 语句块 End Sub 例如 ：利用KeyPress事件对键盘输入的值取舍 Private Sub TxtUCase_KeyPress(KeyAscii As Integer) If KeyAscii 65 Or KeyAscii 91 Then Beep KeyAscii = 0 End If End Sub 例如：利用KeyPress事件实现密码或口令的验证 9.1.2 KeyDown和KeyUp事件 KeyDown和KeyUp事件中返回的是KeyCode(键号) ，同一个键上的两个字符，KeyCode是一样的，可通过Shift参数来确定上档键的状态 对象的KeyDown和KeyUp事件过程的一般格式为： Private Sub Object_KeyDown(KeyCode As Integer, Shift As Integer) 语句块 End Sub ?Private Sub Object_KeyUp(KeyCode As Integer, Shift As Integer) 语句块 End Sub 注意： ①参数KeyCode是按键的键号，Shift是三个转换键的状态，包括Alt 、Ctrl 和Shift，其值 0~7 Alt Ctrl Shift 0 0 0 1 1 1 ②不能显示的功能键和转换键盘，则只会触发KeyDown事件，不会触发KeyPress事件 ③大部分的按键在VB中都定义了常量，例如F1键的常量是vbKeyF1，Tab键的常量是vbKeyTab，Home键的常量是vbKeyHome Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1: Print “按下” ShiftStatus(Shift) “+功能键F1 Case vbKeyHome: Print “按下” ShiftStatus(Shift) “+功能键Home Case vbKeyPageUp: Print “按下” ShiftStatus(Shift) “+功能键PageUp End Select End Sub Function ShiftStatus(Shift As Integer) As String Select Case Shift Case 0: s = Case 1: s = Shift Case 2: s = Ctrl Case 3: s = Shift+Ctrl Case 4: s = Alt Case 5: s = Shift+Alt Case 6: s = Ctrl+Alt Case 7: s = Shift+Ctrl+Alt End Select ShiftStatus = s End Function 注意： ①默认情况下，窗体上控件的键盘事件优先于窗体的键盘事件，因此在发生键盘事件时，总是先激活控件的键盘事件。如果希望窗体先接收键盘事件，则必须把窗体的KeyPreview属性设置为True，否则不能激活窗体的键盘事件 ②在键盘事件可以对控制键进行处理，比如光标键，以起到对程序进行控制的作用，即没有鼠标的情况