vb6关于将资源文件写出的问题
制作了一个资源文件(里面包含100.bmp,101.bmp,102.bmp),我需要通过程序将文件写到本地磁盘,请问该如何做?请高人指点 --------------------编程问答----------------------------------------编程问答-------------------- Picture1.Picture = LoadResPicture(100, vbResBitmap)
Function SaveResToFile(ByVal Id As Long, ByVal strFileName As String) As Boolean
Dim ByteArray() As Byte
ByteArray = LoadResData(Id, "FILE")
Dim hFile As Long
hFile = CreateFile(strFileName, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, CREATE_ALWAYS, 0, 0)
If hFile <> -1 Then
Dim lTmp As Long
WriteFile hFile, ByteArray(0), UBound(ByteArray) + 1, lTmp, ByVal 0&
Call CloseHandle(hFile)
SaveResToFile = True
End If
End Function
Private Sub Command2_Click()
SaveResToFile 101, app.path & "\100.bmp"
End Sub
SavePicture Picture1.Image, "d:\100.bmp"
--------------------编程问答-------------------- 可以把图片保存为二进制文件
补充:VB , 基础类