用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 ")'显示隐藏的主菜单。
0条评论