VB编程的好帮手－－【VB源码之友】快速进阶

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 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.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 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

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、关键字配置

可以添加和删除相应的关键字，除此之外还可以设定关键字的有效性。

注：函数说明：回车－ <输入前缀 该功能启用后，在函数说明行，回车自动添加输入前缀< font>

信息。

1、关键字自动替换

对配置好的关键字，在输入关键字后（输入空格或回车后），系统自动替换为相对应的

关键字

输入的关键字 替换后的关键字

exf Exit Function

puf Public Function

... ...

2、关键字配置

可以添加和删除相应的关键字，同时可设置关键字的有效性。

注：空行：空格键-

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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%