键盘与鼠标事件

第9章键盘与鼠标事件 章节分布 8 1键盘事件 KeyPress事件过程 KeyDown事件过程 KeyUp事件过程 键盘事件 8 1 1KeyPress事件过程 触发时刻 当按下键盘上某个键时 将触发KeyPress 服务对象 窗体 复选框 组合框 命令按钮 列表框 图片框 文本框 滚动条以及与文件有关的控件 语句格式 PrivateSubText1 KeyPress KeyAsciiAsInteger EndSub应用举例Example8 1 在窗体上画一个文本框 然后编写程序 程序运行后 如果按下键盘上的A B C D键 则在文本框中显示E F D H PrivateSubText1 KeyPress KeyAsciiAsInteger SelectCaseKeyAsciiCase65 66 68KeyAscii KeyAscii 4Case67KeyAscii KeyAscii 1EndSelectEndSub 8 1 2KeyDown事件过程 触发时刻 按下键盘上的某个键时 触发KeyDown 与KeyPress不同 KeyDown将返回的是键盘的直接状态 语句格式 PrivateSubText1 KeyDown KeyCodeAsInteger ShiftAsInteger EndSub参数说明 KeyCode 按键的键位值 例如 当按下 a 时 KeyAscii值为97 KeyCode值为65 Shift Shift表示3个转换键的状态 这3个键是Ctrl Alt以及Shift键 它们分别用3位二进制数表示 即如下所示 当然 Shift值可以由以上3种值组合而成 表示同时按下多个键 例如 如同时按下ctrl和shift键 则Shift 1 2 即3 应用举例Example8 2 编写一个程序 当同时按下Alt Shift和F6键时 在窗体上显示 再见 并终止程序的运行 PrivateSubForm KeyDown KeyCodeAsInteger ShiftAsInteger IfKeyCode H75AndShift 5ThenPrint 再见 EndEndIfEndSub 8 1 3KeyUp事件过程 触发时刻 当松开键盘上的某个键时 触发KeyUp 语句格式 PrivateSubText1 KeyUp KeyCodeAsInteger ShiftAsInteger EndSub其中 参数的含义同KeyDown事件过程 应用举例Example8 3 演示KeyUp事件过程 PrivateSubForm KeyUp KeyCodeAsInteger ShiftAsInteger SelectCaseKeyCodeCase H70Print 松开F1键 Case H71Print 松开F2键 Case H72Print 松开F3键 EndSelectEndSub 8 2鼠标事件过程 在以前的例子中曾多次使用鼠标事件 即单击 Click 事件 实际上 除了常用的Click事件过程外 VisualBasic还提供了以下3个鼠标事件过程 按下鼠标键事件过程SubForm MouseDown ButtonAsInteger ShiftAsInteger xAsSingle yAsSingle EndSub松开鼠标键事件过程SubForm MouseUp ButtonAsInteger shiftAsInteger xAsSingle yAsSingle EndSub 移动鼠标键事件过程SubForm MouseMove ButtonAsInteger ShiftAsInteger xAsSingle yAsSingle EndSub参数说明 x y 鼠标光标当前的位置 Shift 同键盘事件过程中的Shift参数含义 Button 被按下的鼠标键 含义如下 需要注意的是 在MouseDown和MouseUp中 Button值不能进行求和 即Button值只能是3个值中的某一个 它不能反映是否同时按下了鼠标上的多个键 对于MouseMove来说 可以通过Button参数判断按下一个或同时按下多个键 MouseDown IfButton 3Then 同时按下左 右两键 MouseMove IfButton 3Then 同时按下左 右两键 MouseMove If ButtonAnd3 3Then 同时按下左 右两键 错误 在MouseDown中 不能对Button进行累加 正确 在