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

以及隐藏和显示菜单和工具栏。

使用CommandBar对象的Visible属性可以隐藏和显示工具栏。显示工具栏时，可以使用Position属性指定工具栏在屏幕上的显示位置。例如，下面的程序需要三个参数，strCBarName表示要显示或隐藏的工具栏的名称，blnVisible表示是隐藏还是显示。可选参数lngPosition表示工具栏的显示位置，默认显示在access窗口的顶部，也可以显示在左侧、右侧或底部。

函数CBToolbarShow(strCBarName作为字符串，_

bln作为布尔值可见，_

可选lngPosition As Long = msoBarTop)作为布尔值

此过程显示或隐藏在

根据blnVisible的值的strCBarName参数

论点。可选的lngPosition参数指定

命令栏将出现在屏幕上。

Dim cbrCmdBar作为命令栏

出错时转到CBToolbarShow_Err

设置cbrCmdBar = Application。命令栏(strCBarName)

仅显示工具栏。

如果cbrCmdBar。然后键入> msoBarTypeNormal

CBToolbarShow = False

退出功能

如果…就会结束

如果位置参数无效，则设置为默认值

msoBarTop位置。

如果lngPosition < msoBarLeft或lngPosition > msoBarMenuBar，则

lngPosition = msoBarTop

如果…就会结束

使用cbrCmdBar

。Visible = blnVisible

。Position = lngPosition

以…结尾

CBToolbarShow = True

CBToolbarShow_End:

退出功能

CBToolbarShow_Err:

CBToolbarShow = False

恢复CBToolbarShow_End

结束功能

要显示菜单栏，您可以参考以下功能之一:

函数CBMenuBarShow(strCBarName为String)为布尔值

该功能可以显示指定的菜单栏。如果指定的菜单栏不存在或有非法名称，它将返回FALSE

Dim cbrCBarMenu As CommandBar

出错时转到CBMenuBarShow_Err

设置cbrCBarMenu = Application。命令栏(strCBarName)

如果cbrCBarMenu。然后键入msoBarTypeMenuBar

CBMenuBarShow = False

退出功能

如果…就会结束

使用cbrCBarMenu

。可见=真

以…结尾

CBMenuBarShow = True

CBMenuBarShow_End:

退出功能

CBMenuBarShow_Err:

CBMenuBarShow = False

恢复CBMenuBarShow _ End

结束功能

调用方式:？Menubarshow ("menubar ")'显示隐藏的主菜单。