.NET 自定義註釋格式&快捷註釋宏

1.創建宏

2.編輯宏

3.代碼Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports System.Diagnostics '///----------------------------------------------------------------- '///<copyright> Copyright (c) 2009,xxx有限公司 All rights reserved.</copyright> '///<summary> '/// KP '///</summary> '///<current_version>1.0.0.1</current_version> '///<author>BLACK</author> '///<finish_date></finish_date> '///<modify>BLACK</modify> '///<modify_date></modify_date> '///----------------------------------------------------------------- Public Module KP Private Function Copyright() Copyright = "Copyright (c) " + CStr(Date.Today.Year) + ",XXXX有限公司 All rights reserved." End Function Private Function EMailAddress() EMailAddress = "[e-mail]" End Function Private Function AuthorName() AuthorName = "XXX" End Function Function ProductName() ProductName = "" End Function Private Function GenGUIDString() As String Dim sGUID As String sGUID = System.Guid.NewGuid.ToString() sGUID = UCase(sGUID.Replace("-", "_")) GenGUIDString = sGUID End Function Private Function FileString(ByVal filename As String) As String FileString = UCase(filename.Replace(".", "_")) UCase(Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 2)) End Function Sub ClassTitleTemplate() Dim lens = 0 Dim strDesc = vbLf + "///------------------------------------------------------------------------------" + vbLf + _ "Copyright:" + Copyright() + vbLf + _ "描 述：" + vbLf + _ "版本號：1.0.0.1" + vbLf + _ "作 者：" + AuthorName() + " (" + EMailAddress() + ")" + vbLf + _ "日 期：" + FormatDateTime(Date.Today, 1) + vbLf + _ "修 改：" + vbLf + _ "原 因：" + vbLf + _ "------------------------------------------------------------------------------" 'ActiveDocument.Selection.StartOfDocument(0) ActiveDocument.Selection.text() = strDesc End Sub '///<current_version>1.0.0.1</current_version> '///<author>xxx</author> '///<finish_date>20100727</finish_date> '///<modify>xxx</modify> '///<modify_date>20100727</modify_date> '///----------------------------------------------------------------- Sub FunctionTitleTemplate() Dim Descr = "///" + "描 述：" + vbLf + _ "作 者：" + AuthorName() + " (" + EMailAddress() + ")" + vbLf + _ "時 間：" + FormatDateTime(Date.Today, 1) + vbLf + _ "修 改：" + vbLf + _ "原 因：" ' ActiveDocument.Selection.StartOfDocument(0) ActiveDocument.Selection.text = Descr End Sub '簽名 Private Function Myname() As String Dim Descr = AuthorName() + " (" + EMailAddress() + ")" End Function Private Function Curdate() As String Dim Descr = FormatDateTime(Date.Today, 1) End Function '修改者簽名 Sub Modify() Dim Descr = AuthorName() + " (" + EMailAddress() + ")" + " " + FormatDateTime(Date.Today, 1) ActiveDocument.Selection.text = Descr End Sub End Module

4.工具-選項-鍵盤

5.搜索宏

6.宏與事件綁定。

效果：

  /// <summary> /// ------------------------------------------------------------------------------ /// Copyright:Copyright (c) 2010,xxx限公司 All rights reserved. /// 描 述： /// 版本號：1.0.0.1 /// 作 者：xxx ([e-mail]) /// 日 期：2010年7月27日 /// 修 改： /// 原 因： /// ------------------------------------------------------------------------------ /// </summary> public class ConnectDB : DBOBase { #region [私有變量] #endregion