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

2020-02-16 分类：首页

标签Tags:快速,掌握,vc,各种,注释,应用,附图,方便,别人,阅读,自己的,程序,坚决,不可,少的,漂亮的,在于

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

在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; 
} 