VS2010编写自定义宏注释

来源：互联网发布：python datetime函数编辑：程序博客网时间：2024/04/29 16:38

一部分引自：http://blog.csdn.net/ajioy/article/details/8483011

这里所说的宏可不是指#define PI 3.14159之类的，而是按下Alt + 1,Alt + 2之类的键盘组合之后可以方便地插入一大串自定义的内容，如：

[cpp] view plaincopy
/******************************************************************* 
* 函数名称： 
* 功    能： 
* 参    数： 
* 返 回 值：void 
* 创 建 人：Ajioy 
* 博    客：blog.csdn.net/ajioy 
* 电子邮箱：ajioy1206@gmail.com 
* 日    期：2013.1.8 21:18 
*******************************************************************/  

怎样自己写一个宏？

1.打开VS2010（或VS的其它版本），“Tools” --> "Macros"--->"Macros IDE...(Alt + F11)" 打开宏IDE

2.在宏IDE的工具栏中"Project"->"Add Module"（或Add New Item）->Name:AjioyMacros--->"Add"

3.将初始内容替换成以下代码

[cpp] view plaincopy
Imports System  
Imports EnvDTE  
Imports EnvDTE80  
Imports EnvDTE90  
Imports EnvDTE90a  
Imports EnvDTE100  
Imports System.Diagnostics  
Imports System.Text  
Imports System.Text.RegularExpressions  
Imports System.IO  
Imports System.Collections.Specialized  
  
Public Module AjioyMacros'这里要与保存的Module名保持一致，不然无法调用宏  
    Sub AddMessageBox()  
        'DESCRIPTION 增加对话框  
        ActiveDocument.Selection.Text = "MessageBox("""",""提示"");" + vbNewLine + "system(""pause"");"  
    End Sub  
    Sub AddStartComment()  
        'DESCRIPTION 注释开始  
        ActiveDocument.Selection.Text = "system(""pause"");"  
    End Sub  
    Public Sub FileSign()  
        'DESCRIPTION 文件签名  
        Dim Description As New StringBuilder  
        Dim BlankLine As String  
        BlankLine = "//" + vbNewLine  
        With Description  
            .AppendFormat("//Copyright (c) 2013 Ajioy All Rights Reserved{0}",vbNewLine)  
            .AppendFormat("/*********************************************************************************************{0}", vbNewLine)  
            .AppendFormat("*文件名：{0}{1}{2}", vbTab, DTE.ActiveDocument.Name, vbNewLine)  
            .AppendFormat("*说明：{0}{1}{2}", vbTab, "", vbNewLine)  
            .AppendFormat("*创建日期：{0}{1}{2}", vbTab, Date.Today.ToString("yyyy-MM-dd"), vbNewLine)  
            .AppendFormat("*作者：{0}{1}{2}", vbTab, "Ajioy", vbNewLine)  
            .AppendFormat("*版本：{0}{1}{2}", vbTab, "1.0", vbNewLine)  
            .AppendFormat("*----------------------------------------------------------------------------------------------{0}", vbNewLine)  
            .AppendFormat("*修改记录：{0}", vbNewLine)  
            .AppendFormat("*日期{0}版本{1}修改人{2}修改内容{3}", New String(vbTab, 3), vbTab, vbTab, vbNewLine)  
            .AppendFormat("*{0}{1}", Date.Today.ToString("yyyy-MM-dd"), vbNewLine)  
            .AppendFormat("********************************************************************************************/{0}", vbNewLine)  
            .Append(vbNewLine)  
        End With  
        '插入cs文件头部  
        Dim objSel As TextSelection  
        objSel = CType(DTE.ActiveDocument.Selection, TextSelection)  
        DTE.UndoContext.Open("FileSign")  
        objSel.StartOfDocument(False)  
        objSel.Insert(Description.ToString())  
        DTE.UndoContext.Close()  
    End Sub  
    Sub FunctionSign()  
        'DESCRIPTION 文件签名  
        Dim obj  
        obj = Now()  
        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 = "* 创 建 人：Ajioy"  
        DocSel.NewLine()  
        DocSel.Text = "* 博    客：blog.csdn.net/ajioy"  
        DocSel.NewLine()  
        DocSel.Text = "* 电子邮箱：ajioy1206@gmail.com"  
        DocSel.NewLine()  
        DocSel.Text = "* 日    期：" + CStr(Year(obj)) + "." + CStr(Month(obj)) + "." + CStr(Day(obj)) + " " + CStr(Hour(obj)) + ":" + CStr(Minute(obj)) 'System.DateTime.Now.ToLongDateString()  
        DocSel.NewLine()  
        DocSel.Text = "*******************************************************************/"  
    End Sub  
    Sub AddModify()  
        'DESCRIPTION 增添修改  
        Dim obj  
        obj = Now()  
        ActiveDocument.Selection.Text = "//Ajioy" + CStr(Year(obj)) + "." + CStr(Month(obj)) + "." + CStr(Day(obj))  +" " + CStr(Hour(obj)) + ":" + CStr(Minute(obj)) + " 修改"  
    End Sub  
    Sub AddStartSymbol()  
        'DESCRIPTION 开始注释  
        ActiveDocument.Selection.Text = "/*"  
    End Sub  
    Sub AddEndSymbol()  
        'DESCRIPTION 结束注释  
        ActiveDocument.Selection.Text = "*/"  
    End Sub  
End Module  

简单实现功能，该部分引自：http://www.xuebuyuan.com/630353.html

Imports SystemImports EnvDTEImports EnvDTE80Imports EnvDTE90Imports EnvDTE90aImports EnvDTE100Imports System.DiagnosticsPublic Module MyNote    Sub DocumentFileHeader()        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 = "'◇版本号：V1.0"        DocSel.NewLine()        DocSel.Text = "'◇创建日期：" + System.DateTime.Now.ToLongDateString        DocSel.NewLine()        DocSel.Text = "'*************************************************"    End SubEnd Module

保存后关闭宏IDE

4.回到VS2010主界面，"Tools"--->"Options"--->"Environment"--->"Keyboard"--->在Show commands containing:下的编辑框中输入FunctionSign（所有带括号的那些名称，如AddStartSymbol()...），会看到有"Macros.Macros(或Samples).AjioyMacros.FunctionSign"的项，选中它，在Press shortcut keys:下自定义快捷键，建议用Alt + 数字0－9和－+键组合，以免与编译环境快捷键发生冲突，之后"Assign"，最后确定。

接下来我们可以随便验证一下，打开一个.cpp文件，按下Alt + 数字，产生自定义注释。

0 0