顯示或隱藏功能窗格

您可以設定NavigationPane物件的IsCollapsed屬性來折迭或展開Explorer物件的功能窗格。 功能窗格外觀的變更會取決於 IsCollapsed 屬性的設定及 NavigationPane 物件其他屬性的設定。 NavigationPane 物件的DisplayedModuleCount屬性會決定功能窗格可以顯示的模組數目，而每個NavigationModule物件的Visible和Position屬性值則會決定要顯示哪些模組，以及依何種順序顯示。

將 IsCollapsed 屬性設定為 True 會摺疊功能窗格。 一旦摺疊後，功能窗格將只會顯示各個可視巡覽模組的圖示。

將 IsCollapsed 屬性設定為 False 則會展開功能窗格。 展開時，功能窗格會顯示NavigationPane物件之NavigationModules集合中包含的最上層可見模組數目圖示和名稱，該集合是由DisplayedModuleCount屬性所指定。 所有其他可視模組則會顯示為功能窗格底部的圖示。

例如，使用中瀏覽器已展開之 NavigationPane 物件的 NavigationModules 集合中含有八個模組。 所有模組的Visible屬性值為True，但第三個流覽模組除外， (Position屬性值設為 3.) 如果DisplayedModuleCount屬性設定為 4，則只有前四個可見NavigationModule物件的圖示和名稱，且 Position屬性值為 1， 2、4 和 5 會在功能窗格中顯示為大型按鈕。 其餘三個可見的 NavigationModule 物件，位於位置 6、7 和 8，只會在功能窗格底部的小按鈕上顯示為圖示。 如果 IsCollapsed 屬性設定為 False，已摺疊的功能窗格只會以圖示來顯示前四個可視 NavigationModule 物件。 其餘三個可視 NavigationModule 物件則會列於功能窗格的下拉式功能表中。 下列範例會藉由將 IsCollapsed 屬性設定為 False，確保每當目前所選巡覽模組因程式設計或使用者動作而遭到變更時，功能窗格將一律展開。 The sample performs the following actions:

1. 此範例會在引發 Application 物件的Startup事件並將它 objPane 指派給 時，先取得使用中 Explorer 之NavigationPane物件的參考，以便偵測到NavigationPane物件的ModuleSwitch事件。

2. 當NavigationPane的ModuleSwitch事件發生時，範例會比較ModuleSwitch事件的CurrentModule參數內容與NavigationPane物件的CurrentModule屬性，以檢查目前的流覽模組是否已變更。 如果這些物件參照並不相同， NavigationPane 物件的 IsCollapsed 屬性便會設定為 False 。

Dim WithEvents objPane As NavigationPane 
 
Private Sub Application_Startup() 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
End Sub 
 
Private Sub objPane_ModuleSwitch(ByVal CurrentModule As NavigationModule) 
 
 ' Check if the currently selected navigation module 
 ' has changed. 
 If Not (CurrentModule Is objPane.CurrentModule) Then 
 
 ' Set the IsCollapsed property to 
 ' ensure that the Navigation Pane 
 ' is visible. 
 If Not (objPane Is Nothing) Then 
 objPane.IsCollapsed = False 
 End If 
 End If 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。