精华内容
下载资源
问答
  • 基于数据库的VB文章资料收集程序,可用来收集网上的精彩文章、收集文本格式的资料,比如源代码等,序基于Access数据库,可看作是一个简单的数据库程序,可作为VB学习者的数据库编程示例。本程序可自定义文章分类、...
  • Visual Basic 编程资源大全(VB代码编写)HTM格式教程,非常详细
  • VB6.0格式代码.

    2019-05-10 09:46:40
    smidt.exe用于使VB6编程环境支持代码格式化。安装后在VB环境中点击右键将出现“Smart Indent”项,它可使代码自动缩进。常用其中“Indent Module”等项。速度快,功能强。 注:本人亲测可用!!!!(支持Win10)
  • VB 编程辅助插件.rar

    2019-06-14 10:15:06
    VB6.0开发代码助手,可以非常方便的对源代码进行格式化,加入调试代码,发现其中错误,VB6.0编程好助手
  • 近期收集的一些用VB进行病毒编写的源代码资料,涉及的内容可以看codeFans.net如上截图。压缩包中还附有一个CHM格式的教程,教程与资料不是配套的,只是讲述相关的知识。  源码爱好者注:发布病毒编程资料的目的是...
  • VB6鼠标滚轮支持和代码格式化工具

    热门讨论 2010-04-11 22:53:53
    mwfix.exe用于使VB6编程环境支持鼠标滚轮,...smidt.exe用于使VB6编程环境支持代码格式化。安装后在VB环境中点击右键将出现“Smart Indent”项,它可使代码自动缩进。常用其中“Indent Module”等项。速度快,功能强。
  • oracle 9i中文版基础培训教程:PDF格式+VB例程代码 本书是一本专门针对Oracle 9i数据库技术的基础培训教程。全书精心组织Oracle 9i数据库初学者需要掌握的知识,循序渐进地介绍Oracle 9i数据库管理和应用系统开发的...
  • VB编程技巧280例(PDF格式) 本书是学习VB编程的一本很好的教材,它侧重于用实例讲解如何编写一些高级的VB程序,如“用VB6.0实现动态增减控件”、“用VB制作即时动态按钮” 等,特别对高级编程人员进一步提高自己的...
  • VB.Net-C#代码集合-Word格式有图片,有的讲的不错,学习知识点。包括下面的文章: NET环境下水晶报表使用总结 NET中各种数据库连接大全 Visual C#的Excel编程 Visual C#中的数据绑定 把.NET程序部署到没有安装.NET...
  • VB源码之友是VB软件开发的好助手,它即能规范源码开发的格式,又能提高编程的速度,是一款不可多得的好工具。 它是是继API浏览器之后,叶帆软件系列家族中又一款重量级VB程序开发辅助软件... 4、代码格式自动整理; 

      

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

    今天学习了刘金玉老师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

    今天这期内容与我们平时工作学习比较紧密相关,可以用来管理我们的文本资料。马上中秋、国庆节就要到了,打算在川内走走,期间可能会断更。提前祝大家节日快乐。

    dc716ceb2f97be43f7587e0773c23696.png
    af27aec06f871db0885712e51a0cf178.png
    展开全文
  • VB网络编程实例

    千次下载 热门讨论 2007-05-29 15:46:04
    ◆ 88.htm 用VB创建自己的通信程序 ◆ 89.htm 用VB构建Internet的应用[微软提供] ◆ 90.htm 用VB开发标准CGI程序 ◆ 91.htm 用VB实现客户——服务器(TCP IP)编程实例 ◆ 92.htm 用VB实现...
  • 通过Visual Basic6.0编程,实现从文本格式的地面气象月报数据A文件中提取所需要素,进行统计计算,以...讲述了如何利用VB制作Excel格式的气象服务简表,重点说明了思路方法和步骤及需要注意的问题,并给出部分源程序代码
  • VB编程者不可错过!英文 htm格式(99.4.3日版)(289KB) 37,api011.zip htm格式 中文(1019KB) 38,api012.zip VB的API说明下载包 (htm格式,中英文)(50KB) 39,34.zip 用API函数对注册表进行操作(8KB) 40,fileprops.zip ...
  • 创建无关硬件的555或565格式的16bit的surface,请看以下代码 Public Sub InitDX(ByVal hWndMain As Long) Initialization procedure Set objDD = objDX7.DirectDrawCreate("") With objDD .SetCooperativeLevel...

    创建无关硬件的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
     

    展开全文
  • filemanager.zip 文件管理器(8KB) 52,mousedemo.zip 一些鼠标例子演示(3KB) 53,calendar.zip 一个小小的日历程序(4KB) 54,hotkey.zip VB编程中热键应用一例(3KB) 55,noalt+f4.zip ...
  • 今天学习了刘金玉老师VB编程教程的第20期,学习的主要内容是for循环的经典运用。1.语法格式:For 初始化变量=变量的初值 to 变量的终值[step 1]循环条件需要运行的代码Next 变量2.案例分析实例1:语法解释Dim X as ...

    今天学习了刘金玉老师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

    26050da71ad1a7a85d4303c66e689e84.png

    今天学的内容稍微有点烧脑,都是些抽象的东西,平时不喜欢数学或者逻辑差点(我就是这种)的学起来就需要时间慢慢领悟,所以今天学的内容有点少。

    昨天写了一个模拟大乐透抽奖的程序,对我这个头条新手来说算是爆量了,头条的文章阅读量一下就上去了,不少感兴趣的朋友也关注了头条号,看来大家都喜欢把学了的东西运用到实际中,后面我会尽量每学一期内容就找一些贴近日常使用的案例来分享,不辜负大家的期望。

    8b68a79dd2c988082dc2f269451fce68.png
    展开全文
  • *.pgx中的图片(13KB) 28,f029.ZIP VB编程中突破64K的文本显示限制(3KB) 29,f028.ZIP 文件的拖拉操作(5KB) 30,f027.ZIP 实现多文档界面的记事本, 需要active threed control(29KB) 31,f026....
  • 今天学习了刘金玉老师VB编程教程的第28期,学习的主要内容是文件读取写入。1.do until......loop循环语句①语法结构do until条件表达式的值类型符合条件的要执行的代码......loop②代码解释:Do开始做事情until直到...
  • dssk170d.EXE 由Dolphin System公司出品的用于互联网编程的控件(317KB) 6,f001.ZIP 可以将BIG5码转换成GB码的控件(42KB) 7,ccrpfd.ZIP VB6的公用对话框打开多个文件,取得文件名时是不是很麻烦, 试...
  • VB居然可以开发这么多实用程序软件●VB编程各文件格式大全,你值得一看!●VB知识之常量与变量的命名规则与使用注意Visual Basic文件操作方法知识要点一、顺序文件访问模式1.打开文件2.读/写文件3.关闭文件二、随机...
  • VB编程资源大全(源码 网络)

    热门讨论 2007-10-17 22:54:27
    src2html.ZIP <br>将VB源程序转换成HTML格式(4KB) 16,netdde.ZIP 演示怎样与Netscape Navigator进行DDE通行(2KB) 17,vbftp.ZIP 一个利用VB编写的FTP客户端程序(8KB) 18,hostname.ZIP 一个...
  • VB编程资源大全(源码 多媒体)

    热门讨论 2007-10-18 15:20:26
    (4KB) 85,mp3play.ZIP mp3播放器VB代码,含MP3控件(174KB) 86,textefx.ZIP 用VB实现字体特效动画 VB源码(9KB) 87,screensaverx.zip 屏幕保护源代码(47KB) 88,mario.zip 超级玛丽游戏...
  • 免去了大量的编程代码 (37KB) 82,gvocx.zip 一个能看多种图形格式的控件(267KB) 83,flatbtn.zip 能创建类似IE风格的按钮(88KB) 84,spliter.zip Spliter.ocx控件主要是用来在程序中切分窗口,...
  • 免去了大量的编程代码 (37KB) 82,gvocx.zip 一个能看多种图形格式的控件(267KB) 83,flatbtn.zip 能创建类似IE风格的按钮(88KB) 84,spliter.zip Spliter.ocx控件主要是用来在程序中切分窗口,...
  • (12KB) 61,mtw.zip 如何把MP3转换为WAV文件格式?(11KB) 62,httpexp.zip 如何编写自己的浏览器?(18KB) 63,callconnect.zip 如何启动默认的拨号连接?(2KB) 64,rottext.zip 如何输出...
  • datediff.zip 创建和修改自定义的数据库(2KB) 46,d011_databasesearch.zip 数据库查询示例程序(3KB) 47,d010_vbcodelib.zip 一个管理VB源码的数据库例子(101KB) 48,d009_creatmdb.zip 用代码在...

空空如也

空空如也

1 2 3 4 5 ... 15
收藏数 290
精华内容 116
关键字:

vb编程代码格式