精华内容
下载资源
问答
  • vb 透明窗口边框

    2013-06-01 15:06:31
    vb把窗体的边框透明,其中有皮肤文件.
  • vb提取查看thumbs.db文件中的图像内容,VB6.0编写开发的Windows XP缩略图缓存文件查看提取工具,把有图片的文件夹中的Thumbs.db拖到下面的列表中(在资源管理器的文件夹选项设置中要取消“隐藏受保护的系统文件...
  • 一个增强型VB文件浏览对话框窗口,增强对话框,支持左端自定义图片、支持自定义窗口顶端图片,支持声音预览、常规对话框(默认不使用回调),测试时,您可选择一个对话框样式,单击[打开]按钮。示例中还演示了调用打开...
  • VB GDI文字边框轮廓特效,RTF文件生成器,为文字增加边框效果,而且是透明状态,窗口还可任意拖动,无边框、无标题栏窗口,退出键已定义为按“ESC”。VB6.0用GDI 画漂亮的文字窗口,本程序不是一个完整的源代码例子...
  • VB6.0和VB.NET对比

    千次阅读 热门讨论 2018-09-23 09:41:25
    不能简单认为VB .net是VB的新版本。首先它们一个是完全面向对象的语言,而另一个不是完全面向对象的,其次VB .NET是构建于.Net framework之上的。当然,它们同属Basic系列语言,又同为微软所开发,语法上有一定的...

    引言

    不能简单认为VB .net是VB的新版本。首先VB .net是完全面向对象的语言,而另一个不是完全面向对象的,其次VB .NET是构建于.Net framework之上的。当然,它们同属Basic系列语言,又同为微软所开发,语法上有一定的相似或沿袭是很正常的,但不能因此认为VB .NET是VB的升级版。

    在这里插入图片描述


    对比学习


    【数据访问】

    • 不同点主要表现在:数据访问技术,数据访问具体实现方法和数据绑定

    • 在数据访问技术上,VB6.0是通过ADO(Active X Date Object,即Active X数据对象)来实现对数据库的访问,同时也为了保证对早期版本的兼容,也提供RDO(远程数据对象)和DAO(数据访问对象)二种数据访问技术。VB.net使用ADO.net访问数据库,ADO.NET是.NET框架的一部分。其中vb.net也可以使用ADO来访问数据库,但是ADO在vb.net中是以COM组件的形式出现的。通过添加引用才可以在VB.NET中使用,添加引用的过程,就是对COM组件互操作。

    • 在数据访问的具体方法上,VB6.0实现数据的访问主要是两种方法:第一是在程序设计阶段,可通过把数据源绑定到ADODC控件和使用数据环境,第二在运行时,可以通过编程方式创建记录集RecordSet对象与记录集对象数据。vb.net在实现数据访问的时候也有两种方法:第一,在程序设计阶段,通过创建、配置数据适配器DataAdater和生成数据集DataSet;第二,通过编程方式动态创建、配置适配器和创建、生成数据集。

    • 在数据绑定(Date Bind)上,vb6.0通过这些控件来实现数据绑定:DataChanged、DataField、DataFormat、DataMember和DataSource.通常把控件的显示属性绑定到数据源中的相应字段。而在VB.net中,数据绑定的应用范围比较广泛,在vb.net中,可以将任何控件的任何属性绑定到包含数据的任何结构中。


    【组件创建】

    • 在使用VB6.0和VB.NET编写应用程序的时候,虽然都可以从工具相中选择组件,通过拖入方式在应用程序中加入组件,但是二者在实现机理上却存在根本不同。

    • 在VB6。0中,应用程序中创建的组件全部是COM组件,即可在COM应用程序中使用ActiveX控件、ActiveX 类型的DLL 和 ActiveX类型的EXE。

    • 在VB.NET中,向窗体中拖入组件,都是基于继承,从,NET框架提供的SDK中相应的类继承,经过实例化后,通过添加功能才能把组件加入到设计窗体中。这些过程都可以在VB.NET的源代码中找到。VB.NET中使用的每一个组件都是从Component或Control基类派生出来的。


    以上是关于V6.0和VB.NET的部分比较,当然还有其他的细节性的不同


    • 面相对象

    vb.net 完全符合面向对象的编程语言抽象、封装、继承的四大特性,而vb不支持继承。

    • 错误处理

    vb中只是On Error…goto和On Errer Resume Next ,这些错误称为非结构化异常处理。而在vb.net中采用的结构化异常处理机制,try…catch…finally控制。

    • 操作上的不同

    VB.NET提供了灵活的读写文件功能,可以使用多种方法获得相同的结果。


    总结


    对于想从VB转到VB .NET的开发者来说,如果你只是喜欢Basic系列语言的代码风格,那么你的迁移会很顺利,如果你想沿袭之前VB的编程思想和习惯,你会很苦恼,原因之一就是VB .NET贯穿的是完全面向对象的思想,而VB不是。

    微软为使VB开发者更容易转到VB .NET,兼容一些VB6函数和库的用法,但是比不上.NET语言中自带的可替换的函数和库来得高效,所以我们应该尽量使用.NET下的新方法。微软还提供了VB到VB .NET的自动转换器,虽几经改进,但仍无法转换全部代码,几乎所有非小型程序都需要人工修改以完成编译。为了运行优化,大多程序需要大量工作去重构。

    展开全文
  • VB 提示MsgBox用法

    千次阅读 2019-09-03 15:05:58
    MsgBox是VB中的函数,可实现弹出窗口. 作用:在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 语法: MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 参数说明: ...

    MsgBox是VB中的函数,可实现弹出窗口.
    作用:在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
    语法:
    MsgBox(prompt[, buttons] [, title] [, helpfile, context])
    参数说明:
    MsgBox 函数的语法具有以下几个命名参数:
    Prompt-------必需的。字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。如果 prompt 的内容超过一行,则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。
    Buttons-------可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则 buttons 的缺省值为 0。
    Title-------可选的。在对话框标题栏中显示的字符串表达式。如果省略 title,则将应用程序名放在标题栏中。
    Helpfile--------可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile,则也必须提供 context。
    Context-------可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context,则也必须提供 helpfile。


    用于MsgBox函数中Button参数的常量
    常量                 值             说明
    vbOKOnly              0 只显示“确定”按钮
    VbOKCancel          1 显示“确定”和“取消”按钮
    VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮
    VbYesNoCancel       3 显示“是”、“否”和“取消”按钮
    VbYesNo             4 显示“是”和“否”按钮
    VbRetryCancel       5 显示“重试”和“取消”按钮
    VbCritical          16 显示“关键信息”图标
    VbQuestion          32 显示“警告询问”图标
    VbExclamation       48 显示“警告消息”图标
    VbInformation       64 显示“通知消息”图标
    vbDefaultButton1    0 第一个按钮是缺省值(缺省设置)
    vbDefaultButton2    256第二个按钮是缺省值
    vbDefaultButton3    512第三个按钮是缺省值
    vbDefaultButton4    768第四个按钮是缺省值
    vbApplicationModal    0应用程序强制返回;应用程序一直被挂起,直到用户对消息框
    作出响应才继续工作
    vbSystemModal       4096系统强制返回;全部应用程序都被挂起,直到用户对消息框作
    出响应才继续工作
    vbMsgBoxHelpButton     16384将Help按钮添加到消息框
    VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口
    vbMsgBoxRight       524288文本为右对齐
    vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
    说明:
    (1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目;第二组值(16,32,48,64)描述了图标的样式;第三组值(0,256,512,768)说明哪一个按钮是缺省值;而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候,只能由每组值取用一个数字。
    (2)这些常数都是 Visual Basic for Applications (VBA) 指定的。结果,可以在程序代码中到处使用这些常数名称,而不必使用实际数值。实际数值与常数名称是等价的。
    返回值
    用于MsgBox函数返回值的常量
    常数           值        说明
    vbOK           1       确定
    vbCancel    2       取消
    vbAbort        3       终止
    vbRetry        4       重试
    vbIgnore    5       忽略
    vbYes       6       是
    vbNo           7       否
    (1) 如果同时提供了Helpfile与Context参数,可以按F1键来查看与Context相应的帮助主题,Excel通常会在输入框中自动添加一个帮助(Help)按钮。
    (2)若在消息框中显示“取消”按钮,则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮,则提供相关的帮助信息。
    (3)如果要输入多个参数并省略中间的某些参数,则必须在相应位置加入逗号分界符。
    示例
    (1)(1)使用 MsgBox 函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox函数的返回值视用户按哪一个钮而定。并假设DEMO.HLP为一帮助文件,其中有一个帮助主题代码为1000。
    Dim Msg,Style,Title,Help,Ctxt,Response,MyString
    Msg="Do you want to continue ?"     ’定义消息文本
    Style = vbYesNo + vbCritical + vbDefaultButton2     ' 定义按钮
    Title = "MsgBox Demonstration"     ' 定义标题文本
    Help = "DEMO.HLP"     ' 定义帮助文件
    Ctxt = 1000     ' 定义帮助主题
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then     ' 用户按下“是”
        MyString = "Yes"     ' 完成某操作
    Else     ' 用户按下“否”
        MyString = "No"     ' 完成某操作
    End If
    (2)只显示某消息
    MsgBox “Hello!”
    (3)将消息框返回的结果赋值给变量
    Ans=MsgBox(“Continue?”,vbYesNo)
    If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub
    (4)使用常量的组合,赋值组Config变量,并设置第二个按钮为缺省按钮
    Config=vbYesNo+vbQuestion+vbDefaultButton2
    (5)若要在消息中强制换行,可在文本中使用vbCrLf(或vbNewLine)常量,用&加空格与字符隔开。如
    MsgBox “This is the first line.” & vbNewLine & “Second line.”
    (6)可以在消息框中使用vbTab常量插入一个制表符。下面的过程使用一个消息框来显示5×5单元格区域中的所有值,用vbTab常量分隔列并使用vbCrLf常量插入一个新行。注意在MsgBox函数最多只显示1024个字符,因此限制了可显示的单元格数。
    Option Explicit
    Sub ShowRangue()
    Dim Msg As String
    Dim r As Integer, c As Integer
    Msg = ""
    For r = 1 To 5
    For c = 1 To 5
        Msg = Msg & Cells(r, c) & vbTab
    Next c
    Msg = Msg & vbCrLf
    Next r
    MsgBox Msg
    End Sub
    (7)在消息框语句中运用工作表函数以及设置显示的数置格式,如下面语句所示:
    MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13)


    private sub form_load() '事件窗体加载

    msgbox("弹出窗口") '设定弹出窗口

    end sub '

    图片中的代码: MsgBox "警告内容!", 26, "警告!"
    VB中的函数,可实现弹出窗口.
    作用:在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
    语法:
    MsgBox(prompt[, buttons] [, title] [, helpfile, context])
    参数说明:
    MsgBox 函数的语法具有以下几个命名参数:
    Prompt-------必需的。字符串表达式,作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符,由所用字符的宽度决定。如果 prompt 的内容超过一行,则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。
    Buttons-------可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。如果省略,则 buttons 的缺省值为 0。
    Title-------可选的。在对话框标题栏中显示的字符串表达式。如果省略 title,则将应用程序名放在标题栏中。
    Helpfile--------可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile,则也必须提供 context。
    Context-------可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context,则也必须提供 helpfile。
    用于MsgBox函数中Button参数的常量
    常量                 值             说明
    vbOKOnly              0 只显示“确定”按钮
    VbOKCancel          1 显示“确定”和“取消”按钮
    VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮
    VbYesNoCancel       3 显示“是”、“否”和“取消”按钮
    VbYesNo             4 显示“是”和“否”按钮
    VbRetryCancel       5 显示“重试”和“取消”按钮
    VbCritical          16 显示“关键信息”图标
    VbQuestion          32 显示“警告询问”图标
    VbExclamation       48 显示“警告消息”图标
    VbInformation       64 显示“通知消息”图标
    vbDefaultButton1    0 第一个按钮是缺省值(缺省设置)
    vbDefaultButton2    256第二个按钮是缺省值
    vbDefaultButton3    512第三个按钮是缺省值
    vbDefaultButton4    768第四个按钮是缺省值
    vbApplicationModal    0应用程序强制返回;应用程序一直被挂起,直到用户对消息框
    作出响应才继续工作
    vbSystemModal       4096系统强制返回;全部应用程序都被挂起,直到用户对消息框作
    出响应才继续工作
    vbMsgBoxHelpButton     16384将Help按钮添加到消息框
    VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口
    vbMsgBoxRight       524288文本为右对齐
    vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
    说明:
    (1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目;第二组值(16,32,48,64)描述了图标的样式;第三组值(0,256,512,768)说明哪一个按钮是缺省值;而第四组值(0,4096)则决定消息框的强制返回性。将这些数字相加以生成Buttons参数值的时候,只能由每组值取用一个数字。
    (2)这些常数都是 Visual Basic for Applications (VBA) 指定的。结果,可以在程序代码中到处使用这些常数名称,而不必使用实际数值。实际数值与常数名称是等价的。
    返回值
    用于MsgBox函数返回值的常量
    常数           值        说明
    vbOK           1       确定
    vbCancel    2       取消
    vbAbort        3       终止
    vbRetry        4       重试
    vbIgnore    5       忽略
    vbYes       6       是
    vbNo           7       否
    (1) 如果同时提供了Helpfile与Context参数,可以按F1键来查看与Context相应的帮助主题,Excel通常会在输入框中自动添加一个帮助(Help)按钮。
    (2)若在消息框中显示“取消”按钮,则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮,则提供相关的帮助信息。
    (3)如果要输入多个参数并省略中间的某些参数,则必须在相应位置加入逗号分界符。
    示例
    (1)(1)使用 MsgBox 函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox函数的返回值视用户按哪一个钮而定。并假设DEMO.HLP为一帮助文件,其中有一个帮助主题代码为1000。
    Dim Msg,Style,Title,Help,Ctxt,Response,MyString
    Msg="Do you want to continue ?"     ’定义消息文本
    Style = vbYesNo + vbCritical + vbDefaultButton2     ' 定义按钮
    Title = "MsgBox Demonstration"     ' 定义标题文本
    Help = "DEMO.HLP"     ' 定义帮助文件
    Ctxt = 1000     ' 定义帮助主题
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then     ' 用户按下“是”
        MyString = "Yes"     ' 完成某操作
    Else     ' 用户按下“否”
        MyString = "No"     ' 完成某操作
    End If
    (2)只显示某消息
    MsgBox “Hello!”
    (3)将消息框返回的结果赋值给变量
    Ans=MsgBox(“Continue?”,vbYesNo)
    If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub
    (4)使用常量的组合,赋值组Config变量,并设置第二个按钮为缺省按钮
    Config=vbYesNo+vbQuestion+vbDefaultButton2
    (5)若要在消息中强制换行,可在文本中使用vbCrLf(或vbNewLine)常量,用&加空格与字符隔开。如
    MsgBox “This is the first line.” & vbNewLine & “Second line.”
    (6)可以在消息框中使用vbTab常量插入一个制表符。下面的过程使用一个消息框来显示5×5单元格区域中的所有值,用vbTab常量分隔列并使用vbCrLf常量插入一个新行。注意在MsgBox函数最多只显示1024个字符,因此限制了可显示的单元格数。
    Option Explicit
    Sub ShowRangue()
    Dim Msg As String
    Dim r As Integer, c As Integer
    Msg = ""
    For r = 1 To 5
    For c = 1 To 5
        Msg = Msg & Cells(r, c) & vbTab
    Next c
    Msg = Msg & vbCrLf
    Next r
    MsgBox Msg
    End Sub
    (7)在消息框语句中运用工作表函数以及设置显示的数置格式,如下面语句所示:
    MsgBox " selection has " & m & " cells ." & Chr(13) & " the sum is :" & Application.WorksheetFunction.Sum(Selection) & Chr(13) & "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count & sum & average" & Chr(13)


    private sub form_load() '事件窗体加载

    msgbox("弹出窗口") '设定弹出窗口

    end sub '

    图片中的代码: MsgBox "警告内容!", 26, "警告!"

    展开全文
  • 内容索引:VB源码,文件操作,文件 VB判断文件是否存在?在输入内输入一个不存在的文件名,以便更容易查看出程序是否可用,另外除了判断文件存在的功能外,它还可以不进和行错误处理、进行错误处理、集中化错误处理...
  • VB遍历文件(夹)

    2019-01-15 12:33:36
    遍历文件夹下所有文件、文件夹。输出到列表中。=.=!
  • vb6.0实现文件拖放功能,有详细说明API的用法,有例子。
  • vb6.0文件搜索查找程序实例,操作时选取文件夹所在的路径,选择文件所在范围,输入要查找的文件名进行搜索,调用SearchDirs函数查找文件,声明搜索文件要用到API函数和变量类型,递归调用Searchdirs自定义过程,实现...
  • VB 判断文件是否存在

    2010-04-26 12:33:59
    VB 判断文件是否存在 ...在输入内输入一个不存在的文件名,以便更容易查看出程序是否可用,另外除了判断文件存在的功能外,它还可以不进和行错误处理、进行错误处理、集中化错误处理以及模拟一个错误的功能。
  • 【PC】自制QQ机器人(python+VB6)

    千次阅读 多人点赞 2019-08-28 17:21:43
    目前网上的那些QQ机器人都需要下载什么...VB6:1.定时获取QQ消息,也就是对方说了什么。2.定时发送来自python处理好的回答(txt文件格式)。3.对获取的QQ消息分析,既不能是对方上次发的消息(已经处理完并发送)也...

    目前网上的那些QQ机器人都需要下载什么什么软件,我想自己弄个QQ机器人,所有有了想法就去实现。
    实现方法:

    首先要先说明一下:两种语言要怎么沟通呢?
    我一开始也寻思着,后来发现txt文档可以,不过比较慢。

    主要思路:
    VB6:1.定时获取QQ消息,也就是对方说了什么。2.定时发送来自python处理好的回答(txt文件格式)。3.对获取的QQ消息分析,既不能是对方上次发的消息(已经处理完并发送)也不能是自己发给对方的消息。分析完成后保存到一个txt文件夹,好传送到python中去。

    python:1.接受来自VB6处理好的消息并发送给机器人,让机器人回复消息并保存为txt文档以便 VB6发送


    由于VB6会一直循环检测来自QQ的消息,所以会有消息重复获取的情况
    因此需要判断获取的这个消息是否处理完毕。
    如果只有对方发送的消息:
    在这里插入图片描述
    就像这样,那么VB6就只会获取到“你好”,
    这个时候VB6就会判断这个消息是否和上一次消息一样,
    如果一样就不执行代码,(但在第一次获取这个消息的时候就会执行(因为第一次获取就是和第一次的上一次不一样))
    在这里插入图片描述
    这是执行了代码(也就是回复这条消息)

    之后就是是这样:
    在这里插入图片描述
    就机器人回复只有这个,但是对方不回复,很重要
    如果对方一直不回答,那么VB6是不是一直检测到的就是这句话“在的”
    这样的话程序就不会回复,要不然自己获取了之前发自己消息还以为这是对方发的消息然后就自己回复自己啦


    具体步骤
    第一步:用python确定发送给对方的内容。
    python人工智能我不会,所以只能找网上的图灵接口,还真有,直接用python爬取数据或者发送数据到几口就有返回值了,返回值就是你要回复的话。保存为txt文件(这里需要两个txt文件都储存着这个数据。为什么:VB6重要用掉其中一个,下面会说)

    ↓↓↓↓↓↓↓↓↓↓↓↓↓↓这是我找到的图灵机器人(如果你会人工智能的话就简单啦,直接python调用)
    机器人
    第二步:发送来自python机器人的消息

    先来分析一下PCQQ也就是这样了
    就是这个样子。然后我们看看有个输入框,其实发送消息就直接用VB6就行了

    AppActivate "对方或群聊QQ名字" 
    SendKeys Text1.Text
    SendKeys "%s"
    
    • 第一行代码就是选中窗体
    • 第二行输出语句,也就是打字到QQ消息框里,打字的内容可以更改
    • 第三行快捷键发送

    好了发送已经做好了,接下来我们要拦截 获取对方发送了什么消息

    首先先来看看QQ,一般可以解释聊天窗口有很多控件
    根据VB是不是可以按一下tab

    然后我们就试试在这里插入图片描述
    发现没有,有一条虚线在那里,然后我们发现就可以选择文字复制粘贴了

    我们直接用VB6把所有文字都复制下来,

    SendKeys "^c"
    

    也就是ctrl+c复制
    继续,用VB6获取剪辑版的文字

    dim a
    a = Clipboard.GetText
    

    Clipboard.GetText这个就是剪切板的内容啦
    然后再用VB6处理这些文字,就只用获取最后一行

    Dim A As String
    Dim FSO As Object
    Dim FSO_File As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FSO_File = FSO.OpenTextFile(App.path & "/1.txt", 1, False) '读取文件而不创建
    Do While Not FSO_File.AtEndOfStream
    A = FSO_File.ReadLine '获取最后一行
    Loop
    FSO_File.Close
    

    就如你所见,我是先弄到txt文档在读取最后一行。
    这里的A就是QQ最后接受的消息啦,
    不过不要忘记,这也可能是你发送的消息
    所以我们接下来还要进行一波判定
    判定这个A消息是否和之前处理过的消息以及你发的消息一样
    如果不一样的话就可以输出到python
    然后有新回复VB6又会检测到,发送。
    就这样一个循环过程。

    展开全文
  • Java zip压缩包查看程序源码 1个目标文件 摘要:Java源码,文件操作,压缩包查看 Java zip压缩包查看程序,应用弹出文件选择,选择ZIP格式的压缩文件,可以像Winrar软件一样查看压缩文件内部的文件及文件夹,源码...
  • 媒体文件浏览器,基于VB源码所写,或许太过简单,只是练习一下WindowsMediaPlayer组件和DriveListBox如何使用,可以浏览*.AVI;*.MOV;*.DAT;*.MPG;*.WAV,*.MID;*.QT;*.MPEG格式的文件,部分编写注释:指定File1中显示...
  • 一般系统都没有RICHTX32.OCX这个文件的,安装了vb6精简版后也没有,而这个控件我们经常使用的,功能比vb标准的文本框控件强大多了。 使用方法: 1.下载下来解压 2.复制到系统目录,一般为c:\windows\system32 3.在...
  • VC6.0要实现在对话框拖动不是很方便,先参考网络资料,实现文件拖动示例。 实现步骤详见压缩包中文档。附赠有相关代码制作的的文本文件分割合并工具。
  • Sub 查询_用列表列举目录下的文件及子目录()  Dim path As String = Form账务统计_对公采购存档_编辑.LinkLabel1.Text  If Directory.Exists(path) Then  Dim Files() As String = Directory.GetFiles(path)  ...

        Sub 查询_用列表框列举目录下的文件及子目录()
            Dim path As String = Form账务统计_对公采购存档_编辑.LinkLabel1.Text
            If Directory.Exists(path) Then
                Dim Files() As String = Directory.GetFiles(path)
                Dim Folders() As String = Directory.GetDirectories(path)
                '获取path下文件数量
                Dim FilesList() As String = System.IO.Directory.GetFiles(path, "*.*")
                Dim iFiles As Integer = FilesList.Length
                '获取path下目录数量
                Dim FoldersList() As String = System.IO.Directory.GetDirectories(path)
                Dim iFolders As Integer = FoldersList.Length

                '列举path下的文件名
                If iFiles > 0 Then
                    For i As Integer = 0 To Files.Length - 1
                        Form账务统计_对公采购存档_编辑.ListBox1.Items.Add((Files(i)))
                    Next
                Else
                    Exit Sub
                End If
                '列举path下的目录名
                If iFolders > 0 Then
                    For i As Integer = 0 To Files.Length - 1
                        Form账务统计_对公采购存档_编辑.ListBox1.Items.Add(Folders(i))
                    Next
                Else
                    Exit Sub
                End If
            End If
        End Sub

    展开全文
  • tao vb2005.net导入3ds文件
  • 很漂亮的VB浏览文件对话框编程实例源码,用上这个,会使你的程序更美观,也更省事了。
  • VB从ComboBox列表中选择鼠标样式,可以改变鼠标的样式,把那些cur鼠标指针样式文件显示在ComboBox列表中,选择对应的cur文件,即可改变鼠标指针的样式,觉得有需要的可下载源代码仔细参阅。 运行环境:Windows/VB6
  • 判别并可以删除指定目录中格式为 “(单位数字)” 格式的重名文件,如D:\test.txt和D:\test(1).txt,注意,该工具需要安装.net框架4.0或以上
  • 一个不错的VB ComboBox列表实例 你所看到的文件来自:E动天下—VB专业源码网 www.2e3.org
  • VB6.0图片浏览器.rar

    2019-07-10 11:50:52
    VB图片浏览器(练习FileListbox、Image控件的使用),可打开文件列表中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件,不但能浏览你电脑上的图片,也能帮助初学者了解DriveListbox,DirListbox,FileListbox,Image等...
  • VB 文件管理工具箱

    2008-02-07 20:46:45
    在分类上点击鼠标右建可对分类进行更改和添加; 在蓝色图标上点击鼠标鼠标右建可对文件等进行添加,删除和更改; 支持拖放操作,也可以拖放文件夹,可以添加网址等。
  • 使用vb程序编写的自动注册dll文件,代码自动生成需要注册dll部件的bat批处理文件,然后自动运行,注册dll部件,同时后台影藏注册,不会弹出Regsvr32成功提示,有效的解决win10不能注册dll问题。核心代码可直接应用...
  • vb中5种打开文件夹浏览的方法总结 文章录入浣花溪 责任编辑snow 1038 字体小 大 by daokers 众所周知在vb中如果是打开某一个文件的话非常简单使用CommonDialog组件即可轻松完成但是他只能选择文件之后或许选取的...
  • 摘要:VB源码,文件操作,文件夹监控 VB监控指定文件夹里的文件操作,比如新建、删除、重命名等。当程序发现文件夹内的内容改变时候会弹出提示,对大家编写文件夹加密、文件夹监控软件应该有点帮助吧。很早前从网上...
  • VB建立文件关联与命令行运行示例,关联和打开任何自定义文件类型,并将打开的文件路径显示在列表中。获取了文件的路径,想干嘛都行。原创代码
  • 两个VB点对点发送文件例子,原理基于TCP/IP协议,两个例子分别都包括了客户端和服务端程序,通过这两个小程序你可熟悉下VB中的点对点文件传输原理,TCP、IP协议的框架应用,还有数据缓冲区,文件包数,已传输数据的...
  • VB磁盘碎片整理-分类整理磁盘文件,这个源码中有很多FSO技巧,比如创建ManageFile文件夹、创建FSO对象,使用FSO对象的CreateFolder方法创建文件夹,创建ManageFile文件夹,根据系统的当前日期创建文件夹,创建当前...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 38,736
精华内容 15,494
关键字:

vb文件框