Office学院加入收藏

Office学院

Access

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

添加记录: 用VBA代码处理菜单和� 类别: Access 发布日期: 2007.02.18

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

复制菜单和工具栏

必需用VBA代码才能复制现有的工具栏。你可以用Add方法创建一个和你要拷贝相同类型的工具栏，然后再用CommandBarControl对的Copy方法将源工具栏上的每一个命令按钮复制到新工具栏上，下面的函数将是以这种方法实现复制工具栏：

strOrigCBName参数是指被复制的源工具栏，strNewCBName参数指新工具栏的名称，可选参数blnShowBar决定了新工具栏是否显示出来。

Function CBCopyCommandBar(strOrigCBName As String, _

strNewCBName As String, _

Optional blnShowBar As Boolean = False) As Boolean

' This procedure copies the command bar named in the strOrigCBName

' argument to a new command bar specified in the strNewCBName argument.

Dim cbrOriginal As CommandBar

Dim cbrCopy As CommandBar

Dim ctlCBarControl As CommandBarControl

Dim lngBarType As Long

On Error GoTo CBCopy_Err

Set cbrOriginal = CommandBars(strOrigCBName)

lngBarType = cbrOriginal.Type

Select Case lngBarType

Case msoBarTypeMenuBar

Set cbrCopy = CommandBars.Add(Name:=strNewCBName, Position:=msoBarMenuBar)

Case msoBarTypePopup

Set cbrCopy = CommandBars.Add(Name:=strNewCBName, Position:=msoBarPopup)

Case Else

Set cbrCopy = CommandBars.Add(Name:=strNewCBName)

End Select

' Copy controls to new command bar.

For Each ctlCBarControl In cbrOriginal.Controls

ctlCBarControl.Copy cbrCopy

Next ctlCBarControl

' Show new command bar.

If blnShowBar = True Then

If cbrCopy.Type = msoBarTypePopup Then

cbrCopy.ShowPopup

Else

cbrCopy.Visible = True

End If

CBCopyCommandBar = True

CBCopy_End:

Exit Function

CBCopy_Err:

CBCopyCommandBar = False

Resume CBCopy_End

End Function

注意：

1.这个函数的strNewCBName参数不能和现有工具栏中同名；

2.如果你复制一个弹出式菜单栏，并且设blnShowBar参数为TRUE，当运行这个函数时，这个弹出式菜单栏将显示在当前鼠标的位置，更多的关于显示弹出式菜单栏的信息和描述请参阅Microsoft Office Visual Basic Reference Help 中的“显示弹出式菜单栏”索引。

顶一下

上一篇：用VBA代码处理菜单和工具栏之三
下一篇：用VBA代码处理菜单和工具栏之五

Tags: Office 按钮函数菜单

相关信息

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

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

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

[lwwvb]一个比速达3000都要好用的计工资软件

[分享]适应不同分辩率让窗体内控件居中

利用追加查询来实现自增序号的示例

[荐]成功　自信　快乐

用ADO大量修改SQL SEVER表数据时采用进度显示

首届微软最有价值专家校园技术日在北京举行

利用Access对金税开票系统进行二次开发

[FAQ]如何对子窗体某个列数据求和

[下载]微软MVP高校技术教育大会Access讲稿

[示例]往Word文件中写入指定位置的数据

[FAQ]如何恢复隐藏对象

[直播]如何用Access开发一个成品软件

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

Access学习方法总结

＂+"和＂＆＂到底有什么区别

微软Access现状(Microsoft Access Today)

如何让用户看不出程序是用ACCESS编写的

生日密码
血型分析
生肖分析

联系我们关于我们友情链接站点地图免责声明

Office学院,致力于打造专业的OFFICE应用交流平台。