环境
Microsoft Visual Studio 2008
正文
1. 打开宏资源管理器:视图 -> 其他窗口 -> 宏资源管理器
2. 创建一个新模块
3.编辑宏:选中模块 -> 右键编辑
- Option Strict Off
- Option Explicit Off
- Imports System
- Imports EnvDTE
- Imports EnvDTE80
- Imports System.Diagnostics
- Imports System.Collections
- Public Module JsMacros
- Sub OutlineRegions()
- Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection
- Const REGION_START As String = "//#region"
- Const REGION_END As String = "//#endregion"
- selection.SelectAll()
- '农民伯伯 --- 自动为"//#endregion"结束的代码添加***一行,不然出错
- If selection.Text.EndsWith(REGION_END) Then
- selection.EndOfLine()
- selection.NewLine()
- selection.SelectAll()
- End If
- Dim text As String = selection.Text
- selection.StartOfDocument(True)
- Dim startIndex As Integer
- Dim endIndex As Integer
- Dim lastIndex As Integer = 0
- Dim startRegions As Stack = New Stack()
- Do
- startIndex = text.IndexOf(REGION_START, lastIndex)
- endIndex = text.IndexOf(REGION_END, lastIndex)
- If startIndex = -1 AndAlso endIndex = -1 Then
- Exit Do
- End If
- If startIndex <> -1 AndAlso startIndex < endIndex Then
- startRegions.Push(startIndex)
- lastIndex = startIndex + 1
- Else
- ' Outline region
- selection.MoveToLineAndOffset(CalcLineNumber(text, CInt(startRegions.Pop())), 1)
- selection.MoveToLineAndOffset(CalcLineNumber(text, endIndex) + 1, 1, True)
- selection.OutlineSection()
- lastIndex = endIndex + 1
- End If
- Loop
- selection.StartOfDocument()
- End Sub
- Private Function CalcLineNumber(ByVal text As String, ByVal index As Integer)
- Dim lineNumber As Integer = 1
- Dim i As Integer = 0
- While i < index
- If text.Chars(i) = vbCr Then
- lineNumber += 1
- i += 1
- End If
- i += 1
- End While
- Return lineNumber
- End Function
- End Module
保存即可。这里可以省去新建宏的步骤,他会根据代码自动给你生成一个宏的。
注意我加的代码段,如果不加,并且你的JS***一行为#endregion,宏将报错,显示“值不在预期的范围内”。
4.设置快捷键
4.1工具 -> 选项 - > 环境 -> 键盘
4.2在显示命令包含下面的文本框中输入宏名outli,不用输全,下面能显示你新建的宏
4.3点一下 按快捷键 下面的文本框, 然后自定义快捷键组合,我定义的是Ctrl+M,Ctrl+J,点分配(别忘了!),点确定。
5.效果
5.1输入代码:
- //aasdsadsad
- //#region
- //#endregion
5.2快捷键Ctrl+M,Ctrl+J启动宏,能看到系统的右下角显示可爱的小方块在转动,js编辑框显示效果如下:
5.3之后就可以用快捷键Ctrl+M,Ctrl+L来[展开/折叠]代码了,注意关闭之后重新打开需要再启动一次宏,展开效果如下:
结束
想到不如做到,但做之前要是能先Google一下也许能事半功倍。
【编辑推荐】