VS中折叠/展开所有项目的宏
2010-05-12 16:00
288 查看
有些时候我们需要在解决方案管理器中将所有的项目都折叠或是展开,当解决方案中项目比较少时我们可以手工做,但当项目比较多时还手工处理就比较费劲了,好在我们有宏,完成可以利用宏代码来自动完成这些繁琐而重复的操作。 下面就是我写的一个用来折叠/展开所有项目的宏代码:
Collapse/ExpandMacro
关于一些其它有意思的宏你可以在这里找到:
利用宏自动在类文件中添加注释信息
让多线程调试更简单的宏代码---FreezeThawThreads
Collapse/ExpandMacro
Option Strict Off Option Explicit Off Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports System.Diagnostics Public Module CollapseExpandAllProject '----------------------------------------------- '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
关于一些其它有意思的宏你可以在这里找到:
利用宏自动在类文件中添加注释信息
让多线程调试更简单的宏代码---FreezeThawThreads
相关文章推荐
- 在VS中折叠所有代码或展开所有代码
- 使用JavaScript展开/折叠TreeView中所有节点(Expand and Collapse All Nodes of asp.net Treeview on the client with javascript)
- 使用JavaScript展开/折叠TreeView中所有节点
- 解决VS中CListCtrl中+点击没有效果(点击+不能展开再次点击不能折叠)
- VS2013 解决方案下所有项目统一配置
- VS2010编写自定义宏,定义解决方案项目折叠、展开快捷键
- VS中展开和折叠代码
- VS中展开和折叠代码
- 在打开vs解决方案时,怎样让所以打开的项目自动折叠
- 在打开vs解决方案时,怎样让所以打开的项目自动折叠
- 【原】用使用JavaScript展开/折叠TreeView中所有节点(Expand and Collapse All Nodes of asp.net Treeview on the client with javascript)
- VS2008SP1/VS2010 展开所有菜单下的子菜单项(默认是部分菜单折叠显示)
- VS中展开和折叠代码
- [转]VS中展开和折叠代码
- MyEclipse中折叠和展开所有代码
- VS 属性页修改当前项目和修改所有项目
- 如何实现js展开收起(折叠)效果呢?例如:一段内容过长了,我限制他显示为20个字内,但是超出了20的就先用省略号代替,然后后面添加一个展开,点击展开后就显示所有的内容,这时候展开按钮就变成了 折叠按钮
- 展开或折叠TreeCtrl的所有节点
- VS编辑代码的时候,都会自动在资源浏览器里将文件所在项目展开
- [转]VS中展开和折叠代码