VS2010编写自定义宏,定义解决方案项目折叠、展开快捷键

怎样自己写一个宏？

1.打开VS2010（或VS的其它版本），“Tools” -->  "Macros"--->"Macros IDE...(Alt + F11)" 打开宏IDE

2.在宏IDE的工具栏中"MyMacros"->"Add Module"->CollapseExpandAllProject

3. 将初始内容替换成以下代码

Option Strict Off
Option Explicit Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics

Public Module CollapseExpandAllProject   ‘（特别注意：这里要与保存的Module名保持一致，不然无法调用宏 ）

    '----------------------------------------------- 
    'Collapse All projects  折叠
    'Author:ZhangRongHua
    'Date:2010-05-12
    '-----------------------------------------------
    Public Sub CollapseAllProject()
        lastSlashIndex = DTE.Solution.FullName.LastIndexOf("\") + 1  'Get the last slash index .
        solutionNameWithExtension = DTE.Solution.FullName.Substring(lastSlashIndex)  ' Get solution name with extension. 
        solutionName = solutionNameWithExtension.ToString().Substring(0, solutionNameWithExtension.ToString().Length - 4) ' Get the solution name without extension .
        count = 0
        For Each curProject As EnvDTE.Project In DTE.Solution.Projects
            Try
                DTE.ActiveWindow.Object.GetItem(solutionName + "\" + curProject.Name).UIHierarchyItems.Expanded = False
                count = count + 1
            Catch ex As ArgumentException
                Continue For
            End Try
        Next curProject


    End Sub

    '----------------------------------------------- 
    'Expand All projects  展开
    'Author:ZhangRongHua
    'Date:2010-05-12
    '-----------------------------------------------
    Public Sub ExpandAllProject()
        lastSlashIndex = DTE.Solution.FullName.LastIndexOf("\") + 1  'Get the last slash index .
        solutionNameWithExtension = DTE.Solution.FullName.Substring(lastSlashIndex)  ' Get solution name with extension. 
        solutionName = solutionNameWithExtension.ToString().Substring(0, solutionNameWithExtension.ToString().Length - 4) ' Get the solution name without extension .
        count = 0


        For Each curProject As EnvDTE.Project In DTE.Solution.Projects
            Try
                DTE.ActiveWindow.Object.GetItem(solutionName + "\" + curProject.Name).UIHierarchyItems.Expanded = True
                count = count + 1
            Catch ex As ArgumentException
                Continue For
            End Try
        Next curProject
    End Sub

End Module

保存后关闭宏IDE

4、回到VS2010主界面（注意是在VS2010主界面，不是打开了某一个解决方案的主界面），"Tools"--->"Options"--->"Environment"--->"Keyboard"--->在Show commands containing:下的编辑框中输入macro（所有含macro的那些名称），会看到有"MyMacros.CollapseExpandAllProject.CollapseAllProject"的项，选中它，在Press shortcut keys:下自定义快捷键，建议用Alt +  数字0－9和－+键组合，以免与编译环境快捷键发生冲突，之后"Assign"，最后确定。

5、接下来我们可以验证一下，打开一个解决方案，按下Alt + 数字，会执行对应操作。

注意，按下快捷键时，鼠标要定位到解决方案资源管理器上面，不然会报错

参见：

http://www.cnblogs.com/zhangronghua/archive/2010/05/12/Colloapse_Expand_Macro.html