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

用VBA代码处理菜单和工具栏之二

时 间:2004-06-21 00:00:00
作 者:郑家龙   ID:90  城市:上海
摘 要:用VBA代码处理菜单和工具栏之二 
正 文:

创建菜单和工具栏

  你可以用自定义的对话框或VBA在任何一个OFFICE组件应用程序中创建工具栏(菜单栏)。在access中,你也可以在现有的工具栏上右击,然后在出现的弹出式菜单中选择自定义来创建或修改已有的工具栏,不管怎样,你可以用VBA在任何一个OFFICE组件应用程序中来创建它工具栏。

  用CommandBars集合中的Add方法可以创建一个新的工具栏,但是Add方法默认的是创建一个工具栏,如果要创建一个新的菜单栏或者是弹出式菜单栏,你可以用msoBarPopup 和msoBarMenuBar常数在Add方法的指定位置指是创建这两种形式的工具栏。

下面的示例代码说明了如何分别创建这三种类型的工具栏:

    Dim cbrCmdBar   As CommandBar

    Dim strCBarName  As String

    '创建工具栏

    strCBarName = "MyNewToolbar"

    Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName)

    '创建菜单栏

    strCBarName = "MyNewMenuBar"

    Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarMenuBar)

   '创建弹出式菜单栏

    strCBarName = "MyNewPopupMenu"

    Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarPopup)

  创建好三种工具栏中的任一种后,必需在工具栏上面加入实际的命令按钮才有意义,否则它是没有什么作用的,关于如果在工具栏上增加各种类型的按钮,请参考以后的“菜单和工具栏的使用-增加命令控件”专题。



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

常见问答:

技术分类:

相关资源:

专栏作家

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