菜单设计：在例10-1的基础上，在文件菜 单下增加一个不可见的子菜单项。具体方 法是，打开菜单编辑器，在“文件”菜单下 第十章 的分隔条子菜单项SptBar1之后添加一个 新的子菜单项，设置其标题为空，名称为 面 SubMenu,.去除“可见”属性前面的V 设 设置索引属性为0，则SubMenuz为一个菜 单控件数组，现在菜单控件数组中只有一 个元素SubMenu(O). 193 16
第 十 章 界 面 设 计 16 菜单设计：在例10-1的基础上，在文件菜 单下增加一个不可见的子菜单项。具体方 法是，打开菜单编辑器，在“文件”菜单下 的分隔条子菜单项SptBar1之后添加一个 新的子菜单项，设置其标题为空，名称为 SubMenu，去除“可见”属性前面的 ， 设置索引属性为0，则SubMenu为一个菜 单控件数组，现在菜单控件数组中只有一 个元素SubMenu(0)
代码设计： 1)定义模块级变量MenuNum,用于保存 当前SubMenu菜单数组的最大下标： 第十章界面设计 Dim MenuNum As Integer ⑩ 17
第 十 章 界 面 设 计 17 1）定义模块级变量MenuNum，用于保存 当前SubMenu菜单数组的最大下标： Dim MenuNum As Integer 代码设计：
2)编写打开”菜单项的Click事件过程： Private Sub FileOpen_Click( 第十章 OpenFileName=nputBox("请输入文件 名称") If Trim(OpenFileName)<>""Then 界面 MenuNum=MenuNum +1 Load SubMenu(MenuNum) 设 SubMenu(MenuNum).Caption= OpenFileName SubMenu(MenuNum).Visible=True End If End Sub 18
第 十 章 界 面 设 计 18 2）编写“打开”菜单项的Click事件过程： Private Sub FileOpen_Click() OpenFileName = InputBox("请输入文件 名称") If Trim(OpenFileName) <> "" Then MenuNum = MenuNum + 1 Load SubMenu(MenuNum) SubMenu(MenuNum).Caption = _ OpenFileName SubMenu(MenuNum).Visible = True End If End Sub
3)编写“关闭”菜单项的Click事件过程： Private Sub FileClose Click() N=Val(nputBox("请指定关闭第几个文件") 第十章 If N>MenuNum Or N<1 Then MsgBox"超出范围！" 界 Else 面 For I=N To MenuNum-1 SubMenu(①.Caption= 计 SubMenu(I+1).Caption Next I Unload SubMenu(MenuNum) MenuNum MenuNum-1 End If End Sub 19
第 十 章 界 面 设 计 19 3）编写“关闭”菜单项的Click事件过程： Private Sub FileClose_Click() N = Val(InputBox("请指定关闭第几个文件")) If N > MenuNum Or N < 1 Then MsgBox "超出范围！" Else For I = N To MenuNum – 1 SubMenu(I).Caption = _ SubMenu(I + 1).Caption Next I Unload SubMenu(MenuNum) MenuNum = MenuNum – 1 End If End Sub
10.1.2弹出式菜单 >弹出式菜单：上下文菜单、快捷菜单、右 键菜单 第十章 >为某对象设计弹出式菜单的步骤： 1)在菜单编辑器中设计各菜单项，然后将 界面设计 顶级菜单设置为不可见。 2)在对象的MouseDown事件过程中编写代 码，用PopupMenu方法显示弹出式菜单： I窗体名.PopupMenu菜单名 ,flags[,x[,y[,boldcommand]]]] 功能：在当前鼠标位置或指定的坐标位置显 示弹出式菜单。 20
第 十 章 界 面 设 计 20 10.1.2 弹出式菜单 ➢弹出式菜单：上下文菜单、快捷菜单、右 键菜单 ➢为某对象设计弹出式菜单的步骤: 1） 在菜单编辑器中设计各菜单项，然后将 顶级菜单设置为不可见。 2）在对象的MouseDown事件过程中编写代 码，用PopupMenu方法显示弹出式菜单: [窗体名.]PopupMenu 菜单名 ,flags[,x[,y[,boldcommand]]]] 功能: 在当前鼠标位置或指定的坐标位置显 示弹出式菜单