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

 

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

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

信息。


 

八、关键字自动替换



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、可以任意设定软件开发者

定制版：

根据需要定制。


 

 

 
 

今天学习了刘金玉老师VB编程教程的第28期，学习的主要内容是文件读取写入。
1.do until......loop循环语句
①语法结构do until条件表达式的值类型
符合条件的要执行的代码
......loop
②代码解释：Do开始做事情until直到什么条件下就不再执行代码了，loop一次循环结束。
③Until的意思是直到什么跳出循环
2.文件读写语法格式
①打开关闭文件：
open文件路径for打开方式 as #文件号 
打开方式：
(Append追加写入，在原来的基础上在文件最后的位置追加新的内容，
Input读取，
Output写入，覆盖性写入。)
Close#文件名
②补充知识：eof函数，end of file文件的末尾，参数就是写文件号
③补充知识：文件的绝对路径和相对路径
实例：
绝对路径：C:VB学习编程第20天.txt。一般用app.path表示工程文件所在的文件夹。
相对路径：假设文件1路径：C:VB学习编程第20天.txt
假设文件2路径：C:VB学习编程第21天.txt
那么文件1相对于文件2的相对路径就是.../学习编程第21天.txt
④listbox清空方法，用来List1.clear函数清空
3代码分享：
①从i=1开始输出，直到i=10
Private Sub Command1_Click()
Dim i%
i = 1
Do Until i = 11
Print i
i = i + 1
Loop
End Sub
②输出工程的路径
Private Sub Command2_Click()
Print App.Path
End Sub
③追加写入，如果没有文件，那么将自动生成文件
Private Sub Command3_Click()
Open App.Path & "/t.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub
④覆盖写入，写入的内容将原有的内容覆盖
Private Sub Command4_Click()
Open App.Path & "/t.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
⑤读取文件内容，逐行读取文件内容，直到最后一行
Private Sub Command5_Click()
List1.Clear
Open App.Path & "/t.txt" For Input As #1
Do Until EOF(1)
Dim t$
Line Input #1, t
List1.AddItem t
Loop
End Sub
今天这期内容与我们平时工作学习比较紧密相关，可以用来管理我们的文本资料。马上中秋、国庆节就要到了，打算在川内走走，期间可能会断更。提前祝大家节日快乐。

创建无关硬件的555或565格式的16bit的surface，请看以下代码
 
Public Sub InitDX(ByVal hWndMain As Long)
    'Initialization procedure
    Set objDD = objDX7.DirectDrawCreate("")
    With objDD
        .SetCooperativeLevel hWndMain, DDSCL_NORMAL
        ddsd1.lFlags = DDSD_CAPS
        ddsd1.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
        Set objDDPrimSurf = .CreateSurface(ddsd1)
        
        ddsd2.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT Or DDSD_PIXELFORMAT Or DDSD_PITCH
        ddsd2.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
        ddsd2.lWidth = 256
        ddsd2.lHeight = 240
        ddsd2.lPitch = 2 * 256
        ddsd2.ddpfPixelFormat.lFlags = DDPF_RGB
        ddsd2.ddpfPixelFormat.lRGBBitCount = 8 * 2
        ddsd2.ddpfPixelFormat.lRBitMask = 31744
        ddsd2.ddpfPixelFormat.lGBitMask = 992
        ddsd2.ddpfPixelFormat.lBBitMask = 31
        Set objDDSurf = .CreateSurface(ddsd2)
        
        Set ddClipper = .CreateClipper(0)
        ddClipper.SetHWnd hWndMain
        objDDPrimSurf.SetClipper ddClipper
    End With
End Sub
 

今天学习了刘金玉老师VB编程教程的第20期，学习的主要内容是for循环的经典运用。
1.语法格式：
For 初始化变量=变量的初值 to 变量的终值[step 1]
循环条件需要运行的代码
Next 变量
2.案例分析
实例1：语法解释
Dim X as integer ‘申明变量X为整型
For X=0 to 10 step 1 ‘step含义为步长’经过依次循环后使得初始变量增加一个相应的值。这个循环过程包含了一个内部逻辑代码条件，就是从第一次赋值开始，赋值结果+步长<=变量的终值则继续执行代码，直到赋值结果+步长>变量的终值，执行Next X之后的代码。
需要执行的代码
Next X
实例2：运用FOR函数解决高中数学中常见的求和问题(求1+2+3+4+......+99的和/平均数)
输入代码：
Private Sub Form_Load()
Show 
Dim S As Integer ‘定义S为整型数据，S默认值为0
Dim C As Integer ‘定义C为整型数据，C默认值为0
Dim A As Integer ‘定义A为整型数据，A默认值为0
For S = 1 To 99 Step 1 ‘相当于赋予S的值为1-99
C = C + S ‘这个公式的作用在于赋值为0的C依次与赋值为1-99的S循环相加，因为C没有赋值，默认值为0，这就达到了求1-99这组数据之和的目的。
A = A + 1 '这个公式的作用在于统计经过了多少次循环，也就是有多少个数相加
Next S
Print "1+2+3+......+99的和为" & C
Print "1加到99共有" & A
Print "1加到99的平均数为" & C / A
今天学的内容稍微有点烧脑，都是些抽象的东西，平时不喜欢数学或者逻辑差点(我就是这种)的学起来就需要时间慢慢领悟，所以今天学的内容有点少。
昨天写了一个模拟大乐透抽奖的程序，对我这个头条新手来说算是爆量了，头条的文章阅读量一下就上去了，不少感兴趣的朋友也关注了头条号，看来大家都喜欢把学了的东西运用到实际中，后面我会尽量每学一期内容就找一些贴近日常使用的案例来分享，不辜负大家的期望。