VB程式設計的好幫手－－【VB源碼之友】快速進階%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

VB源碼之友是VB軟體開發的好助手，它即能規範源碼開發的格式，又能提高程式設計的速度，是一款不可多得的好工具。 它是是繼API浏覽器之後，葉帆軟體系列家族中又一款重量級VB程式開發輔助軟體。

主要有以下幾個功能：

1、程式注釋自動生成；

2、變量自動添加字首（符合匈牙利命名規則、也可以自定義）；

3、指令字自動補齊功能（可自定義）；

4、代碼格式自動整理；

5、源碼資訊統計；

6、VB工程自動儲存（時間間隔可以設定）；

7、智能查詢（可以直覺地切換所查到的資訊）；

8、智能定位（可以直覺地切換到标記位置）。

【下載下傳連結】------------------------------------------------

http://www.softreg.com.cn/shareware_view.asp?id=/6FAE6D34-825B-4862-B771-B3EA1BD8A417/

【功能說明】------------------------------------------------

一、基本配置

1、作者：對未注冊版、個人版、專業版該選項不能配置，資訊來源于注冊資訊中的軟體使

用者；對企業版或定制版，該作者名稱可以根據實際進行設定。

2、公司：對未注冊版、個人版、專業版、企業版該選項不能配置，資訊來源于注冊資訊中

的公司資訊；對定制版，該公司名稱可以根據實際進行設定。

3、日期格式：該格式是“子產品說明”、“函數說明”、“出錯處理”等中顯示的日期格式

來源；注：該日期格式設定一定有效正确，否則會出現不可預料的錯誤。

4、配置檔案：該配置檔案預設為目前插件所在的目錄，可以設定該檔案的路徑資訊。也可

以通過選擇不同的配置檔案，定做不同的格式模闆。

5、VB工程檔案定時儲存：該功能啟用後，根據設定的儲存間隔，自動儲存VB工程檔案。

6、功能熱鍵有效：該功能啟用後，所有的熱鍵方有效。

7、VB IDE滑鼠滾輪有效：該功能啟用後，使VB編輯器支援滑鼠滾輪功能。

二、添加子產品說明

 進入編輯模式

1、添加子產品說明

單擊菜單欄的【添加子產品說明】圖示或按熱鍵Ctrl+Alt+T，即在子產品的頂端添加如下的資訊：

'*

'**模 塊 名：Form1                           －－Form1    自動填寫子產品的名稱

'**說    明：葉帆軟體 版權所有2003 - 2004(C) －－葉帆軟體 注冊的的公司名

'**創 建 人：葉帆                            －－葉帆     注冊的的作者

'**日    期：2003年06月26日                  －－自動填寫目前日期

'**修 改 人：

'**日    期：

'**描    述：

'**版    本：V1.0                            －－自動填寫目前的版本（儲存後的版本）

2、配置子產品說明的樣式

**模 塊 名：%ModuleName%

**說    明：%Company% 版權所有%DateYear%(C)

**創 建 人：%Writer%

**日    期：%Date%

**修 改 人：

**日    期：

**描    述：

**版    本：%Version%

關鍵字說明：

1、%ModuleName%：子產品名稱，實際使用時，系統自動用實際的子產品名稱替換；

2、%Company%：公司名稱，實際使用時，系統自動用注冊的公司名稱替換；

3、%DateYear%：版本所有的年限，系統以目前年為起始，延續一年的格式顯示，

如2004－2005；

4、%Writer%：軟體作者，系統自動用注冊的軟體使用者的名稱替換；如果為企業

使用者，該作者可以任意修改。

5、%Date%：添加日期，實際使用時，系統自動用目前的日期替換；注：日期格式

為基本配置中設定的日期格式。

6、%Version%：軟體版本，實際使用時，系統自動用實際的軟體版本替換；注意，

該版本顯示的是工程檔案儲存後的版本。

三、添加函數說明

1、添加函數說明

先把光标放到目标函數或過程内部，然後單擊菜單欄的【添加函數說明】圖示或

按熱鍵Ctrl+Alt+P，即在函數或過程的頂端添加如下的資訊：

   i、函數（下面的函數說明都是自動填寫的）

'**函 數 名：Add

'**輸    入：A(Integer) -

'**        ：B(Integer) -

'**輸    出：(Integer) -

'**功能描述：

'**全局變量：

'**調用子產品：

'**作    者：葉帆

'**日    期：2003年06月26日

'**版    本：V1.0

Private Function Add(A As Integer, B As Integer) As Integer

   Add = A + B

End Function

   ii、過程（下面的函數說明都是自動填寫的）

'**函 數 名：Form_MouseDown

'**輸    入：Button(Integer) -

'**        ：Shift(Integer)  -

'**        ：X(Single)       -

'**        ：Y(Single)       -

'**輸    出：無

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As

Single, Y As Single)

End Sub

2、配置函數說明的樣式

**函 數 名：%FunctionName%

**輸    入：%Input%

**輸    出：%OutPut%

