UC知道VB 怎样嵌入两个 资源文件
来源：百度知道 编辑：UC知道 时间：2024/07/03 03:08:45
Private Sub Command1_Click()
Dim T() As Byte
T = LoadResData(101, "CUSTOM")
Open "C:\计时器.exe" For Binary As #1
Put #1, , T1()
Close #1
End Sub
上面只能用一个
Dim T() As Byte
T = LoadResData(101, "CUSTOM")
Open "C:\计时器.exe" For Binary As #1
Put #1, , T1()
Close #1
End Sub
上面只能用一个
Private Sub Command1_Click()
Call UnRes(102, "CUSTOM", "c:\dd.mp3")
Call UnRes(101, "CUSTOM", "c:\dd.gif")
End Sub
'这个是修改过的通用解压资源函数
'调用格式 UnRes(资源ID,资源所属组名,解压文件路径)
Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String)
Dim Temp() As Byte
Temp = LoadResData(ResID, ResName)
Open UnResPath For Binary As #1
Put #1, , Temp()
Close #1
End Function