有一些选择可以实现相同,遵循以下几点。
1)打开宏浏览器:
2)创建新宏:
3)将其命名为“OutlineRegions”(或任何你想要的)
4)右键单击“OutlineRegions”(在宏浏览器上显示)选择“编辑”选项并将以下VB代码粘贴到其中:
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
Imports System.Collections
Public Module OutlineRegions
Sub OutlineRegions()
Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection
Const REGION_START As String = "//#region"
Const REGION_END As String = "//#endregion"
selection.SelectAll()
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
5)保存宏并关闭编辑器。
6)现在让我们为宏分配快捷方式。 转到工具 - &gt;选项 - &gt;环境 - &gt;键盘并在“显示命令包含”文本框中搜索您的宏(在文本框中键入:宏,它将建议宏名称,选择您的一个。)
7)现在在“按快捷键”下的文本框中可以输入所需的快捷方式。 我使用Ctrl + M + N.
使用:
return
{
//Properties
//#region
Name:null,
Address:null
//#endregion
}
8)按保存的快捷键
见下面的结果: