快速掌握VC6.0中各种宏注释应用(附图)

时间：2021-04-19 08:06:50|栏目：C代码|点击：次

为了方便别人或自己阅读自己的程序，注释是坚决不可少的。一个漂亮的程序，不是在于你应用的技术多么高深，而是能够把高深的技术描述的清楚易懂。

在Java的IDE环境――Eclispe中，有很多中注释的，并且设置注释也是很方便的，因为现在从事C++，嘻嘻，Eclispe已经卸载，至于设置注释的地方，直接百度或谷歌即可。

所以嘛，习惯了Eclispe的注释，所以想法设法，在VC6.0中尝试。当对于一个陌生的东西而言，如何熟悉他呢，就是拿你现在已有的知识，去联想。比如Java中截取字符串，或解析xml等，一个语言中有，另一个语言中十之八九也有的。

并且在VB.NET中，当时添加各种注释，是通过宏定义的，相比之下，还是喜欢Eclispe设置，因为更加傻瓜，直接选择添加宏定义比如$Date

那么来说一下，在VC6.0中是如何添加常用的文件头注释和函数方法注释。

在上上篇博客中，已经介绍了一种，使用CTRL+\来注释某一行的或多行。并且在上篇博客中也介绍了插件的使用，其中就有多行注释。

我们说一下，使用宏定义的方式，来添加文件头和函数的注释，也就是自己定义脚本，嘻嘻，是VB6.0的脚本吼，看见那种Sub End Sub，还是蛮亲切的哦

第一：打开VC6.0程序，工具――定制――附加项和宏定义――勾选SAMPLE

第二：打开VC6.0程序，选择工具――宏

第三：点击确定。出现各种宏的界面。

第四：在宏名称中，写自己需要定义的注释名称。比如函数注释――FunctionDesc。然后点击编辑。

复制代码代码如下:

 
Sub FunctionDesc() 
 
End Sub

PS：可以对设置的注释，进行快捷键设置，类似Java中的CTRL+SHIFT+\

点击选项：

第五：填充vb脚本。若是您的脚本技术了得，那就自己写喽，若是想省事可以直接copy或者modify一下即可。我函数描述脚本如下：

复制代码代码如下:

 
Sub FunctionDesc() 
 
Dim doc 
 
set doc = ActiveDocument 
 
' Be sure active document is a text document 
 
if doc Is Nothing Then 
 
Exit Sub 
 
elseif doc.Type <> "Text" Then 
 
Exit Sub 
 
End If 
 
doc.Selection = "/** " 
 
doc.Selection.NewLine 
 
doc.Selection = " * 函数名 : " 
 
doc.Selection.LineDown 
 
doc.Selection.copy 
 
doc.Selection.LineUp 
 
doc.Selection.EndOfLine dsLastText 
 
doc.Selection = doc.Selection + " " 
 
doc.Selection.paste 
 
doc.Selection = " * 功能描述:" 
 
doc.Selection.NewLine 
 
doc.Selection = "* 输入参数:" 
 
doc.Selection.NewLine 
 
doc.Selection = "* 输出参数:" 
 
doc.Selection.NewLine 
 
doc.Selection = "* 返回值 :" 
 
doc.Selection.LineDown 
 
doc.Selection.StartOfLine dsFirstText 
 
' doc.Selection.CharRight dsExtend, 4 
 
doc.Selection.WordRight dsExtend, 1 
 
doc.Selection.copy 
 
doc.Selection.LineUp 
 
doc.Selection.EndOfLine dsLastText 
 
doc.Selection = doc.Selection + " " 
 
doc.Selection.paste 
 
doc.Selection.NewLine 
 
doc.Selection = "* 作者 : lhy " 
 
doc.Selection.NewLine 
 
doc.Selection = "* 创建日期: " + CStr(Now()) 
 
doc.Selection.NewLine 
 
doc.Selection = "*/ " 
 
End Sub

文件头注释类似：文件头注释如下：

复制代码代码如下:

 
Sub FileDesc() 
 
Dim doc 
 
set doc = ActiveDocument 
 
' Be sure active document is a text document 
 
if doc Is Nothing Then 
 
Exit Sub 
 
elseif doc.Type <> "Text" Then 
 
Exit Sub 
 
End If 
 
doc.Selection.MoveTo 1, 1 
 
doc.Selection.NewLine 
 
doc.Selection.MoveTo 1, 1 
 
doc.Selection = "/** " 
 
doc.Selection.NewLine 
 
doc.Selection = " * 版权说明 Contect copyright (c)" 
 
doc.Selection.NewLine 
 
doc.Selection = "* 文件名 : " + ActiveDocument.Name 
 
doc.Selection.NewLine 
 
doc.Selection ="* 文件描述：" 
 
doc.Selection.NewLine 
 
doc.Selection = "* 创建日期: " + CStr(Now()) 
 
doc.Selection.NewLine 
 
doc.Selection = "* 作者 : lhy" 
 
doc.Selection.NewLine 
 
doc.Selection = "*/ " 
 
End Sub

效果如下哈：

复制代码代码如下:

 
/** 
 
* 函数名 : active(long processInstID,long activityInstID) 
 
* 功能描述: 激活指定业务功能的窗口。 
 
* 输入参数: 流程实例id，活动实例id 
 
* 输出参数: 
 
* 返回值 : active 
 
* 作者 : lhy 
 
* 创建日期: 2012/10/11 10:26:42 
 
*/ 
 
HRESULT active(long processInstID,long activityInstID) 
 
{ 
 
//动态加载客户的动态链接库 
 
//加载动态链接库 
 
HINSTANCE hDLL=LoadLibrary("customerdll.dll"); 
 
//声明函数指针 
 
typedef HRESULT (*activeBusiness)(long,long); 
 
if(hDLL==NULL) 
 
return S_FALSE; 
 
//加载动态链接库中函数的地址 
 
activeBusiness activeBusinessFunc=(activeBusiness)GetProcAddress(hDLL,"active"); 
 
//判断地址是否为空 
 
if(activeBusinessFunc==NULL) 
 
return S_FALSE; 
 
activeBusinessFunc(processInstID,activityInstID); 
 
//释放动态链接库 
 
FreeLibrary(hDLL); 
 
return S_OK; 
 
}