Question

VB如何释放资源？要代码！

若以下回答无法解决问题，邀请你更新回答

Answer 1

函数过程:
Public Function SaveFileFromRes(vntresourceId As Variant, sTYPE As String, sfilename As String) As Boolean
Dim bytimage() As Byte
Dim ifilenum As Integer
On Error GoTo SaveFileFromRes_err
SaveFileFromRes = True
bytimage = LoadResData(vntresourceId, sTYPE)
ifilenum = FreeFile

Open sfilename For Binary As ifilenum
Put #ifilenum, , bytimage
Close ifilenum

SaveFileFromRes_err: Exit Function
SaveFileFromRes = False: Exit Function
End Function

调用:
SaveFileFromRes 101, "CUSTOM", "test.exe" '101是资源标识号,"CUSTOM"是资源类型,"test.exe"是释放后的资源,你的资源是什么格式就把.exe改成什么格式
Shell "test.exe", 1 '进一步操作,打开释放后的资源