Visual Studio中使用宏來添加註釋

 

 

Imports System<br />Imports EnvDTE<br />Imports EnvDTE80<br />Imports System.Diagnostics</p><p>Public Module Module1</p><p> Dim strUser = "// My Name "<br /> Dim strDate = "10-Augest-2010 "<br /> Dim strCQID = "44553 : "<br /> Dim strCQHeadline = "Crash when click ok button ..."<br /> Dim strComment = strUser & strDate & strCQID & strCQHeadline</p><p> Sub BeginComment()<br /> 'DTE.ActiveDocument.Selection.NewLine()<br /> DTE.ActiveDocument.Selection.Text = strComment & "[Begin]"<br /> End Sub</p><p> Sub EndComment()<br /> 'DTE.ActiveDocument.Selection.NewLine()<br /> DTE.ActiveDocument.Selection.Text = strComment & "[End]"<br /> End Sub<br /> Sub BeginEndComment()<br /> DTE.ActiveDocument.Selection.Text = strComment & "[Begin]"<br /> DTE.ActiveDocument.Selection.NewLine()<br /> DTE.ActiveDocument.Selection.NewLine()<br /> DTE.ActiveDocument.Selection.Text = strComment & "[End]"<br /> End Sub<br />End Module</p><p>