VB如何加入其他的EXE文件

Question

如题所述

Answer 1

第一步：打开你的VB工程，点击菜单【外接程序】——>【外接程序管理器】,就会弹出外接程序管理器

第二步：在外接程序管理器中找到”VB 6 资源编辑器”，选中它，然后在右下角的选项中选中“在启动中加载”和“加载/卸载”这两项

第三步：点击菜单【工具】——【资源编辑器】，打开资源编辑器

下面我们添加一个名为ZiYuan.DAT的文件

添加之后，返回到资源编辑器窗口

注意：一定要记住你添加的文件的序号“101”，文件添加之后是不保存文件名的，这个“101”

是唯一能确定这个文件在资源文件中的位置

然后保存资源文件：点击资源编辑器上方的保存按钮，在弹出的保存对话框中找到你当前工程的目录保存就行

第四步：如何在程序中提取资源文件

假设我们的程序需要使用这个ZIYuan>DAT文件,我们可以在程序使用该文件之前把它从资源文件里提取出来

例如我们在窗体的加载事件中提取资源文件，并保存到程序目录中，保存为ZIYuan.dat

Private Sub Form_Load()
   Dim FileByte() As Byte             '用来缓存文件内容
   Dim sName As String               '要生成的文件名称
       
   If Right(App.Path) = "\" Then          '当是根目录时候有"\"
       sName = App.Path & "ZiYuan.dat"
   Else
       sName = App.Path & "\ZiYuan>dat"
    End If
   
   If Dir(sName) <> sName Then          '如果该文件不存在就建立它
       FileByte() = LoadResData(101, "CUSTOM")    '101是文件号
       Open sName For Binary As #1
           Put #1, , FileByte
       Close #1
   End If
    '至此该文件已经动态生成
End Sub
第五步：生成可执行文件EXE
接下啦要干嘛呢？哈哈，生成后就可以用啦！

Answer 2

ShellExecute

VB声明

*****这个放在（通用）里面******
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute ME.hWnd,vbNullString,vbNullString,vbNullString,"C:\1.exe",0

说明
查找与指定文件关联在一起的程序的文件名。关联的方式要么是运行程序，要么是打印文件。可用Windows注册表编辑器将特定的文件类型同应用程序关联起来。例如，扩展名为.TXT的文本文件通常与Windows记事本（NOTEPAD.EXE）关联到一起。如在文件管理器中双击含.TXT扩展名的一个文件，就会自行启动记事本程序，并在其中载入文本文件；或者将指定的文件打印出来
返回值
Long，大于32表示成功。请参考对FindExecutable函数的说明，了解具体的错误代码列表
参数表
参数 类型及说明
hwnd Long，指定一个窗口的句柄，有些时候，Windows程序有必要在创建自己的主窗口前显示一个消息框。如果发生这种情况，由这个参数指定的窗口就会作为消息框的父窗口使用。在VB环境中，通常将活动窗体的窗口句柄作为这个参数使用
lpOperation String，指定字串“Open”来打开lpFlie文档；或指定“Print”来打印它。也可设为vbNullString，表示默认为“Open”
lpFile String，想用关联的程序打印或打开的一个程序名或文件名
lpParameters String，如lpFile是一个可执行文件，则这个字串包含了传递给执行程序的参数。如lpFile引用的是一个文档文件，或者不需要使用参数，则设为vbNullString
lpDirectory String，想使用的默认路径完整路径
nShowCmd Long，定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数
注解
这个函数的说明在MSDN里是这样的：Opens or prints a specified file

Answer 3

请补充问题！半小时之内回复你！