VB怎么调用资源文件

来源：百度知道 编辑：UC知道 时间：2024/06/28 03:27:43
我做了一个小程序。是照网上代码做的。但是生成EXE后。打开的文件是当前目录下指定的文件。我想把这些文件和它本身绑定在一起。这样就不会被误删了。
在些先谢谢啦！！！虽然分数不高。可我只有十五分了。有劳了各位。。

VB 调用资源文件例子：
Option Explicit

Dim AppEXE() As Byte
Dim FileNum As Long

Private Sub Test()
'将自定义资源中101号资源读入数组
AppEXE = LoadResData(101, "CUSTOM")
FileNum = FreeFile
'以二进制方式写（生成）temp1.exe到当前目录
Open "C:\Test.exe" For Binary As #FileNum
Put #1, , AppEXE
Close #FileNum
'运行Test.exe
Shell "C:\Test.exe"
End Sub

这个功能要使用资源编辑器, 过程相对麻烦些.
打开VB后 精简版的应该不可以 菜单栏-外接程序-外接程序管理器-VB资源编辑器-加载(打上对号)
然后在标准按钮里找到 资源编辑器(位置大约在 菜单外接程序的下方)
打开后 添加自定义资源 添加后文件会被编号 如果没有使用过资源编辑器 文件编号应该是101 下面代码是以101文件作为例子的.

文件添加好后, 写入代码
Dim TempDataPath As String

Private Sub Form_Load()
Dim TempData() As Byte
TempDataPath = "释放临时文件的地址 格式如：f:\1.mp3，使用完成后临时文件会删除"
TempData = LoadResData(101, "CUSTOM") '这是那个文件编号 101
Open TempDataPath For Binary Access Write As #1
Put #1, , TempData
Close #1
'这里