【安裝】VS2010中為類、函數代碼添加版權注釋資訊

VS2010中為類、函數代碼添加版權注釋資訊

VS2010中為類、函數代碼添加版權注釋資訊分為兩步：

1.建立宏

在VS2010左側找到Macro 資料總管，找到已經存在的宏項目samples。

輕按兩下任一子產品，進入Microsoft Visual Studio Macros。在下拉欄（圖中紅色标出）選擇添加子產品。

接着就可以對添加的子產品進行編輯。代碼可以在網上找到。下面會附出我自己的編輯後的代碼。

編輯完成後記得儲存。

2.綁定快捷鍵

工具---選項

依次操作。選擇鍵盤，選擇預設值，在“顯示指令包含”輸出相關資訊快速定位添加的宏，按快捷鍵，配置設定，确定。

配置設定後的結果圖。記得點選确定。

完成之後就可以測試效果了，下面是我的測試效果圖

代碼：

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics


Public Module FunctionNote
    Sub AddFunComment()
        Dim DocSel As EnvDTE.TextSelection
        DocSel = DTE.ActiveDocument.Selection
        DocSel.NewLine()
        DocSel.Text = "/*******************************************************************"
        DocSel.NewLine()
        DocSel.Text = "* Name: "
        DocSel.NewLine()
        DocSel.Text = "* Function: "
        DocSel.NewLine()
        DocSel.Text = "* Parameter: "
        DocSel.NewLine()
        DocSel.Text = "* Return: "
        DocSel.NewLine()
        DocSel.Text = "* Author: Happy"
        DocSel.NewLine()
        DocSel.Text = "* Mail: [email protected]"
        DocSel.NewLine()
        DocSel.Text = "* Date: " + System.DateTime.Now.ToLongDateString()
        DocSel.NewLine()
        DocSel.Text = "*******************************************************************/"
    End Sub
End Module
           

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics

Public Module HeadFileNote
    Sub DocumentFileHeader()
        Dim doc As Document
        Dim docName As String
        Dim companyName As String = "NERCITA"
        Dim authorName As String = "Happy"
        Dim copyrightText As String = String.Format("Copyright (c) {0} {1}. All rights reserved.", Date.Now.Year, companyName)
        ' 從程式中獲得檔案的名字
        doc = DTE.ActiveDocument
        '獲得目前編輯類的名字
        docName = doc.Name

        ' 将添加焦點定位在檔案首部
        DTE.ActiveDocument.Selection.StartOfDocument()

        ' 添加一個版權說明
        DTE.ActiveDocument.Selection.Text = "/***************************************************************/" '以String類型添加自己想要的符号、文字
        DTE.ActiveDocument.Selection.NewLine()
        ' 添加一個空行
        DTE.ActiveDocument.Selection.Text = "/* @ FileName: " + docName + ""
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "/* @ " + copyrightText

        ' 添加使用者相關資訊
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "/* @ Author: " + authorName + ""
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "/* @ Date: " + String.Format("{0:D}", Date.Now) + ""
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "/* @ Description: "
        DTE.ActiveDocument.Selection.Text = "*/"
        DTE.ActiveDocument.Selection.NewLine()
        DTE.ActiveDocument.Selection.Text = "/***************************************************************/"
        DTE.ActiveDocument.Selection.NewLine()
    End Sub
End Module
           

參考連結：

http://www.cnblogs.com/CookBlack/archive/2011/03/04/1971283.html#printSource

http://wenku.baidu.com/view/8ae46fa5b0717fd5360cdc1a.html