《鼠标键盘菜单》PPT课件.ppt

第10章键盘事件 鼠标事件 菜单 主要内容 键盘与鼠标事件过程KeyPress事件KeyDown KeyUp鼠标事件鼠标光标的形状菜单程序设计VB中的菜单菜单编辑器建立菜单弹出式菜单 KeyPress事件 1 Keypress事件 此事件当用户按下和松开一个键盘上的键时发生 格式 PrivateSub控件名 KeyPress indexAsInteger keyasciiAsInteger 说明 可用于窗体 文本框 复选框 组合框 命令按钮 列表框 图片框 滚动条等具有焦点的控件 Keyascii参数的值是被按下的键的ASCII值 它是以值为准 比如 按下大键盘上的1和按下小键盘上的1都返回1的Ascii码 按下同一个键 但在大小写不同时 返回不同的值 一个窗体仅在它没有可视的且可获得焦点的控件时才能接收该事件 但是当窗体的KeyPreview属性被设置为True时 窗体是可以接收该事件的 但不影响其它控件的KeyPress事件的接收 例如 窗体上有一个文本框 当KeyPreview属性被设置为True时 在文本框中输入数据 每一次按键 都会先触发窗体的Keypress事件 再触发控件的Keypress事件 一个KeyPress事件可以引用任何可打印的键盘字符 可使用Chr KeyAscii 表达式将keyascii参数转变为一个字符 使用这下面命令修改KeyAscii参数的值将改变所显示的字符 KeyAscii Asc char 此事件不能识别下面的这些键 功能键 F1 F12 编辑键 指INSERT键 DELETE键或BACKSPACE键 定位键以及任何键和键盘换档键的组合等 KeyPress事件 2 举例 例1 将输入到文本框中的字符转换为大写 PrivateSubText1 KeyPress KeyAsciiAsInteger KeyAscii Asc UCase Chr KeyAscii EndSub KeyDown KeyUp事件 1 KeyDown和KeyUp事件 是当一个对象具有焦点时按下 KeyDown 或松开 KeyUp 一个键时发生的 格式 PrivateSub控件名 KeyDown indexAsInteger keycodeAsInteger shiftAsInteger PrivateSub控件名 KeyUp indexAsInteger keycodeAsInteger shiftAsInteger 说明 indexAsInteger 当控件为控件数组时有此参数 表示被触发控件的索引号 keycodeAsInteger 是一个键代码 它是一个Ascii码 但是它是以键为准 一个键一个码 例如 A和a是同一个值 以大写字母的Ascii值为准 由于是以键为准 所以 大键盘和小键盘上的数字键并不是同一值 例如 大键盘的1和小键盘的1不同值 对于有上下档的键 以下档键的值为准 shiftAsInteger 是在该事件发生时响应SHIFT CTRL和ALT键的状态的一个整数 分别是1 2和4 例如 如果CTRL和ALT这两个键都被按下 则shift的值为6 KeyDown KeyUp事件 例 当按下 键时 窗体上的滚动条的滚动块被移动 PrivateSubHScroll1 KeyDown KeyCodeAsInteger ShiftAsInteger IfKeyCode 188AndHScroll1 Value HScroll1 MinThenHScroll1 Value HScroll1 Value HScroll1 LargeChangeEndIfIfKeyCode 190AndHScroll1 Value 并且要考虑是否滚动框处于最高或最低的位置 然后进行滚动条值属性的修改 在当前Value值上增加或者减少 例 当按下Alt P显示照片 当放手时关闭显示 PrivateSubForm Load Form1 KeyPreview TrueEndSubPrivateSubForm KeyDown KeyCodeAsInteger ShiftAsInteger IfKeyCode 80AndShift 4ThenImage1 Visible TrueEndIfEndSubPrivateSubForm KeyUp KeyCodeAsInteger ShiftAsInteger IfKeyCode 80AndShift 4ThenImage1 Visible FalseEndIfEndSub 鼠标事件 1 鼠标的事件按下鼠标事件 格式 PrivateSubForm MouseDown ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle 松开鼠标事件 格式 PrivateSubForm MouseUp ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle 移动鼠标事件 格式 PrivateSubForm MouseMove ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle 上面的事件用于大多数控件 例如 窗体 复选框 命令按钮 单选按钮 框架 文本框 目录框 文件框 图像框 图片框 标签 鼠标事件 2 鼠标事件的参数 Button 事件发生时触发事件的鼠标键的值 此参数有3个值 常数 按钮 值描述vbLeftButton1左按钮被按下vbRightButton2右按钮被按下vbMiddleButton4中间按钮被按下Shift 鼠标触发事件的同时键盘上Ctrl Shift Alt键的状态 此参数的值和Keydown Keyup事件中的Shift参数一样的解释 可以组合 常数 换挡 值描述vbShiftMask1SHIFT键被按下vbCtrlMask2CTRL键被按下vbAltMask4ALT键被按下x y 鼠标触发事件时鼠标的坐标 鼠标事件 3 举例 例1 在鼠标的箭头所指过的地方画上彩色小圆圈 画以x y为圆心画出指定色号的圆 窗体名 Circle x y 半径 色号 此程序应该完成的是 当鼠标移动时 使用Circle方法绘制圆 圆的圆心为鼠标所指位置 PrivateSubForm MouseMove ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle Form1 Circle X Y 100 RGB Int Rnd 256 Int Rnd 256 Int Rnd 256 EndSub VB中的菜单 1 菜单分类 下拉式菜单 典型的窗口式菜单弹出式菜单 鼠标器右键单击后弹出的快捷菜单 菜单编辑器 1 进入菜单编辑器进入菜单编辑器有4种方法 执行 工具 菜单中的 菜单编辑器 命令使用热键Ctrl E使用工具栏中的 菜单编辑器 按钮在设计阶段 在窗体上单击鼠标右键 出现的快捷菜单上有 菜单编辑器 命令菜单编辑器分为3个区 上半部分为数据区 中间为编辑区 下半部分为菜单项显示区 建立菜单 菜单编辑器的用法 1 建立简单菜单 界面设计2 编写菜单代码 首先在窗体的设计状态下 单击要编写代码的菜单项 弹出式菜单 除了下拉式菜单 Windows还经常使用弹出式菜单 几乎在每个对象上单击鼠