Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

菜单和工具栏知识(6)-菜单系统的运行时刻修改

时 间:2004-12-16 00:00:00
作 者:竹笛   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:菜单和工具栏知识(6)-菜单系统的运行时刻修改
正 文:

用户可以在设计时刻对创建的菜单系统进行编程,使之在运行时能够对条件的变化动态地作出响应。用户可以用自己创建的自定义菜单栏替换默认菜单栏。如果某个菜单项用在某种上下关系中不合适,可以删除、隐藏或禁用该项以防止用户选中它(禁用菜单项也叫做使菜单项变暗,或者变灰)。如果一个菜单项用两种可能的状态来表示选项,用户可以使用命令图标按钮,在按钮被按下时表示打开选项,按钮被放开时表示关闭选项。最后,用户可能向根据当前的状态而对菜单项进行重命名。例如,在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

E

Access软件网QQ交流群 (群号:54525238)       Access源码网店


常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助