8.菜单与键盘鼠标重点讲解.pptVIP

* * 例8.6：菜单的可用/不可用与隐藏： * 8.3.2 弹出式菜单（快捷菜单） 弹出式菜单独立于菜单栏而显示在窗体的浮动菜单，操作时使用右键。 在弹出式菜单上显示的内容与鼠标位置有关。 设计与普通菜单，仅该菜单名不可显示；要显示时使用PopupMenu方法弹出菜单。 * 8.3.2 弹出式菜单（快捷菜单） 语法格式： [窗体名.]PopupMenu 菜单名, flags, x, y 说明: 省略窗体名,将打开当前窗体的菜单; 菜单名是通过菜单编辑器设计的菜单的名称 Flags参数为一些常量数值的设置,包含位置常数和行为常数，表示弹出的位置和触发的键位置。 * 8.3.2 弹出式菜单（快捷菜单） 内部常数 位置常数 说明 vbPopupMenuLeftAlign 0(默认) 弹出菜单的左上角位于X vbPopupMenuCenterAlign 4 弹出菜单上框中央位于X vbPopupMenuRightAlign 8 弹出菜单的右上角位于X 内部常数 行为常数 说明 vbPopupMenuLeftButton 0(默认) 菜单接受左键单击 vbPopupMenuRightButton 2 菜单接受右键单击 两个常数可以相加或者以or相连 * 例8.7 在上例中增加弹出式菜单。 * * 作业：在窗体上打印字母，要求： 编写键盘keydown事件，按下shift时在窗体上打印黄色字符，按下ctrl时打印红色字符，按下alt时打印蓝色字符；同时按下shift、ctrl和alt则清除窗体 编写keyup事件，使之在松开按键时，字符颜色变成黑色。 * * 菜单与键盘鼠标编程 第8章 键盘鼠标事件与菜单制作 8.1 键盘事件 8.2 鼠标事件 8.3 菜单制作 * 8.1 键盘事件 键盘事件：能够响应按键操作的事件。 KeyDown KeyUp KeyPress * 8.1 键盘事件---KeyPress事件 KeyPress事件：当用户按下和松开一个ASCⅡ字符键时发生。该事件被触发时，被按键的ASCⅡ码将自动传给事件过程的KeyAscii参数。在程序中，通过访问该参数，即可获知用户按下了哪个键。 语法格式： 对象名_KeyPress(keyascii As Integer) keyascii：被按下字符的标准ASCⅡ码 取值为零则取消击键 可识别字母的大小写 * 例8.1：设计一个“简易抽奖机”，在组合框中输入号码，按“开始”按钮后可以得到中奖的号码。 * * 8.1 键盘事件---KeyDown KeyUp事件 当一个对象具有焦点时按下或松开一个键时发生的事件。 当控制焦点位于某对象上时，按下键盘中的任意一键，则会在该对象上触发产生KeyDown事件，当释放该键时触发KeyUp 事件，之后产生KeyPress事件。 * 8.1 键盘事件---KeyDown KeyUp事件 语法格式： 对象名_KeyDown(KeyCode As Integer, Shift As Integer) 对象名_KeyUp(KeyCode As Integer, Shift As Integer) KeyCode参数：用于返回被按键的扫描代码，主要反映物理键位，不区分字母大小写，但可区分主键盘上的数字键与小键盘上的数字键； Shift参数：其值为1/2/4时分别表示Shift/Ctrl/Alt键被按下，三个数的部分和表示三个键被同时按下 * 8.1 键盘事件---KeyDown KeyUp事件 符号常数： VbShiftMask：1 VbCtrlMask: 2 VbAltMask： 4 Shift And VbShiftMask为真 按下了Shift键 Shift And VbCtrlMask为真 按下了Ctrl键 Shift And VbAltMask为真 按下了Alt键 * 8.1 键盘事件---KeyDown KeyUp事件 例8.2：可以测试功能键与控制键的程序： 界面设计如下： 运行结果： * * 例8.3：给文本框的键盘按键事件编程，实现对几种字符的控制输入： 若用户输入数字0~9：将它们分别转换成中文数字零~玖； 若用户输入英文字母，一概将其转换为大写字母； 若用户输入“*”，将其转换成汉子“星”； 不允许输入符号“”。 * * 8.1 键盘事件 练习：执行下面程序，按下Alt键，输出结果是： Private Sub Form_KeyDown(KeyCode As Integer, Shift As I