使用自定义工具栏按钮折叠解决方案中的所有项目

伊纳基·阿尤卡尔 (Inaki Ayucar)

2.50/5 (3投票s)

2009 年 4 月 20 日

CPOL

3分钟阅读

19336

如何在工具栏中使用自定义按钮折叠解决方案中的所有项目。

[本文是前面两篇文章的合集：第一篇和第二篇，展示了如何在工具栏中创建一个自定义按钮，用于折叠解决方案中的所有项目。如果您像我一样拥有超过50个项目的解决方案，这将非常有用。]

第一部分：折叠解决方案资源管理器中的所有项目 (Visual Studio)

如果您通常处理大型项目，最终可能会在一个解决方案中包含30、40、50个或更多项目。

如果是这种情况，使用解决方案资源管理器有时会很痛苦。此外，Visual Studio 有时会在打开解决方案时展开整个解决方案。您浪费了多少时间逐个点击项目，只为了得到一个小的、折叠的解决方案？

不再需要了！

感谢Edwin Evans，我们有一个简单的 VB 宏可以折叠整个解决方案。您可以在这里找到这篇文章这里。

只需转到工具 -> 宏 -> 新建宏项目，根据您的喜好重命名它，然后将 VB 代码粘贴到那里。之后，您可以在 Visual Studio IDE 中创建自定义工具栏，并将您的新宏作为按钮添加到其中。

瞧！一键折叠整个解决方案！

我已经尝试过了，它确实有效，至少在 Visual Studio 2008 中是有效的。我今天会发布另一篇文章，介绍如何自定义您的工具栏……继续阅读！

附注：为了方便您参考，我在下面粘贴了Edwin Evans的代码

   Sub CollapseAll() 
        ' Get 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 
            ' MsgBox("Nothing to collapse. You must have an open solution.") 
            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 window 
        ' 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