快速掌握VC6.0中各種宏注釋應用(附圖)

更新時間：2013年01月03日 14:20:11 作者：

為了方便別人或自己閱讀自己的程序，注釋是堅決不可少的,一個漂亮的程序，不是在于你應用的技術(shù)多么高深，而是能夠把高深的技術(shù)描述的清楚易懂

為了方便別人或自己閱讀自己的程序，注釋是堅決不可少的。一個漂亮的程序，不是在于你應用的技術(shù)多么高深，而是能夠把高深的技術(shù)描述的清楚易懂。

在Java的IDE環(huán)境——Eclispe中，有很多中注釋的，并且設置注釋也是很方便的，因為現(xiàn)在從事C++，嘻嘻，Eclispe已經(jīng)卸載，至于設置注釋的地方，直接百度或谷歌即可。

所以嘛，習慣了Eclispe的注釋，所以想法設法，在VC6.0中嘗試。當對于一個陌生的東西而言，如何熟悉他呢，就是拿你現(xiàn)在已有的知識，去聯(lián)想。比如Java中截取字符串，或解析xml等，一個語言中有，另一個語言中十之八九也有的。

并且在VB.NET中，當時添加各種注釋，是通過宏定義的，相比之下，還是喜歡Eclispe設置，因為更加傻瓜，直接選擇添加宏定義比如$Date

那么來說一下，在VC6.0中是如何添加常用的文件頭注釋和函數(shù)方法注釋。

在上上篇博客中，已經(jīng)介紹了一種，使用CTRL+\來注釋某一行的或多行。并且在上篇博客中也介紹了插件的使用，其中就有多行注釋。

我們說一下，使用宏定義的方式，來添加文件頭和函數(shù)的注釋，也就是自己定義腳本，嘻嘻，是VB6.0的腳本吼，看見那種Sub End Sub，還是蠻親切的哦

第一：打開VC6.0程序，工具——定制——附加項和宏定義——勾選SAMPLE

第二：打開VC6.0程序，選擇工具——宏

第三：點擊確定。出現(xiàn)各種宏的界面。

第四：在宏名稱中，寫自己需要定義的注釋名稱。比如函數(shù)注釋——FunctionDesc。然后點擊編輯。

復制代碼代碼如下:

Sub FunctionDesc() 

End Sub 

PS：可以對設置的注釋，進行快捷鍵設置，類似Java中的CTRL+SHIFT+\

點擊選項：

第五：填充vb腳本。若是您的腳本技術(shù)了得，那就自己寫嘍，若是想省事可以直接copy或者modify一下即可。我函數(shù)描述腳本如下：

復制代碼代碼如下:

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 = " * 函數(shù)名 : " 
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 = "* 輸入?yún)?shù):" 
doc.Selection.NewLine 
doc.Selection = "* 輸出參數(shù):" 
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 = "* 創(chuàng)建日期: " + 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 = " * 版權(quán)說明 Contect copyright (c)" 
doc.Selection.NewLine 
doc.Selection = "* 文件名 : " + ActiveDocument.Name 
doc.Selection.NewLine 
doc.Selection ="* 文件描述：" 
doc.Selection.NewLine 
doc.Selection = "* 創(chuàng)建日期: " + CStr(Now()) 
doc.Selection.NewLine 
doc.Selection = "* 作者 : lhy" 
doc.Selection.NewLine 
doc.Selection = "*/ " 
End Sub 

效果如下哈：

復制代碼代碼如下:

/** 
* 函數(shù)名 : active(long processInstID,long activityInstID) 
* 功能描述: 激活指定業(yè)務功能的窗口。 
* 輸入?yún)?shù): 流程實例id，活動實例id 
* 輸出參數(shù): 
* 返回值 : active 
* 作者 : lhy 
* 創(chuàng)建日期: 2012/10/11 10:26:42 
*/ 
HRESULT active(long processInstID,long activityInstID) 
{ 

//動態(tài)加載客戶的動態(tài)鏈接庫 
//加載動態(tài)鏈接庫 
HINSTANCE hDLL=LoadLibrary("customerdll.dll"); 

//聲明函數(shù)指針 
typedef HRESULT (*activeBusiness)(long,long); 
if(hDLL==NULL) 
return S_FALSE; 

//加載動態(tài)鏈接庫中函數(shù)的地址 
activeBusiness activeBusinessFunc=(activeBusiness)GetProcAddress(hDLL,"active"); 
//判斷地址是否為空 
if(activeBusinessFunc==NULL) 
return S_FALSE; 


activeBusinessFunc(processInstID,activityInstID); 

//釋放動態(tài)鏈接庫 
FreeLibrary(hDLL); 
return S_OK; 
} 