专题辅导第十三讲 菜单的设计及应用（二）.docVIP

第十三讲 菜单的设计及应用（二） 三、菜单选项状态的设置 在使用菜单时，你一定已经发现有些菜单选项呈灰色显示，这时这些菜单选项一定是一可以选择的，当到一定时候条件满足时，它才显现出来。我们还会了现一些菜单选项的前面加上了对勾，所有这些都可以在建立菜单选项时设置。 将菜单选项设置为失效状态（呈灰色） 将菜单选顶设置为失效状态，有两种方法，一种是在建立的时候，将它的“有效”前面的对勾去掉，如图18所示。其效果如图19所示。 另一种方法是在程序中设置，其实所有的控件对象都有一个属性：Enabled，它有两个值：Ture和False，当我们给一个对象的Enabled属性赋值为False，尽管它在窗体上是可见的，但是呈灰色状态，不可用。如果希望恢复其可用功效，只有在程序中将它的Enabled属性重新赋值为True即可。如图20中，我们把窗体上的按钮“结束”的Enabled属性设置为False，它将自动呈现灰色。 图18 图19 图20 如果需要解除它的不可用性，只要在程序中写入 Command1.Enabled=True 即可。 在菜单选项前打对勾 在菜单选项上打勾实际上也是一个属性，即Checked属性。它的加载方法也有两种，一种是在建立菜单选项时，一种是在程序中。 在建立菜单选项时，“菜单编辑器”中有一个“复选”框，只在单击它在前面的选框中打上勾，就可以了。如图21所示： 图21 其效果如图22所示： 图22 如果在程序中设置那就是： MnuRed.Checked=True ‘打勾 MnuRed.Checked=False ‘去掉勾 在“菜单编辑器”里除了上面说的两种设置框可以选择外，还有两个选择框供设计者选用，一个就是“可见”（显示或隐藏）和“显示窗口列表”。如图23所示： 图23 与可见相对应的属性就是“Visible”。 练习：请同学们在例子中练习以上各种设置。 四、设计弹出式快捷菜单 弹出式快捷菜单的建立，也是在“菜单编辑器”中进行的。与其它菜单的建立方法完全一样，只不过建成之后，将该菜单的“可见”状态前面的对勾去掉，当需要它弹出时，再在程序中将它弹出，弹出的命令是： PopUpMenu 菜单名称，Flag，X，Y，突出显示的选项名称 其中 （1）菜单名称就是你要弹出的菜单名称，如MnuQuick； （2）Flag：表示在弹出的菜单里是用鼠标左键选择菜单项，还是鼠标的左右键都可以选择。Flag=1时，表示用左键；Flag=2时，表示左右键都可以用； （3）X，Y指定显示的位置，如果省略不写，则在当前鼠标指针位置显示弹出的菜单。 （4）突出显示的选项名称，指弹出菜单后要默认哪一个选项为高亮度显示； 【任务1】弹出式快捷菜单的设计 任务描述： 设计一个程序，当鼠标右键单击窗体上任何空白位置时，弹出下面的快捷菜单。 图24 任务分析： 首先我们在“菜单编辑器”里建立一个标题为“Quick”，名称为“MnuQuick”的菜单，它的选项包括“剪切”“复制”“粘贴”“图片另存为”“设置为墙纸”，其中“粘贴”与“图片另存为”之间用一个分隔线分开，并为每个菜单选项设置快速打开键；把“剪切”“复制”选项设置为“不可用”； 其次，我们在Form_MouseDown事件过程中编写程序，使用命令 PopupMenu MnuQuick, , , , MnuAsSave 弹出快捷菜单。 实现步骤： 1．设计界面 界面设计主要是设计一个如图25所示的菜单MnuQuick，并把它的“可见”框的对勾去掉。 图25 2．设置属性 设置对象Form1的属性 Caption属性设置为“弹出式快捷菜单” 编写程序 在Form_MouseDown事件过程中编写程序如下： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MnuQuick, 1, , , MnuAsSave End If End Sub 说明：参数可以省略，但是逗号不能省略。 保存程序 建立“任务1”文件夹，将上述工程保存在该文件夹里。 1