|
用户可以在设计时刻对创建的菜单系统进行编程，使之在运行时能够对条件的变化动态地作出响应。用户可以用自己创建的自定义菜单栏替换默认菜单栏。如果某个菜单项用在某种上下关系中不合适，可以删除、隐藏或禁用该项以防止用户选中它(禁用菜单项也叫做使菜单项变暗，或者变灰)。如果一个菜单项用两种可能的状态来表示选项，用户可以使用命令图标按钮，在按钮被按下时表示打开选项，按钮被放开时表示关闭选项。最后，用户可能向根据当前的状态而对菜单项进行重命名。例如，在Microsoft Excel中，单击“窗口”菜单里的“冻结拆分窗口”，它将变为“撤销窗口冻结”。
注释 虽然既可以用“自定义”对话框也可以用Visual Basic来对菜单系统进行设计时刻更改，但是却只能用Visual Basic来进行运行时刻的更改。
显示自定义菜单栏
要显示自定义菜单栏而不是活动菜单栏，用户必须将表示该自定义菜单栏的CommandBar对象的Visible属性设置为True(真)。(要了解如何创建替换活动菜单栏的菜单栏，请参考本章前面的“添加自定义菜单栏”中的内容。)新的可见菜单栏会自动地替换活动菜单栏。当Visual Basic应用程序运行结束时，可以将Visible 属性设为False(假)，重新显示默认菜单栏。
每当用户启动Microsoft Office应用程序时，都会显示默认菜单栏。在Word里，可以在启动时用自定义菜单栏来替换默认菜单栏－在退出程序前保存Normal模板的时候，最后显示的那个菜单栏是Word再次启动时的默认菜单栏。用户可以在Open事件过程中将某个菜单栏的Visible属性设置为True(真)，用它来替换默认菜单栏。在Microsoft Excel和PowerPoint中，必须使用事件过程或宏来替换默认菜单栏。
要了解关于在Microsoft Access中指定窗体、报表和共用菜单栏的内容，请参考“Building Applications with Microsoft Access 97”的第一章。
动态地显示菜单组件
如果一个菜单组件仅仅用于某个专门的文档，那么该菜单组件最好只在该文档处于活动状态时才显示；这样做减轻了界面上不必要的混乱。用户可以限定某个菜单组件的生命周期，使之仅在用于文档时才出现。
如果用户想让菜单或菜单项仅仅为特定的文档出现，那么可以对Visual 属性进行设置，在用户每次激活文档时才显示该组件，而每当文档失活时又将该组件隐藏起来。如果用户想把菜单栏同特定的文档关联起来，那么也可以对Visual 属性进行设置，在用户激活文档时显示菜单栏，同时在文档失活时隐藏菜单栏，而不是每次都实际地添加或删除菜单栏。
要动态地显示菜单组件，不但要编写适当的事件程序来启用组件或显示组件，而且要编写事件程序来禁用或隐藏组件。如果正在对其菜单栏进行修改的应用程序不支持事件，那也就不能自定义动态的界面。对于这类应用程序的解决办法是为其他菜单项或工具栏按钮的OnAction属性指定类似的程序。如果应用程序支持ActiveX控件嵌入，那么也可以修改容器应用程序的界面来对那个控件所支持的事件进行响应。
注释 因为Word把自定义信息保存在文档和模板中，当文档或模板在当前内容中有效时自定义菜单组件就显示出来，而当文档或模板无效时，它们也随之隐藏起来。与此相反，Microsoft Excel保存工作区级的自定义信息，需要在事件代码中使用Visible属性来动态地更改界面。
启用或禁用菜单组件
如果想防止用户在某种条件下选择某个特殊的菜单项，可以禁用该菜单项。被禁用的命令仍然出现在菜单上，但是它变得阴暗，不响应用户的动作。使用Enable属性来启用或禁用菜单项。如果菜单项被启用，那么Enable属性为True(真)，如果菜单项被禁用，Enable属性为False(假)(但是不能设置内置菜单项的Enable属性)。下面的这个Microsoft Excel中的例子向工作簿菜单栏的“文件”菜单中添加了Open Database命令，如何禁用该命令。
CommandBars("Worksheet Menu Bar").Controls("File") _
.Controls.Add("Open Database").Enabled = False
如果用户想禁用在某个菜单中的所有命令，那么可以禁用菜单本身。这样可以在用户不再访问菜单上所有的命令时，有效地禁用它们。下面的这个Microsoft Excel中的例子，禁用了工作簿菜单栏上的整个“文件”菜单。
CommandBars("Worksheet Menu Bar").Controls("File").Enabled = False
注释 可以禁用子菜单上的所有菜单项，但是却不能禁用子菜单本身。
指定菜单项的状态
如果一个菜单项表示的选项只有两种可能的状态，那么可以在该菜单项旁边添加图标按钮，用按钮是否被按下来显示选项的状态。每次用户单击该菜单项时，按钮就变到相反的状态－也就是打开或者关闭选项。用户可以通过设置菜单项的State属性来更改其外观。
要想弄清楚它是如何起作用的，可以假定以下例子中的 Microsoft Excel程序被指定到工作簿菜单栏中“视图”菜单里的自定义菜单项“Database”，该菜单项向用户提供了了两种选择，是在数据库视图中还是在工作簿视图中查看工作簿。用户每次单击菜单项Database，程序就将菜单项旁边的按钮图标在按下和放开之间进行切换(也就是说，程序设置State属性，然后切换视图)。
Sub DatabaseView()
With CommandBars("Worksheet Menu Bar").Controls("View").Controls("Database")
If .State = msoButtonUp Then
.State = msoButtonDown
'Switch to database view
Else
.State = mosButtonUp
'Switch to worksheet view
End If
End With
End Sub
每个内置和自定义菜单项都有文本和按钮图标；许多内置菜单项有空白的按钮图标。当使用“自定义”对话框来向菜单添加菜单项时，可以指定和修改该项的按钮图标。在运行时刻，用户可以设置菜单项的FaceId属性，用来指定菜单项状态改变时该菜单项旁边显示的按钮图标。要指定菜单项旁边显示的按钮图标，必须找出带有该按钮图标的内置命令，判断它的ID，然后为FaceId属性赋值。(改变一个菜单项的FaceId属性不会改变它的功能。)要对判断内置命令ID编号作更多了解，请参考本章后面“菜单项和工具栏控件的ID”一节的内容。
以下Microsoft Excel中的例子，不但切换了菜单项旁边按钮图标的状态，而且还改变了图标。当用户切换到数据库视图时，按钮图标被切换到grid(ID 987)。类似地，当用户切从数据库视图切换出去时，图标被设置为blank face(ID 1)。
Sub DatabaseView()
With CommandBars("Worksheet Menu Bar").Controls("View").Controls("Database")
If .State = msoButtonUp Then
.FaceId = 987
.State = msoButtonDown
'Switch to database view
Else
.FaceId = 1
.State = mosButtonUp
'Switch to worksheet view
End If
End With
End Sub
对菜单项进行重命名
如果用户使用菜单项的Caption属性去更改菜单项的名称，以此来响应Visual Basic代码中条件的改变。例如，假定用户已经创建了一个用于打开数据库的菜单命令。在用户打开数据库之后，用户可能会希望用关闭该数据库的命令来替换原来的命令。下面的例子说明了作用实在上述的功能。
CommandBars("MyMenubar").Controls("File").Controls("Open Database") _
.Caption = "Close &Database"
用这种办法对菜单项进行重命名时，要确保应用程序中的其他过程按照新名字来引用该菜单项(在本例中的新名字是Close Database，“关闭数据库”)。
也可以使用代表菜单项的变量。采用这种技术的好处之一是即使菜单项的标题改变了，变量仍然能够继续起作用。下面的例子给菜单项Open Database(“打开数据库”)设置了一个变量。
Set openData = CommandBars("My Menubar").Controls _
("File").Controls("Open Database")
可以用下面例子中的代码来更改标题。
openData.Caption = "Close &Database"
|
