本文目录一览：
怎么用VB编写一个EXE文件？
1）运行VB6.0，新建一个标准EXE工程
2）在Form1上添加需要的控件，在代码编写窗口编写代码。
3）按F5观看运行效果
4）保存工程和窗体等文件。
5）点文件菜单-生成工程1.EXE
6）选择保存位置，确定执行，VB就完成EXE可执行文件的编写。
vb6.0 如何添加自定义资源文件例如*.exe
如图所示 在资源编辑器里 点击添加 自定义资源，弹出的文件选择对话框中选择你要的exe文件即可添加
VB如何加入其他的EXE文件
第一步：打开你的VB工程，点击菜单【外接程序】——【外接程序管理器】,就会弹出外接程序管理器
第二步：在外接程序管理器中找到”VB 6 资源编辑器”，选中它，然后在右下角的选项中选中“在启动中加载”和“加载/卸载”这两项
第三步：点击菜单【工具】——【资源编辑器】，打开资源编辑器
下面我们添加一个名为ZiYuan.DAT的文件
添加之后，返回到资源编辑器窗口
注意：一定要记住你添加的文件的序号“101”，文件添加之后是不保存文件名的，这个“101”
是唯一能确定这个文件在资源文件中的位置
然后保存资源文件：点击资源编辑器上方的保存按钮，在弹出的保存对话框中找到你当前工程的目录保存就行
第四步：如何在程序中提取资源文件
假设我们的程序需要使用这个ZIYuanDAT文件,我们可以在程序使用该文件之前把它从资源文件里提取出来
例如我们在窗体的加载事件中提取资源文件，并保存到程序目录中，保存为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 "\ZiYuandat"
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
接下啦要干嘛呢？哈哈，生成后就可以用啦！
VB 如何把一个EXE格式文件嵌入VB里面，并从VB程序中运行
一.嵌入EXE文件
'使用VB资源编辑器(如果没有,请选择菜单-外接程序-外接程序管理器,在里面找到VB资源编辑器选择启动和加载即可)添加CUSTOM资源,保存
'然后在VB资源里加载即可,下面以编号为101的CUSTOM资源为例子
Private
Sub
Form_Load()
Dim
Temp()
As
Byte
Temp
=
LoadResData(101,
"CUSTOM")
Open
"C:\lkfsdklfas.exe"
For
Binary
As
#1
Put
#1,
,
Temp()
Close
#1
End
Sub
'二.打开网页
Shell
"Explorer.exe
"
chr(34)
"
"
chr(34)