**功能描述：

**全局變量：

**調用子產品：

**作    者：%Writer%

輸入字首：輸入資訊有多個時，第二行起始的參數說明前的注釋資訊。

1、%FunctionName%：函數名稱，實際使用時，系統自動用實際的函數（或過程）

名稱替換；

2、%Input%：輸入參數，實際使用時，系統自動用實際的參數名稱替換；當有多個輸

入參數時，第二行起始的參數說明前的注釋資訊為“輸入字首”中的内容。

3、%OutPut%：輸入資訊；

4、%Writer%：軟體作者，系統自動用注冊的軟體使用者的名稱替換；如果為企業用

戶，該作者可以任意修改。

5、%Date%：添加日期，實際使用時，系統自動用目前的日期替換；注：日期格式為

基本配置中設定的日期格式。

四、添加出錯處理

1、添加出錯處理資訊

先把光标放到目标函數或過程内部，然後單擊菜單欄的【添加出錯處理】圖示或按

熱鍵Ctrl+Alt+E，則自動根據配置填寫出錯處理代碼。

i、錯誤處理方式

錯誤處理方式有四種(能自動根據函數或過程的不同，填寫相應代碼）：

1)、跳出：

'打開錯誤處理陷阱

On Error GoTo ErrGoto

'----------------------------------------------------

Exit Sub

'-----------------------------

ErrGoto:

2)、繼續：Resume          

3)、跳過：Resume Next

4)、結束：End

   ii、把錯誤資訊儲存在資料檔案

錯誤資訊的格式：時間，資訊類别，錯誤資訊，所在子產品，工程名稱

On Error GoTo ToExit  '打開錯誤陷阱

Add = A + B

Exit Function

ToExit:

Dim lngErrFileNo As Integer '自由檔案号

'把錯誤資訊儲存在檔案裡

lngErrFileNo = FreeFile()

Open App.Path & "/YFErrmsg.txt" For Append As lngErrFileNo 

Print #lngErrFileNo, "ErrMsg:" & Format$(Now, "YYYY-

MM-DD HH:MM:SS") & "," & Err.Number & "," & Err.Description & ",Add,Form1"

Close #intErrFileNo

Resume Next

iii、自定義錯誤處理語句

Debug.Print "錯誤發生時間:"; Format(Now, "YYYY-MM-DD HH:MM:SS")

Debug.Print "錯誤 的 類型:"; Err.Number

Debug.Print "錯誤 的 資訊:"; Err.Description

Debug.Print "錯誤函數名稱:Add"

Debug.Print "錯誤子產品名稱:Form1"

  End Function

2、配置出錯處理的樣式

debug.print "錯誤發生時間:"%DateTime%

debug.print "錯誤 的 類型:"%ErrorType%

debug.print "錯誤 的 資訊:"%ErrorDescription%

debug.print "錯誤函數名稱:%ErrorSource%"

debug.print "錯誤子產品名稱:%SystemTitle%"

1、%AppPath%：工程路徑，實際使用時，系統自動用實際的路徑資訊替換；

2、%DateTime%：出錯日期，實際使用時，系統自動用目前的日期替換；注：日期格式為日

期類型中配置的格式。

3、%ErrorType%：錯誤類型，實際使用時，系統自動用Err.Number替換；

4、%ErrorDescription%：錯誤資訊，實際使用時，系統自動用Err.Description替換；

5、%ErrorSource%：錯誤來源，實際使用時，系統自動用所在的函數或過程名稱替換；

6、%SystemTitle%：系統标題，實際使用時，系統自動用所在的函數或過程所在的模

塊名稱替換；

五、代碼格式整理

1、代碼格式整理

單擊菜單欄的【代碼格式整理】圖示或按 熱鍵：函數内整理Ctrl+Alt+C 或 子產品内整理

Ctrl+Alt+A，即可完成VB代碼的格式整理。

注：選用函數内整理時，輸入光标要在相應的函數内才有效。

代碼整理前：

On Error GoTo ToExit '打開錯誤陷阱

'------------------------------------------------

If A = B Then

Add = A + B + Val(Left("9999", 2))

End If

A = 0: B = 0

'----------------

代碼整理後（進行了相應的縮格處理）：

Add = A + B + Val(Left$("9999", 2))  －－添加了“$”符号

A = 0         －－分行

B = 0

Debug.Print "錯誤發生時間:"; Format$(Now, "YYYY-MM-DD HH:MM:SS")

2、配置代碼格式整理模式

i、啟用[字元串指令添加"$"功能]：給字元串指令添加$,可以在編輯框中輸入新的關鍵字，

也可以删除相應的關鍵字，同時也可設定關鍵字的有效性。

ii、函數内整理：設定後，按工具欄圖示代碼整理範圍針對目前函數，否則對應整個子產品。

iii、分拆以":"分隔的代碼行，啟用後，分隔代碼中以":"分隔的代碼行。

六、智能查找/智能定位

1、智能查找

