Access爱好者--
所属分类: 实用代码 作者: 李寻欢 更新日期:2003-10-10 10:29:10 阅读次数:483

隐藏系统菜单栏


在“工具”---“启动”里打完所有的勾,程序启动之后还是会留下一个主菜单:

点击打开新窗口

如何让它消失,只留下自定义的菜单呢?

点击打开新窗口

用CommandBars集合!下面的这段程序就可以达到这个目的:
Dim cbar
For Each cbar In CommandBars
If cbar.Name = "Menu Bar" Then
cbar.enabled=false
End If
Next
看到这里,你一定会问:我怎么知道菜单栏的名字就是"Menu Bar"?或是我想用代码隐藏别的工具栏又怎么知道它的名字?
运行一下下面这段程序,将会在立即窗口看到所有被设置显示的菜单及工具栏的名称、当前语言描述及显示与否的状态。
Dim cbar
For Each cbar In CommandBars
If cbar.Visible = True Then
Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
End If
Next
其中Name就是程序中要引用的名称,NameLocal就是用当前版本的语言来描述的名称,如果你用的是简体版本,就用简体版本的名称描述出来,比如"Menu Bar",它的NameLocal就是“菜单栏”。


--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链