第十章菜单、工具栏和状态栏.pptVIP

10.1 菜单的应用;10.1 菜单的应用;10.1.1 下拉式菜单;1.属性区 属性区为窗口标题栏下面的 5 行，用来输入或修改菜单项，设置属性。其中的主要项目的作用见表 10-1 。;编辑区由 7 个按钮组成，单击右箭头将把选定的菜单向右移一个等级。单击左箭头将把选定的菜单向上移一个等级。单击上箭头将把选定的菜单项在同级菜单内向上移动一个位置。单击下箭头把选定的菜单项在同级菜单内向下移动一个位置。单击“下一个”按钮将开始一个新的菜单项。单击“插入”按钮将在某个菜单项前插入一个新的同级空白菜单项。单击“删除”按钮将删除选定的菜单项。;3. 列表框 菜单项列表框为菜单编辑器最下面的列表框，该列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分级位置或等级。参见图 10-3 。;在使用Word应用程序时经常会发现，某些菜单项会呈灰色显示，此时单击该??菜单项没有任何反映，有时菜单项的标题会发生改变。这些都可以通过在菜单设计和程序代码中加以控制。 （1）有效性控制 一个菜单项是否正常显示，即该菜单项是否“有效”，是由该菜单项的“有效”属性来控制的。只有该属性设置为True时，单击该菜单项才会执行相应的操作。可以在设计时设置该属性值（选中图10-3中的“有效”复选框），也可以在运行时通过执行代码加以改变。 （2）可见性控制 只有将菜单项的Visible属性设置为True，该菜单项才显示。可以在设计时设置该属性值（选中图10-3中的“可见”复选框），也可以在运行时通过执行代码加以改变。 （3）菜单项标记 菜单项标记就是在菜单项左边加上标记 表明该菜单项处于选择状态。设计时该属性可以由菜单编辑器中的“复选”（Checked）属性设置，也可以在属性窗口的“Checked”栏内设置。通常情况下，该属性时在程序运行时动态地进行设置的。;4. 快捷键和访问键;;任何复杂的菜单程序都遵循相同的设计方法，下面通过一个实例来说明编写菜单程序的过程。 例 10-1 ：某电脑销售公司销售系统界面见图10-4，部分菜单的内容见表 10-1 。试按表 10-2 设计菜单。;表 10-2 菜单结构;1.菜单结构设计步骤;2.编写程序代码 设计好菜单后，需要编写菜单项的Click事件过程。 Private Sub dakai_Click(Index As Integer) Dim sFile As String Label1.Visible=False 隐藏Label1控件（即显示“欢迎…”字样的的控件） On Error GoTo nofile 设置错误陷阱 With CommonDialog1 CommonDialog1为添加的通用对话框控件 .DialogTitle = 打开 .CancelError = False .InitDir = d:\ .Filter = 文本文件 |*.Txt .ShowOpen 显示“打开”对话框 If Len(.FileName) = 0 Then Exit Sub End If sFile = .FileName End With nofile: 错误处理 If Err.Number = 32755 Then Exit Sub End If 添加处理打开的文件的代码 End Sub;2）菜单项的增减;（7）在“新建”和“打开”菜单项的Click事件过程中加上如下代码： menucounter = menucounter + 1 If menucounter 5 Then MSeg4.Visible = True MSeg14为“退出”菜单项前面的分隔线名称 Load MdocuName(menucounter) 装入新的菜单项 MdocuName(menucounter).Caption = CommonDialog1.FileName 设置新菜单项的标题 MdocuName(menucounter).Visible = True