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) -
'**输 出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2003年06月26日
'**修 改 人：
'**日 期：
'**版 本：V1.0
'*************************************************************************
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X AsSingle, Y As Single)
End Sub
2、配置函数说明的样式
*************************************************************************
**函 数 名：%FunctionName%
**输 入：%Input%
**输 出：%OutPut%
**功能描述：
**全局变量：
**调用模块：
**作 者：%Writer%
**日 期：%Date%
**修 改 人：
**日 期：
**版 本：%Version%
*************************************************************************
输入前缀：输入信息有多个时，第二行起始的参数说明前的注释信息。
关键字说明：
1、%FunctionName%：函数名称，实际使用时，系统自动用实际的函数（或过程）
名称替换；
2、%Input%：输入参数，实际使用时，系统自动用实际的参数名称替换；当有多个输
入参数时，第二行起始的参数说明前的注释信息为“输入前缀”中的内容。
3、%OutPut%：输入信息；
4、%Writer%：软件作者，系统自动用注册的软件使用者的名称替换；如果为企业用
户，该作者可以任意修改。
5、%Date%：添加日期，实际使用时，系统自动用当前的日期替换；注：日期格式为
基本配置中设定的日期格式。
6、%Version%：软件版本，实际使用时，系统自动用实际的软件版本替换；注意，
该版本显示的是工程文件保存后的版本。
四、添加出错处理
1、添加出错处理信息
先把光标放到目标函数或过程内部，然后单击菜单栏的【添加出错处理】图标或按
热键Ctrl+Alt+E，则自动根据配置填写出错处理代码。
i、错误处理方式
错误处理方式有四种(能自动根据函数或过程的不同，填写相应代码）：
1)、跳出：
'打开错误处理陷阱
On Error GoTo ErrGoto
'----------------------------------------------------
'----------------------------------------------------
Exit Sub
'-----------------------------
ErrGoto:
2)、继续：Resume
3)、跳过：Resume Next
4)、结束：End
ii、把错误信息保存在数据文件
错误信息的格式：时间，信息类别，错误信息，所在模块，工程名称
Private Function Add(A As Integer, B As Integer) As Integer
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 NextEnd Function
iii、自定义错误处理语句
错误信息的格式：时间，信息类别，错误信息，所在模块，工程名称
Private Function Add(A As Integer, B As Integer) As Integer
On Error GoTo ToExit '打开错误陷阱
'----------------------------------------------------
Add = A + B
'----------------------------------------------------
Exit Function
'-----------------------------
ToExit: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代码的格式整理。
注：选用函数内整理时，输入光标要在相应的函数内才有效。
代码整理前：
Private Function Add(A As Integer, B As Integer) As Integer
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
If A = B Then
Add = A + B + Val(Left("9999", 2))
End If
A = 0: B = 0
'------------------------------------------------
Exit Function
'----------------
ToExit:
Debug.Print "错误发生时间:"; Format(Now, "YYYY-MM-DD HH:MM:SS")
Debug.Print "错误 的 类型:"; Err.Number
Debug.Print "错误 的 信息:"; Err.Description
Debug.Print "错误函数名称:Add"
Debug.Print "错误模块名称:Form1"
Resume Next
End Function
代码整理后（进行了相应的缩格处理）：
Private Function Add(A As Integer, B As Integer) As Integer
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
If A = B ThenAdd = A + B + Val(Left$("9999", 2)) －－添加了“$”符号
End If
A = 0 －－分行
B = 0
'------------------------------------------------
Exit Function
'----------------
ToExit:
Debug.Print "错误发生时间:"; Format$(Now, "YYYY-MM-DD HH:MM:SS")
Debug.Print "错误 的 类型:"; Err.Number
Debug.Print "错误 的 信息:"; Err.Description
Debug.Print "错误函数名称:Add"
Debug.Print "错误模块名称:Form1"
Resume Next
End Function
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
... ...
2、关键字配置
可以添加和删除相应的关键字，同时可设置关键字的有效性。
注：空行：空格键->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
'**输 入：无
'**输 出：无
'**功能描述：限制在开发模式下的控件大小
'**全局变量：
'**调用模块：
'**作 者：叶帆
'**日 期：2002年12月31日
'**修 改 人：
'**日 期：
'**版 本：版本1.0
'*************************************************************************
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、可以任意设定软件开发者
定制版：
根据需要定制。