精华内容
下载资源
问答
  • VB如何生成EXE文件

    万次阅读 2008-06-11 11:05:00
    今天在修改VB 6.0程序的时候(都没有写过VB 6.0)怎么调试都没有办法将原来的.exe文件更新了,后来在菜单上找了好久终于看到了在File菜单栏下面有一个Make xxx.exe 的项,,抱着试试看的态度点了一下,,哇,,成功了...

    今天在修改VB 6.0程序的时候(都没有写过VB 6.0)怎么调试都没有办法将原来的.exe文件更新了,后来在菜单上找了好久终于看到了在File菜单栏下面有一个Make xxx.exe 的项,,抱着试试看的态度点了一下,,哇,,成功了。。高兴呀,,哎,后悔英语没有学好的!后来在网络上找到了一个人写的,呵,有打包的方法,,特此一起收取:

    1、简单的程序,就只要在"File(文件)"菜单下的"Make xxx.exe(生成)",生成的EXE文件和你要用的数据库和其他外部文件一起移植到其他电脑上,就可以了。

    2、复杂的程序,建议用"打包",打包完以后,在其他电脑上安装以后再用.打包方法--------打开菜单栏“外接程序”——“外接程序管理器”,选择“打包和展开向导”,选择“加载/卸载”,确定。在“外接程序管理器”里找到“打包和展开向导”,打开“打包和展开向导”,再一步步进行打包就可以生成一个安装程序。

    展开全文
  • 用了一下vb6,发现无论我从菜单Run->start还是start with full ...我不得不用“vb如何生成exe文件”作关键字搜索,找到了答案,原来在菜单file->make **.exe,不是微软的风格啊,也不是一般IDE的风格啊,vb6真bt。 

    用了一下vb6,发现无论我从菜单Run->start还是start with full compile,都不能从工程所在文件夹上找到.exe文件,尽管程序已经运行起来了。我不得不用“vb如何生成exe文件”作关键字搜索,找到了答案,原来在菜单file->make **.exe,不是微软的风格啊,也不是一般IDE的风格啊,vb6真bt。 
    展开全文
  • 现在要用vb编写一个界面,用户输入型号等 vb就会在excel中寻找对应的长度等等,在通过其他sheet里面的公式算出消耗等等,如何将excel融入到VB中,可以生成exe文件,让用户看不到excel里面的内容 这是关键。...
  • 从程序中生成Exe文件 这篇文章要讨论的是在一个VB程序中如何产生出另一个Exe文件。 要实现这个目的,必须符合以下几个条件: 第一、编写这样的程序时,具备欲生成的Exe文件 第二、事先知道欲生成的Exe文件大小 ...
    从程序中生成Exe文件
      这篇文章要讨论的是在一个VB程序中如何产生出另一个Exe文件。
      要实现这个目的,必须符合以下几个条件:
        第一、编写这样的程序时,具备欲生成的Exe文件
        第二、事先知道欲生成的Exe文件大小
      其实这两个条件可以说不是条件,但确实很重要。
      为了叙说方便,将发行的程序称作APP-1.Exe,要生成的文件叫APP-2.Exe,以下是具体步骤:

        第一步,准备好APP-2.Exe,这里我使用VB写了一个什么都不做程序,编译成APP-2.Exe。
        第二步,右键单击单击APP-2.Exe,选择属性,记下文件大小。注意,应记下以字节为单位的具体数字,而不是多少k。
        这样就具备了前边说的两个条件。
        第三步,新建工程APP1,新建资源文件加入工程,在资源文件编辑器中添加自定义资源(CUSTOM),资源号使用默认的101。值得注意的是,每个资源号对应的资源项对资源大小的要求是有限制的,我记得时64K,因此如果APP-2.Exe的大小如果大于这个数的话,就要麻烦一些。如果是这样,我们的写另一个程序,把APP-2.Exe一个字节一个字节的读出来,每64K生成一个文件,然后再把这些文件分别写道资源文件的101、102......资源项中,代码也要作相应的修改。

        第四步,为APP-1.Exe编写代码,使其读取资源文件的数据,生成APP-1.Exe。

    程序代码:  
    Private Const FILESIZEOFAPP2 = 20480 '我生成的APP-2.Exe大小是20480Byte
      Private Sub cmdOK_Click() '单击按钮cmdOK运行代码
        Dim APP2() As Byte 'APP2是个Btye类型和数组
        Dim Counter As Long
        APP2 = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组
        '注意,微软的帮助中对加载定义资源的说明有误,硬是资源标识为"CUSTOM"而非数字
        If Dir(App.Path & "\APP-2.Exe") <> "" Then '第一次按cmdOK有效
          MsgBox App.Path & "\APP-2.Exe 已经存在!" 
          Exit Sub 
        End If
        Open App.Path & "\APP-2.exe" For Binary As #1 '以二进制方式写(生成)APP-2.Exe到APP-1.Exe所在的目录
          For Counter = 0 To FILESIZEOFAPP2 - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终 
            Put #1, , APP2(Counter)
          Next Counter 
        Close #1
        Shell App.Path & "\APP-2.Exe", vbNormalFocus '运行刚生成的APP-2.Exe
        Unload Me
      End Sub


    VB部分相关推荐

    VB快速读取 TextBox N 行的资料

    VB禁止使用 Alt-Tab Ctrl-Alt-Del

    生成迷宫的程序

    另一方法转换大小写

    VB控件注册 - 利用资源文件将dllocx打包进exe文件

    VB利用资源文件进行工作

    []vb高效编程(优化)

    VB阳历转阴历

    VB代码取得硬盘的物理序列号

    VB获得磁盘的文件系统

    VB的,经常注册和反注册OCX控件和DLL

    VB从程序中生成Exe文件

    VB6监视/操作剪贴板示例(VB6.0代码)

    VB6里自动提交/自动填表的一种相对通用的方案

    VB移动没有标题的窗体

    VB随机字母的函数

    VB删除带子文件夹和文件的文件夹

    VB怎样屏蔽 Alt+F4

    VB 隐藏进程

    vb屏蔽文本框点右键时的弹出菜单

    VB手控Combobox的打开或收起

    VBINI文件的读写、删除(对中文支持很好)

    vb全局热键的写法(占很少的资源)

    vb取消文本框的粘贴功能

    VB常用文件操作类

    VB获取特殊文件夹

    VB获取windows各常用目录的函数(模块)

    VB生成太极图

    VB:常用内部函数大全,你会了几个呢?

    vbSendMessage函数

    精简VB程序的代码

    VB:将数字转换为大写中文

    VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

    VB:读取及设定NumLock/CapsLock/ScrollLock的值

    VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

    VB后台获得按键,并执行自己的函数(非钩子及热键)

    VB:将短文件名格式转成长文件名

    vb中使用Iphlpapi.dll获取网络信息(上)

    vb中使用Iphlpapi.dll获取网络信息(下)

    更多精彩>>>
    展开全文
  • VB生成EXE文件后,如何在后面加上参数?这个参数怎样传给VB
  • 如何将 exe程序和vb编译的exe文件 封装为一个exe文件把它当成资源文件,包到主程序里以下代码是我封装控件和数据库的代码,你看看数据库是怎样封的,没时间简化 Option Explicit Sub Main() Const DBSIZE = ...

    ''如何将 exe程序和vb编译的exe文件    封装为一个exe文件
    ''把它当成资源文件,包到主程序里
    ''以下代码是我封装控件和数据库的代码,你看看数据库是怎样封的,没时间简化   
       Option    Explicit   
        
       Sub    Main()   
               Const    DBSIZE    =    479232    '欲生成的数据库大小是479232Byte,名字为Provider.mdb   
               Const    Comcat    =    3856    '欲生成的控件大小是3856Byte,Comcat.dll   
                
               Const    Msado15    =    491792    '欲生成的控件大小是3856Byte,msado15.dll   
                
               Const    MSCOMCT2    =    662288    '欲生成的控件大小是662,288Byte,MSCOMCT2.OCX   
                
               Const    mscomctl    =    1081616    '欲生成的控件大小是3856Byte,mscomctl.ocx   
                
               Const    stdole2    =    16896    '欲生成的控件大小是16,896Byte,stdole2.tlb   
                        
                
               ''**   
                
           Dim    Ocx()    As    Byte    'OCX是个Btye类型的数组   
           Dim    Counter    As    Long   
        
           Ocx    =    LoadResData(107,    "CUSTOM")      '将自定义资源中101号资源读入数组OCX   
           '注意,微软的帮助中对加载自定义资源的说明有错误,自定义资源标识为"CUSTOM"而不是帮助所说

    的数字10   
          
               '程序不在根目录下一一一一一一一一一一一   
               If    Dir(App.Path    &    "/Provider.mdb")    =    ""    Then    '程序路径下有无控件,无则

    生成控件   
                   '以二进制方式写(生成)控件(agtintl.dll)到主程序所在的目录   
                   Open    App.Path    &    "/Provider.mdb"    For    Binary    As    #1   
                   For    Counter    =    0    To    DBSIZE    -    1    '注意因为从0    Byte开始因此以文件

    大小    -    1Byte    为终值   
                       Put    #1,    ,    Ocx(Counter)   
                   Next    Counter   
                   Close    #1   
               End    If   
               ''二二二二二二二二二二二二二二二二二二二二二二   
               Erase    Ocx   
                 Ocx    =    LoadResData(102,    "CUSTOM")   
                  
               If    Dir(App.Path    &    "/comcat.dll")    =    ""    Then   
                       Open    App.Path    &    "/comcat.dll"    For    Binary    As    #1   
                       For    Counter    =    0    To    Comcat    -    1    '注意因为从0    Byte开始因此以

    文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
               End    If   
                
               Shell    "Regsvr32    /s"    &    App.Path    &    "/comcat.dll"   
               '三三三三三三三三三三三三三三三三三三三三三三三三三   
               Erase    Ocx   
                 Ocx    =    LoadResData(103,    "CUSTOM")   
               If    Dir(App.Path    &    "/msado15.dll")    =    ""    Then   
                       Open    App.Path    &    "/msado15.dll"    For    Binary    As    #1   
                       For    Counter    =    0    To    Msado15    -    1    '注意因为从0    Byte开始因此以

    文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
               End    If   
               Shell    "Regsvr32    /s"    &    App.Path    &    "/msado15.dll"   
               '四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四四   
               Erase    Ocx   
                 Ocx    =    LoadResData(104,    "CUSTOM")   
               If    Dir(App.Path    &    "/MSCOMCT2.OCX")    =    ""    Then   
                       Open    App.Path    &    "/MSCOMCT2.OCX"    For    Binary    As    #1   
                       For    Counter    =    0    To    MSCOMCT2    -    1    '注意因为从0    Byte开始因此

    以文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
               End    If   
               Shell    "Regsvr32    /s"    &    App.Path    &    "/MSCOMCT2.OCX"   
               '五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五五   
               Erase    Ocx   
                 Ocx    =    LoadResData(105,    "CUSTOM")   
               If    Dir(App.Path    &    "/mscomctl.ocx")    =    ""    Then   
                       Open    App.Path    &    "/mscomctl.ocx"    For    Binary    As    #1   
                       For    Counter    =    0    To    mscomctl    -    1    '注意因为从0    Byte开始因此

    以文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
                       End    If   
               Shell    "Regsvr32    /s"    &    App.Path    &    "/mscomctl.ocx"   
               '六六六六六六六六六六六六六六六六六六六六六六六六六   
               Erase    Ocx   
                 Ocx    =    LoadResData(106,    "CUSTOM")   
               If    Dir(App.Path    &    "/stdole2.tlb")    =    ""    Then   
                       Open    App.Path    &    "/stdole2.tlb"    For    Binary    As    #1   
                       For    Counter    =    0    To    stdole2    -    1    '注意因为从0    Byte开始因此以

    文件大小    -    1Byte    为终值   
                           Put    #1,    ,    Ocx(Counter)   
                       Next    Counter   
                       Close    #1   
                       End    If   
               Shell    "Regsvr32    /s"    &    App.Path    &    "/stdole2.tlb"   
                
               FrmMain.Show   
       End    Sub   
       '注册控件   
       'Private    Declare    Function    RegOcx    Lib    "A.OCX"    Alias    "DllRegisterServer"    ()   

    As    Long   
       '   
       'Private    Sub    Form_Load()   
       '          Call    RegOcx   
       'End    Sub   
       '   
       'OCX文件中都有一个接口DllRegisterServer,这个接口就是用来注册自身的,同样,也可以

    用"UnDllregisterServer"在代碼中來取消注冊控件自身   
       '如果是注册其它路径的文件    ,    要在声明时写完整路径,    如   
       'Private    Declare    Function    RegOcx    Lib    "C:/Test/A.OCX"    Alias    "DllRegisterServer"

       ()    As    Long   
       '   
       'Private    Sub    Form_Load()   
       '          Call    RegOcx   
       'End    Sub   
       '还有一种   
       'Private    Sub    Form_Load()   
       '          Me.Visible    =    False   
       '          Shell    "regsvr32    /s    "    &    App.Path    &    "/DtRead.ocx"    '用参数/s,不提示

    注册成功信息   
       '          Shell    "regsvr32    /s    "    &    App.Path    &    "/ConnStr.dll"   
       '          Shell    "regsvr32    /s    "    &    App.Path    &    "/HisCurve.ocx"   
       '          Shell    "regsvr32    /s    "    &    App.Path    &    "/Rep.dll"   
       '          MsgBox    "注册成功!"   
       '          Unload    Me   
       'End    Sub  

    展开全文
  • vb生成文件

    2014-09-27 15:00:49
    这篇文章要讨论的是在一个VB程序中如何产生出另一个Exe文件。要实现这个目的,必须符合以下几个条件: 第一、编写这样的程序时,具备欲生成Exe文件 第二、事先知道欲生成Exe文件大小  其实这两个条件可以...
  • 如何使用RC.exe生成VB中的RES文件

    千次阅读 2006-04-20 15:23:00
    This article provides a short look at how to use the Resource Compiler (RC.EXE) to create resource files (.RES) for Visual Basic applications. Using RC.EXE directly is often better than using the wiza
  • 从程序中生成Exe文件

    千次阅读 2007-02-07 16:11:00
    从程序中生成Exe文件 这篇文章要讨论的是在一个VB程序中如何产生出另一个Exe文件。 要实现这个目的,必须符合以下几个条件: 第一、编写这样的程序时,具备欲生成的Exe文件 第二、事先知道欲生成的Exe文件大小 ...
  • VB生成的ActiveX DLL/EXE,需要使用CreateObject调用,就象在VFP中调用Excel一样
  • 很多时候自定义或者引用控件都需要... 首先,新建一个工程,在“外接程序”->“外接程序管理器”->“VB 6 资源管理器” 添加资源文件,可以讲图标、image等文件添加进去,这里我们添加的是ocx。添加后保存会生成一个
  • 如何VB中使用OCX文件

    千次阅读 2011-06-09 23:55:00
    即:在exe文件中将ocx作为资源文件,外部有则不理,外部没有则自动生成。    做法是,将第三方控件以自定义资源文件方式保存在程序中,程序运行之后使用控件之前将所用到的控件生成到该程序目录下,完成控件从可...
  • 如何VB中加载OCX文件

    千次阅读 2008-08-04 13:25:00
    即:在exe文件中将ocx作为资源文件,外部有则不理,外部没有则自动生成。 做法是,将第三方控件以自定义资源文件方式保存在程序中,程序运行之后使用控件之前将所用到的控件生成到该程序目录下,完成控件从可执行...
  • 如何VB制作DLL文件

    2012-05-08 21:52:42
    1.新建一个ActiveX Dll,工程名字为vbmytestdll,类模块名字为mytestdll 2.类模块内容只有一个函数,主要返回DLL的HELLO WORLD Public Function dlltest1() ...保存,生成DLL,名字为 vbmytestdll.dll 4.新建一个EXE...
  • VB设计过程中图标显示是正常的,但在运行和生成EXE执行文件后图标的背景边框就显示为黑色。很不美观。很多朋友都遇到过这样的问题。有时换成其他格式的ICO文件就可以使用,不过要随意使用自己喜欢的小图标ICO文件...
  • 如何用命令编译vb程序

    千次阅读 2011-06-17 12:28:00
    cd 命令转到 vb6.0 的安装目录,然后输入 vb6 /make vbp文件全路径 ( /make 可简写为 /m ,如果文件名含空格,文件名要加引号) 就编译成exe ,exe文件默认与vbp文件同目录同名(扩展名不同),如果要修改编译生成的...
  • (5KB) 82,vbsearch32.ZIP 查询/替换的例子 (28KB) 83,scanfile.ZIP 如何在一个长文件中查找某一个特定的字符串 (2KB) 84,iconxtr.ZIP 从windows的图标库如"exe"."dll","icl"文件中分离出icon ...
  • 利用Matlab自带工具箱生成Dll和EXE文件想到后期开发需要用到matlab与vb或者其他语言进行编程操作,边想着如何利用matlab强大的功能,而又脱离其软件本身进行开发。利用DLL文件与VB混编进行开发是方法之一。本以为是...
  • vb/vb.net开发精粹(13)

    2011-11-02 13:48:24
    VB是不是所有语言中最拉圾的一门语言? 请问关于vb.net socket的连接...VB生成Exe文件时报“VB出现问题,需及时关闭”的错误 vba 动态链接库的问题 相对地址和绝对地址的问题 在线跪求:VB串口如何发送转义字符
  • [程序语言] Microsoft Visual Basic 4.0,5.0,6.0[运行平台] Windows[功能描述] IPX和...步骤:1)在Visual Basic生成标准的EXE文件。缺省创建 Form1。2)在Form1中添加一命令按钮,缺省名为Command1。3)把下列代码放到Fo
  • 本人准备做一个VB单机版答题小软件,现在...要求: 答题软件最终生成exe文件,使用人员也可以在自己电脑上答题。系统不使用数据库库,如何在当前项目中使用其他文件作为题库(最好excel作为题库),并且能打包生成exe。
  • VB的插件编写实例,演示怎样使用VB开发插件,以及如何引用插件。源代码中包含一个Host主工程,一个Plugin插件工程。...调试时请将Plugin_Host.exe文件改名为Host.exe,否则会提示无法创建对象的错误。
  • 如何打包自己的EXE文件呢,先百度一下,准备点资料,然后再实践。   以前有一点VB的经验,而VC的打包一直用不到。因为我的VC还不会做程序。     第一步:    把自己的程序编绎成Release版本。     ...
  • 最全py2exe

    2015-04-28 00:11:00
    这次不是直接讲解下去,而是谈一下如何把我们写的游戏做成一个exe文件,这样一来,用户不需要安装python就可以玩了。扫清了游戏发布一大障碍啊! perl,python,java等编程语言,非常...)生成exe文件。有了exe,所...
  • VB的透明窗体

    2008-07-13 11:03:36
    许多程序在Loading时会在屏幕上加载该程序的程序图标。该图标实际上是在一个窗体中,但窗体的其他部分是透明的,... 试验本功能时,建议将程序生成EXE文件后,再查看使用效果,如果在设计阶段可能得不到最终结果。
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    如何强制文件对话框再次读取正确的磁盘 55 , 55.txt 如何取得RichTextBox控件中光标所在行的值? 56 , 56.txt 如何让用户自行输入方程式,并计算其结果? 57 , 57.txt 如何设定 MsgBox 在若干时间之后若无回应則自动...
  • 这次不是直接讲解下去,而是谈一下如何把我们写的游戏做成一个exe文件,这样一来,用户不需要安装python就可以玩了。扫清了游戏发布一大障碍啊! perl,python,java等编程语言,...)生成exe文件。有了exe,所有的...
  • 保存好的程序要编译成可以在Windows下运行的可执行程序,方法是选择“文件”菜单中的“生成工程1.exe”命令,以“窗体”为文件名保存文件到自己的文件夹,这个程序关闭VB后也可以运行,退出VB,打开自己的文件夹,...

空空如也

空空如也

1 2 3 4
收藏数 64
精华内容 25
关键字:

vb如何生成exe文件