8 键盘与鼠标事件.ppt

第八章键盘与鼠标事件 除了响应鼠标的单击 Click 双机 DblClick 事件以为 VB还能响应多种鼠标和键盘事件 主要内容 8 1键盘事件8 2鼠标事件 8 1键盘事件 键盘事件 能够响应按键操作的事件 KeyDownKeyUpKeyPress 8 1键盘事件 KeyPress事件 KeyPress事件 当用户按下和松开一个ASC 字符键时发生 该事件被触发时 被按键的ASC 码将自动传给事件过程的KeyAscii参数 在程序中 通过访问该参数 即可获知用户按下了哪个键 语法格式 对象名 KeyPress keyasciiAsInteger keyascii 被按下字符的标准ASC 码取值为零则取消击键可识别字母的大小写 8 1键盘事件 KeyPress事件 0 9 48 57A Z 65 90a z 97 122Esc 27Enter 13F1 F12 112 123 TAB键 9Alt键 18空格键 32退格键 8Shift键 16Ctrl键 17 例8 1 显示按键及其ASCII码 8 1键盘事件 KeyDownKeyUp事件 当一个对象具有焦点时按下或松开一个键时发生的事件 当控制焦点位于某对象上时 按下键盘中的任意一键 则会在该对象上触发产生KeyDown事件 当释放该键时触发KeyUp事件 之后产生KeyPress事件 8 1键盘事件 KeyDownKeyUp事件 语法格式 对象名 KeyDown KeyCodeAsInteger ShiftAsInteger 对象名 KeyUp KeyCodeAsInteger ShiftAsInteger KeyCode参数 按键的扫描代码主要反映物理键位 与键盘的大小写状态无关 但可区分主键盘上的数字键与小键盘上的数字键如果按的是两个以上的组合键 KeyCode将先后得到所有这些不同物理位置键的扫描代码 8 1键盘事件 KeyDownKeyUp事件 语法格式 对象名 KeyDown KeyCodeAsInteger ShiftAsInteger 对象名 KeyUp KeyCodeAsInteger ShiftAsInteger Shift参数 其值为1 2 4时分别表示Shift Ctrl Alt键被按下 三个数的部分和表示三个键被同时按下 8 1键盘事件 KeyDownKeyUp事件 对于Shift参数的测试 也可以使用它定义的内部常数 vbShiftMask1Shift被按下vbCtrlMask2Ctrl被按下vbAltMask4Alt被按下 8 1键盘事件 KeyDownKeyUp事件 例2 可以测试功能键与控制键的程序 界面设计如下 运行结果 8 1键盘事件 KeyPreview属性 keyPreview属性返回或设置一个值 决定释放在控件的键盘事件 KeyDown KeyUp KeyPress 之前激活窗体的键盘事件 语法 对象名 keyPreview boolean 例3 编写程序 当同时按下Shift和F6时 在窗体上显示 再见 并终止程序的运行 8 2鼠标事件 单击Click双击DblClickMouseDownMouseUpMouseMove 由MouseDown和MouseUp组成 按下或释放鼠标按钮时发生MouseDown和MouseUp事件 8 2 1MouseDown和MouseUp事件 语法格式 参数 x y 鼠标当前位置Shift 整数 在button指定的按钮被按下或释放时 Shift Ctrl和Alt键的状态能区分鼠标的左右键 8 2 1MouseDown和MouseUp事件 参数 button 1鼠标左键button 2鼠标右键button 4鼠标中键 8 2 1MouseDown和MouseUp事件 8 2 2MouseMove事件 移动鼠标时发生语法 说明 事件伴随鼠标移动连续不断发生 例4 建立如下界面 设置属性 鼠标按下时在鼠标位置打印 鼠标释放时在鼠标位置打印 当选中复选框是 鼠标移动时画 练习 窗体上有一个文本框Text1和一个标签Label1 下面 事件过程可以在标签上显示出用户在文本框输入字符的ASCII码 A PrivateSubText1 KeyPress KeyAsciiAsInteger Label1 Caption keyAsciiEndSubB PrivateSubText1 KeyDown KeyAsciiAsInteger Label1 Caption keyAsciiEndSubC PrivateSubText1 KeyUp KeyAsciiAsInteger Label1 Caption keyAsciiEndSubD PrivateSubText1 KeyPress AsciiAsInteger Label1 Caption AsciiEndSub 练习 在窗体上有一个文本框Text1 编写如下程序 程序运行后 如果在文本框内按字母A键 然后单击窗体 则在窗体上显示的内容是 练习 假设有如下事件过程 则以下描述错误的是 A 该过程的功能是弹出一个菜单B popFo