아래 매크로가 #Region을 쉽게 넣어주는 매크로입니다.
매크로 등록은
VS 실행 후 프로젝트를 하나 여신 후 Tools - Macros - Macro IDE 를 실행한 후
MyMacro 폴더 안에 하나 만드시고... 아래 소스를 붙이시면 끝입니다.
단축키 없이 사용하기 불편하니
Tools - option - 환경 - 키보드 에서
다음 문자열을 포함하는 명령 표시에 매크로 이름을 넣으면 검색이 될껍니다.
선택한 후 바로 가기 키 누르기에 등록되지 않은 단축키를 하나 지정하시면 준비 끝!!
그 다음.. 소스에서 Region으로 지정하고 싶은 부분을 블럭 지정하시고
등록한 단축키를 누르면 대화창이 하나 뜹니다. Region 이름 넣는 부분
이름을 넣으시면 자동으로 Region으로 감싸 줍니다.
편하죠??
귀찮아서 그림은 뺐습니다. ^^''
출처 : http://blogs.msdn.com/powertoys/archive/2004/04/27/120775.aspx
..more
>접기
----------------------------
Sub AddRegion()
Dim CloseUndoContext As Boolean = False
If DTE.UndoContext.IsOpen = False Then
CloseUndoContext = True
DTE.UndoContext.Open("DevHawkAddRegionMacro", False)
End If
Try
Dim name As String = InputBox("Enter the region name")
If (name.Trim().Length = 0) Then Exit Sub
Dim sel As TextSelection = DTE.ActiveDocument.Selection
Dim lTop = sel.TopPoint.Line
Dim lBot = IIf(sel.BottomPoint.AtStartOfLine, sel.BottomPoint.Line - 1, sel.BottomPoint.Line)
sel.MoveToLineAndOffset(lBot, 1)
sel.EndOfLine()
sel.NewLine()
If DTE.ActiveDocument.Language = "CSharp" Then
sel.Text = "#endregion"
ElseIf DTE.ActiveDocument.Language = "Basic" Then
sel.Text = "#End Region"
Else
Throw New System.Exception("Invalid Language: " + DTE.ActiveDocument.Language)
End If
sel.MoveToLineAndOffset(lTop, 1)
sel.StartOfLine()
If DTE.ActiveDocument.Language = "CSharp" Then
sel.Text = "#region " + name.Trim()
ElseIf DTE.ActiveDocument.Language = "Basic" Then
sel.Text = "#Region """ + name.Trim() + """"
Else
Throw New System.Exception("Invalid Language: " + DTE.ActiveDocument.Language)
End If
sel.NewLine()
Finally
If CloseUndoContext Then DTE.UndoContext.Close()
End Try
End Sub
----------------------------