二:VS巨集指令碼新增函式註釋模板
現在的IDE越做越強大，為我等懶人省了不少。為了使用將來的程式碼自己或別人能看懂，註釋這種東西必不可少。當為函式添加註釋時，格式是固定的。每個函式寫一遍，或從別的函式處拷貝過來，即麻煩又容易出錯。這種重複勞動讓人心煩都有不想寫註釋的慾望了，這時VS的巨集可以幹掉這些“髒、亂、累”的體力活。
看了一下，VS2010的巨集指令碼就是VBScript，很容易上手。我寫了一個生成函式註釋模板的巨集指令碼，比較容易，看程式碼： ?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports EnvDTE90a Imports EnvDTE100 Imports System.Diagnostics Public Module ModuleTop Sub AddFunComment() Dim DocSel As EnvDTE.TextSelection DocSel = DTE.ActiveDocument.Selection DocSel.NewLine() DocSel.Text = "/*******************************************************************" DocSel.NewLine() DocSel.Text = "* 版權所有： " DocSel.NewLine() DocSel.Text = "* 類 名 稱： " DocSel.NewLine() DocSel.Text = "* 功    能： " DocSel.NewLine() DocSel.Text = "* 參    數： " DocSel.NewLine() DocSel.Text = "* 返 回 值： " DocSel.NewLine() DocSel.Text = "* 作    者：XXXXX" DocSel.NewLine() DocSel.Text = "* 電子郵箱： [email protected]" DocSel.NewLine() DocSel.Text = "* 建立日期： " + System.DateTime.Now.ToString() DocSel.NewLine() DocSel.Text = "*******************************************************************/" End Sub End Module

具體的建立步驟：VS2010 IDE -> 工具 -> 巨集 -> 新建巨集專案，選擇要儲存的位置。然後將要上面的指令碼複製進去，儲存即可。
具體的使用：為你編寫的巨集繫結快捷鍵，VS2005 IDE -> 工具 -> 選項 -> 在左邊列表中選擇“鍵盤” -> 在右邊的“顯示命令包含”中，選擇你建立巨集-> 將游標定位到”按快捷鍵”處 -> 輸入你想命名的快捷鍵，比如”Alt+C”，儲存即可。 下面在附上一段，類內部的註釋 ?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports EnvDTE90a Imports EnvDTE100 Imports System.Diagnostics Public Module ModuleContent Sub AddFunComment() Dim DocSel As EnvDTE.TextSelection DocSel = DTE.ActiveDocument.Selection DocSel.NewLine() DocSel.NewLine() DocSel.Text = " #region<構造方法和析構方法>" DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#endregion<構造方法和析構方法>" DocSel.NewLine() DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#region<常量>" DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#endregion<常量>" DocSel.NewLine() DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#region<變數>" DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#endregion<變數>" DocSel.NewLine() DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#region<屬性>" DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#endregion<屬性>" DocSel.NewLine() DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#region<方法>" DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#endregion<方法>" DocSel.NewLine() DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#region<事件>" DocSel.NewLine() DocSel.NewLine() DocSel.Text = "#endregion<事件>" End Sub End Module

實現的效果是 ?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

#region<構造方法和析構方法> #endregion<構造方法和析構方法> #region<常量> #endregion<常量> #region<變數> #endregion<變數> #region<屬性> #endregion<屬性> #region<方法> #endregion<方法> #region<事件> #endregion<事件>

快捷鍵自定義。只要跟現有的衝突就成。