上一篇
下一篇
VB调用资源文件例子
作者:JiaJia 日期:2008-01-10
引用内容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
文章来自: 
引用通告: 
Tags: 评论: 1 | 引用: 0 | 查看次数: -
回复
coolco[2008-01-12 03:20 PM | 
]发表评论