新Visual Basic程序设计 教学课件 刘瑞新 VB9.pptVIP

图9-10 菜单项的可用与不可用 只需在例9-3的基础上增加“编辑”菜单项Edit的Click事件代码为： Private Sub Edit_Click() edi(0).Enabled = IIf(Text1.SelLength = 0, False, True) edi(1).Enabled = IIf(Text1.SelLength = 0, False, True) edi(3).Enabled = IIf(Text1.SelLength = 0, False, True) End Sub 【例9-5】在例9-3的基础上改变程序，隐藏剪切、复制和删除菜单项。 隐藏菜单项的办法也是很简单的。在例9-3中，编写文本框Text1的事件代码。 键抬起（KeyUp）事件代码为： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) edi(0).Visible = IIf(Text1.SelLength = 0, False, True) edi(1).Visible = IIf(Text1.SelLength = 0, False, True) edi(3).Visible = IIf(Text1.SelLength = 0, False, True) End Sub 鼠标键抬起（MouseUp）事件代码为： Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) edi(0).Visible = IIf(Text1.SelLength = 0, False, True) edi(1).Visible = IIf(Text1.SelLength = 0, False, True) edi(3).Visible = IIf(Text1.SelLength = 0, False, True) End Sub 程序运行结果如图9-11所示。 图9-11 隐藏和重现菜单项 9.1.2 弹出式菜单 弹出式菜单能以灵活的方式为用户提供更加便利的操作，它可以根据用户单击鼠标右键时的位置，动态地调整菜单项的显示位置，同时也改变菜单项显示内容，因此弹出式菜单又称为“上下文菜单”或“快捷菜单”。 设计弹出式菜单仍然使用VB提供的菜单编辑器，只要把某个菜单设置成隐藏（即“可见”栏Visible属性为False）就可以了。 实际上，不管是在窗口顶部菜单条上显示的菜单，还是隐藏的菜单，都可以用PopupMenu方法把它们作为快捷菜单在程序运行期间显示出来，语法为： [〈窗体名〉.] PopupMenu 〈菜单名〉[, flags [,x [, y [, boldcommand ]]]] 说明： ① 省略〈窗体名〉时，将打开当前窗体的菜单。 ②〈菜单名〉是指通过菜单编辑器设计的菜单（至少有一个子菜单项）的名称（Name）。 ③ Flags参数为一些常量数值的设置，包含位置及行为两个指定值，如表9-5、表9-6所示。两个常数可以相加或以Or相连。 表9-5 位置常数 ?  位置常数 说 明 0（默认） 菜单左上角位于X 4 菜单上框中央位于X 8 菜单右上角位于X 表9-6 行为常数 ?  行为常数 说 明 0（默认） 菜单命令只接受右键单击 2 菜单命令可接受左、右键单击 ④ Boldcommand参数可以指定在显示的弹出式菜单中想以粗体字出现的菜单项名称。在弹出式菜单中只能有一个菜单项被加粗。 ⑤ 为创建一个不显示在菜单栏里的菜单，可在设计时使顶级菜单项目为不可见（保证在菜单编辑器里的“可见”复选框没有被选上）。当VB显示一个弹出式菜单时，指定的顶级菜单的Visible属性会被忽略。 【例9-6】在例9-3中实现弹出式菜单，如图9-12所示。 首先在菜单编辑器中将“文件”菜单的“可见”栏中的对号取消，如图9-13所示。 图9-12 自定义的弹出式菜单 图9-13 将菜单项的可见属性Visible设为False 增加窗体的MouseDown事件代码为： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Files, 6 End If End Su