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

并且在VB.NET中，當(dāng)時(shí)添加各種注釋，是通過宏定義的，相比之下，還是喜歡Eclispe設(shè)置，因?yàn)楦由倒?，直接選擇添加宏定義比如$Date

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

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

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

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

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

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

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

復(fù)制代碼代碼如下:

Sub FunctionDesc() 

End Sub 

PS：可以對(duì)設(shè)置的注釋，進(jìn)行快捷鍵設(shè)置，類似Java中的CTRL+SHIFT+\

點(diǎn)擊選項(xiàng)：

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

復(fù)制代碼代碼如下:

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 

文件頭注釋類似：文件頭注釋如下：

復(fù)制代碼代碼如下:

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 

效果如下哈：

復(fù)制代碼代碼如下:

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

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

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

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


activeBusinessFunc(processInstID,activityInstID); 

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

其中的樣式，可以自己更改，比如//或*。但是這種注釋，還是達(dá)不到Eclispe中，因?yàn)樵贓clispe中，每個(gè)參數(shù)已經(jīng)在注釋中了，這樣就直接對(duì)每個(gè)參數(shù)，進(jìn)行中文解釋而已。而這種方式，輸入?yún)?shù)，是自己手動(dòng)填寫的。o(︶︿︶)o

另一種更簡(jiǎn)單的做法如下:

第一：編寫腳本，放在安裝路徑下Macros。后綴是DSM。我的DSM文件路徑如下：

第二：選擇宏文件

第三：載入文件后，工具—定制中會(huì)自動(dòng)出現(xiàn)或?yàn)g覽相應(yīng)路徑下相應(yīng)的文件

第四：操作完畢，進(jìn)一步設(shè)置快捷鍵，類似第一種方法中設(shè)置快捷鍵，工具—宏—選擇相應(yīng)的宏進(jìn)行設(shè)置

到此為止，最常用的兩種注釋，都已經(jīng)添加啦。目前我設(shè)置的規(guī)范注釋就兩種，快捷鍵全部設(shè)置java中的快捷鍵。

遇到陌生的事物，其實(shí)請(qǐng)不必因擔(dān)心顧慮而失去冷靜?？梢杂靡郧皩W(xué)的知識(shí)去剖析這個(gè)所謂陌生的東東，陌生中肯定會(huì)有您所熟悉親切的一部分。剩下那部分陌生部分，再在親切的感覺中慢慢摸索?？v然知道新手，肯定不如老手熟練，效率高，但是誰都有新手的時(shí)候，誰有都有老手的時(shí)候。