출처 : 이런 저런 이야기~
아래 매크로가 #Region을 쉽게 넣어주는 매크로입니다.
매크로 등록은
VS 실행 후 프로젝트를 하나 여신 후 Tools – Macros – Macro IDE 를 실행한 후
MyMacro 폴더 안에 하나 만드시고… 아래 소스를 붙이시면 끝입니다.
단축키 없이 사용하기 불편하니
Tools – option – 환경 – 키보드
에서
다음 문자열을 포함하는 명령 표시에 매크로 이름을 넣으면 검색이 될껍니다.
선택한 후 바로 가기 키 누르기에 등록되지 않은 단축키를 하나 지정하시면 준비 끝!!
그 다음.. 소스에서 Region으로 지정하고 싶은 부분을 블럭 지정하시고
등록한 단축키를 누르면 대화창이 하나 뜹니다. Region 이름 넣는 부분
이름을 넣으시면 자동으로 Region으로 감싸 줍니다.
편하죠??
귀찮아서 그림은 뺐습니다. ^^’‘
출처 : http://blogs.msdn.com/powertoys/archive/2004/04/27/120775.aspx
Sub AddRegion()
Dim CloseUndoContext As Boolean = FalseIf DTE.UndoContext.IsOpen = False Then
CloseUndoContext = True
DTE.UndoContext.Open(“DevHawkAddRegionMacro”, False)
End IfTry
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 Ifsel.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 Ifsel.NewLine()
Finally
If CloseUndoContext Then DTE.UndoContext.Close()
End Try
End Sub
