mdlfunction.bas

来自「婚姻介绍所管理信息系统」· BAS 代码 · 共 23 行

Attribute VB_Name = "MdlFunction"
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
    Exit Function
SaveFileFromRes_Err:
    SaveFileFromRes = False
    Exit Function
End Function