Expanding or Collapsing all nodes in the Solution Explorer

*** Repost from blog.24x7code.com ****

I was looking for a solution in VS2003 for Expanding or Collapsing all nodes in the Solution Explorer

I found this trick on falafel blog

The following two macros will collapse and expand all of the items in the Solution Explorer.

To install them:
Open up the Macro Explorer in VS2003/VS2005 by pressing alt + F8.
Expand the My Macros node and add a new macro module. Name it whatever you want.
Double click on the new module and, in between “Public Module blah” and “End Module”, paste the following macro code…
Sub CollapseSolExplorerNodes()
‘ Get the the Solution Explorer tree
Dim UIHSolutionExplorer As UIHierarchy
UIHSolutionExplorer = DTE.Windows.Item( _
Constants.vsext_wk_SProjectWindow).Object()

‘ Check if there is any open solution
If (UIHSolutionExplorer.UIHierarchyItems.Count = 0) Then
Return
End If

‘ Get the top node (the name of the solution)
Dim UIHSolutionRootNode As UIHierarchyItem
UIHSolutionRootNode = UIHSolutionExplorer.UIHierarchyItems.Item(1)

‘ Collapse each project node
Dim UIHItem As UIHierarchyItem
For Each UIHItem In UIHSolutionRootNode.UIHierarchyItems
UIHItem.UIHierarchyItems.Expanded = False
Next

‘ Select the solution node, or else when you click
‘ on the solution windows scrollbar, it will synchronize the open document
‘ with the tree and pop out the corresponding node which is probably not
‘ what you want.
UIHSolutionRootNode.Select(vsUISelectionType.vsUISelectionTypeSelect)
End Sub

Sub ExpandSolExplorerNodes()
‘ Get the the Solution Explorer tree
Dim UIHSolutionExplorer As UIHierarchy
UIHSolutionExplorer = DTE.Windows.Item( _
Constants.vsext_wk_SProjectWindow).Object()

‘ Check if there is any open solution
If (UIHSolutionExplorer.UIHierarchyItems.Count = 0) Then
Return
End If

‘ Get the top node (the name of the solution)
Dim UIHSolutionRootNode As UIHierarchyItem
UIHSolutionRootNode = UIHSolutionExplorer.UIHierarchyItems.Item(1)

‘ Collapse each project node
Dim UIHItem As UIHierarchyItem
For Each UIHItem In UIHSolutionRootNode.UIHierarchyItems
UIHItem.UIHierarchyItems.Expanded = True
Next

‘ Select the solution node, or else when you click
‘ on the solution windows scrollbar, it will synchronize the open document
‘ with the tree and pop out the corresponding node which is probably not
‘ what you want.
UIHSolutionRootNode.Select(vsUISelectionType.vsUISelectionTypeSelect)
End Sub

Save the module.

You can now test the new macros by double clicking on them in the Macro Explorer. The IDE will switch to the Solution Explorer and run the macro.
If everything works as it should, now lets assign the macro a hotkey:
In Visual Studio, Click “Tools Options”
Expand “Environment” and select “Keyboard.”
In “Show Commands Containing”, type “CollapseSol” and you should see the new CollapseSolExplorerNodes macro displayed below.
In “Use New Shortcut In”, select “Global”.
Select the “Press Shortcut Key” box and press “alt \”
Click [Assign].
Now, back in “Show Commands Containing”, type “ExpandSol” and you should see the new ExpandSolExplorerNodes macro displayed below.
In “Use New Shortcut In”, select “Global”.
Select the “Press Shortcut Key” box and press “alt /”
Click [Assign].
Click [OK]
Now, anytime you want to expand the Solution Explorer nodes, just press “alt /”. When you want to collapse them all, press “alt \”.

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.