新Visual Basic程序设计 工业和信息化普通高等教育“十二五”规划教材立项项目 双色印刷 教学课件 熊李艳 周美玲 第9章 菜单与对话框.pptVIP

　　第9章 菜单与对话框 本章主要内容 菜单的设计 工具栏和状态栏 对话框 9.1 菜单设计 9.1.1 菜单编辑器(Menu Editor) 9.1.2 下拉式菜单 9.1.3 运行时动态改变菜单属性 9.1.4 弹出式菜单 进入菜单编辑器 打开【菜单编辑器】窗口有三种方法： （1）从【工具】菜单上，单击【菜单编辑器】。 （2）在工具栏上单击【菜单编辑器】快捷按钮。 　（3）用鼠标选中窗体后，单击鼠标右键，在弹出菜单中选择【菜单编辑器】选项并单击。 菜单编辑器简介 菜单项的控制 菜单项标记 ?????? Checked（复选）：设置是否选中标志。 ????????? Enabled（有效）：决定菜单项是否对事件作出响应。 （正常显示或灰色） Visible（可见）：决定菜单项是否可见。 键盘的选择 快捷键 访问键 下拉式菜单 下拉菜单例题【例9.1】 菜单的属性如表下表 所示 运行时动态改变菜单属性 具体【显示／隐藏动态菜单】、【增加菜单项】和【删除菜单项】等的Click事件代码如下： Private Sub MnuShowHide_Click() If MnuShowHide.Checked = True Then MnuShowHide.Checked = False 隐藏复选标记 MnuDyna.Visible = False 隐藏“动态菜单”项 Else MnuShowHide.Checked = True 显示复选标记 MnuDyna.Visible = True 显示“动态菜单”项 End If End Sub Private Sub MnuAdd_Click() Dim Dm As Integer Dm = MnuD.Count + 1 计算索引值 Load MnuD.Item(Dm) 增加索引为Dm的新菜单项 MnuD.Item(Dm).Caption = 新增的菜单项 + Str(Dm) 为新菜单项设置标题 MnuD.Item(Dm).Visible = True 显示新增菜单项 MsgBox 新增菜单项 + Str(MnuD.Count) MnuDel.Enabled = True 使删除菜单可有用 End Sub ? Private Sub MnuDel_Click() If MnuD.Count 1 Then MsgBox 删除新增菜单项 + Str(MnuD.Count) Unload MnuD.Item(MnuD.Count) 删除菜单项 If MnuD.Count = 1 Then MnuDel.Enabled = False 使删除菜单不可用 End If End If End Sub ? ? 弹出式菜单 激活弹出式菜单使用PopupMenu方法： [对象名．]PopupMenu 菜单名 [，flags[，x [，y[，boldcommand ] ] ] ] 其中： l?????????? 对象名默认为当前窗体。 l?????????? flags参数用于设定弹出菜单的性能。 l?????????? x，y参数为坐标值。 l?????????? boldcommand参数用于在弹出式菜单中显示一个菜单控制。 l?????????? flags参数可以定义弹出式菜单的位置与性能。取值分两组：位置常量和行为常量。Flags各常量取值如下： 位置常量取值： 0(默认)：弹出菜单的左边定位于X坐标。 4：弹出菜单以X点坐标为中心线。 8：弹出菜单的右边定位于X坐标。 行为常量取值： 0(默认)：菜单命令只接收右键单击。 2：菜单命令可以接收左、右键单击。 ? 【例9.1】弹出式菜单代码如下 Private Sub myText_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then 判断是否右击了鼠标 myText.Enabled = False PopupMenu Mn