Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Public Module Module1
Sub AddUnitComment()
Dim DocSel As EnvDTE.TextSelection
DocSel = DTE.ActiveDocument.Selection
DocSel.NewLine()
DocSel.Text = "/*****************************************"
DocSel.NewLine()
DocSel.Text = "*@file "
DocSel.NewLine()
DocSel.Text = "*@brief "
DocSel.NewLine()
DocSel.Text = "*@author zhangmang"
DocSel.NewLine()
DocSel.Text = "*@date " + System.DateTime.Now.ToLongDateString()
DocSel.NewLine()
DocSel.Text = "*@remarks "
DocSel.NewLine()
DocSel.Text = "*@version 3.0"
DocSel.NewLine()
DocSel.Text = "*Copyright (c) 1998-2013 zmCorporation"
DocSel.NewLine()
DocSel.Text = "*****************************************/"
End Sub
Sub AddFuncComment()
Dim DocSel As EnvDTE.TextSelection
DocSel = DTE.ActiveDocument.Selection
DocSel.NewLine()
DocSel.Text = "/*****************************************"
DocSel.NewLine()
DocSel.Text = "*@brief "
DocSel.NewLine()
DocSel.Text = "*@author zhangmang " + System.DateTime.Now.ToLongDateString()
DocSel.NewLine()
DocSel.Text = "*@param[out] "
DocSel.NewLine()
DocSel.Text = "*@param[in] "
DocSel.NewLine()
DocSel.Text = "*@return "
DocSel.NewLine()
DocSel.Text = "*****************************************/"
End Sub
Sub AddCommonComment()
Dim DocSel As EnvDTE.TextSelection
DocSel = DTE.ActiveDocument.Selection
DocSel.NewLine()
DocSel.Text = "//zhangmang " + System.DateTime.Now.ToLongDateString() + "fixed bug "
End Sub
End Module