会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 宏/菜单/数据页 > 正文

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

时间:2004-08-13 12:38 来源:ACCESS中国/Office中国 作者:zhengjia… 阅读:

                          -------------------郑家龙编绎于MS OFFICE开发文档

创建菜单和工具栏

 

你可以用自定义的对话框或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)

 

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

(责任编辑:admin)

顶一下
(1)
100%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: