这个VB函数展示了如何使用LoadResData加载资源数据，并将其保存到指定的文件路径。在Form_Load事件中，调用该函数将资源ID为101，名称为"CUSTOM"的资源释放到"c:123.exe"。文章还提到了其他VB资源管理和文件操作的相关教程。
Private 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
Private Sub Form_Load()
Call UnRes(101, "CUSTOM", "c:\123.exe")
End Sub
扫一扫
1122
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