單擊菜單欄的【智能查找/定位】圖示或按熱鍵Ctrl+Alt+F，顯示智能查找視窗：

基本界面：

選擇半透明（對Win2000以上的版本有效），及隐藏設定區後的界面如下

“VB智能查找”是VB編輯下的“查找功能”加強版，它最大的特點有兩條：

1、把所有比對的資料一次查找出來，并在list框裡顯示。

2、輕按兩下list框的選項，輸入光标直接定位到相對應的代碼行。

2、智能定位

按熱鍵Ctrl+Alt+D，顯示智能定位視窗：

基本界面：（也可以設定窗體半透明（對Win2000以上的版本有效））

“VB智能定位”是VB編輯下的“書簽功能”加強版，它最大的特點有兩條：

1、把所有書簽顯示在list框裡。

2、輕按兩下list框的書簽，輸入光标直接定位到相對應的代碼行。

注：設定書簽時，一定通過“VB智能定位”小旗幟設定，删除時也一樣。

七、關鍵字自動補齊

1、關鍵字自動補齊

對配置好的關鍵字，在輸入關鍵字後（回車後），系統自動添加相對應的關鍵字

輸入的關鍵字        自動補齊的關鍵字

Do                  Loop

If                  End if

While               Wend

For                 Next

...                 ...

2、關鍵字配置

可以添加和删除相應的關鍵字，除此之外還可以設定關鍵字的有效性。

注：函數說明：回車－>輸入字首  該功能啟用後，在函數說明行，回車自動添加輸入字首

資訊。

八、關鍵字自動替換

1、關鍵字自動替換

對配置好的關鍵字，在輸入關鍵字後（輸入空格或回車後），系統自動替換為相對應的

關鍵字

輸入的關鍵字        替換後的關鍵字

exf                 Exit Function

puf                 Public Function

可以添加和删除相應的關鍵字，同時可設定關鍵字的有效性。

注：空行：空格鍵->Tab 功能啟用後，在函數内在每個空行中輸入空格鍵相當于按Tab鍵。

九、關鍵字自動比對

1、定位相對應的關鍵字

熱鍵：Ctrl+[    向前尋找比對

熱鍵：Ctrl+]    向後尋找比對

2、配置關鍵字（和自動補齊功能的關鍵字相同）

十、變量自動添加字首

1、變量自動添加字首

對配置好的資料類型，在變量命名時自動添加相對應的字首：

添加前                          添加後（輸入回車後）

dim data as String              Dim strData As String

dim num as Long                 Dim lngNum As Long   

dim index as Integer            Dim intIndex As Integer

...                             ...

注：對一些特殊變量，如i，j，k等可以專門設定為不加字首的變量。

2、字首格式配置

（1）變量字首設定：

可以添加和删除變量字首的格式，同時也可以設定指定變量字首的有效性。

（2）不加字首的變量設定：

可以添加和删除不加字首的變量名稱，同時也可以設定指定變量的有效性。

十一、源碼資訊統計

按掃描按鈕，可以根據不同的選項顯示整個工程的所有打開的子產品資訊（各種函數聲明）。

（可標明要掃描的子產品）。

按儲存檔案，可以把掃描資訊儲存在檔案裡。

選項說明：

1、顯示子產品詳細資訊：啟用後，統計資訊顯示子產品的詳細資訊。

2、顯示函數詳細資訊：啟用後，統計資訊顯示函數頂端的注釋資訊。

3、顯示代碼量、注釋量：顯示代碼的行數和注釋行數等資訊。

顯示示例：

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

[工程名稱] MMouse

[檔案名稱] MMouse.vbp

[子產品名稱] Mouse

[檔案名稱] MMouse.ctl

'**函 數 名：tmrMouse_Timer

'**輸 入：無

'**輸 出：無

'**功能描述：滾輪觸發事件

'**作 者：葉帆

'**日 期：2002年12月31日

'**日 期：

'**版 本：版本1.0

Private Sub tmrMouse_Timer()

函數總行數:20

'**函 數 名：UserControl_Resize

'**功能描述：限制在開發模式下的控件大小

Private Sub UserControl_Resize()

函數總行數:18

...

==================================================================

總 行 數:103

代碼行數:23

空行行數:5

注釋行數:78

注釋行數/代碼函數:339.13%

函數總數:5

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

注冊使用者可以使用以下功能：

個人版：

1、子產品說明格式定制功能

2、函數說明格式定制功能

3、出錯處理格式定制功能（部分）

專業版：

1、具有全部的個人版功能

2、VB功能定時儲存功能

3、熱鍵功能有效（支援熱鍵）

4、出錯處理可配置儲存檔案資訊功能

5、出錯處理處理資訊可以定制功能

6、代碼整理定制功能

7、自動補齊定制功能

8、自動替換定制功能

9、自動比對功能

10、智能定位功能

企業版：

1、具有全部的專業版功能

2、變量命名定制功能

3、源碼統計功能

4、可以任意設定軟體開發者

定制版：

根據需要定制。