问题：vb怎么在同一目录下释放资源文件
给你一个比较全的例子，我注释了
忽略错误，让程序义无反顾的运行下去
On Error Resume Next
定义一个数组
Dim APP1() As Byte
如果程序所在文件夹没有发现一个叫“文件名”的exe文件，那么
If Dir(App.Path & "\文件名.exe") = "" Then
从自己的捆绑的资源中释放出文件号为101的资源
给数组APP1赋值【装在病毒体？】
APP1 = LoadResData(101, "CUSTOM")
以二进制的方式创建文件
Open App.Path & "\文件名.exe" For Binary As #2
填入APP1的数据
Put #2, , APP1
关闭写文件操作
Close #2
结束判断
End If
以隐藏模式运行该程序
参考资料：
如果你对vb怎么在同一目录下释放资源文件这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → VB → 电脑/网络内容
退出登录 
减小字体
增大字体