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 + BEnd 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 As
Single , 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 Next
End 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.NumberDebug.Print "错误 的 信息:"; Err.DescriptionDebug.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.NumberDebug.Print "错误 的 信息:"; Err.DescriptionDebug.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 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.NumberDebug.Print "错误 的 信息:"; Err.DescriptionDebug.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、可以任意设定软件开发者
定制版:
根据需要定制。