VS2010中编写宏添加作者信息与函数注释

2023-07-23 16:52:28

　　这里所说的宏是指通过一系列键盘组合键和可以插入自定义内容。下面介绍怎么编写一个自己的宏：

1、在Visual Studio 2010中按Alt+F11打开宏IDE：

2、打开后选择添加模块：

3、在弹出的窗口中输入名称后确定添加：

4、出现如下页面即可进行编辑：

5、在Public Module MyInformation中添加如下代码：

（1）FileSign函数：添加作者信息

 Public Sub FileSign()

         Dim DocSel As EnvDTE.TextSelection

         DocSel = DTE.ActiveDocument.Selection

         '活动点移到文件开头

         DTE.ActiveDocument.Selection.StartOfDocument()

         If DocSel.FindPattern("Last modified", vsFindOptions.vsFindOptionsRegularExpression) Then

             '找到Last modified字符串，说明已经添加过作者信息，只更新Last modified和Filename信息

             DocSel.SelectLine()

             DocSel.Delete()

             DocSel.SelectLine()

             DocSel.Delete()

             DocSel.Text = "//  Last modified : " + Date.Today.ToString("yyyy-MM-dd") + " " + TimeOfDay.Hour.ToString("") + ":" + TimeOfDay.Minute.ToString("")

             DocSel.NewLine()

             DocSel.Text = "//  Filename      : " + DTE.ActiveDocument.Name

             DocSel.NewLine()

         Else

             '没有找到Last modified字符串，添加全部信息

             DTE.ActiveDocument.Selection.StartOfDocument()

             DocSel.Text = "//=================================================================="

             DocSel.NewLine()

             DocSel.Text = "//  Author        : vitah"

             DocSel.NewLine()

             DocSel.Text = "//  Mail          : linw1225@163.com"

             DocSel.NewLine()

             DocSel.Text = "//  Last modified : " + Date.Today.ToString("yyyy-MM-dd") + " " + TimeOfDay.Hour.ToString("") + ":" + TimeOfDay.Minute.ToString("")

             DocSel.NewLine()

             DocSel.Text = "//  Filename      : " + DTE.ActiveDocument.Name

             DocSel.NewLine()

             DocSel.Text = "//  Description   :"

             DocSel.NewLine()

             DocSel.Text = "//"

             DocSel.NewLine()

             DocSel.Text = "//=================================================================="

             DocSel.NewLine()

             DocSel.NewLine()

         End If

         DocSel.MoveToLineAndOffset(, )  '活动点移动到Description处，填写描述信息

     End Sub

FileSign

（2）FuncSign函数：添加函数注释

  Public Sub FuncSign()

         Dim DocSel As EnvDTE.TextSelection

         DocSel = DTE.ActiveDocument.Selection

         DocSel.NewLine()

         DocSel.Text = "//=================================================================="

         DocSel.NewLine()

         DocSel.Text = "//  Function       : "

         DocSel.NewLine()

         DocSel.Text = "//  Description    : "

         DocSel.NewLine()

         DocSel.Text = "//  Calls          : "

         DocSel.NewLine()

         DocSel.Text = "//  Called By      : "

         DocSel.NewLine()

         DocSel.Text = "//  Table Accessed : "

         DocSel.NewLine()

         DocSel.Text = "//  Table Updated  : "

         DocSel.NewLine()

         DocSel.Text = "//  Input          : "

         DocSel.NewLine()

         DocSel.Text = "//  Output         : "

         DocSel.NewLine()

         DocSel.Text = "//  Return         : "

         DocSel.NewLine()

         DocSel.Text = "//  Others         : "

         DocSel.NewLine()

         DocSel.Text = "//=================================================================="

     End Sub