用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條評論