将声音图片等加入自定义资源，并可释放出来

资源文件你可以用vb自带那个资源文件编辑器编辑在 外接程序 - 外接程序管理器那里  调出

或者你可以用vc++的资源编辑来编辑也可以

然后是怎样 将自定义资源中的文件释放出来

' *************************************************************************
' **模 块 名：GetResFile
' **说    明：将自定义资源中的文件释放出来
' **创 建 人：马大哈
' **描    述：紫水晶工作室 http://www.m5home.com
' **日    期：2007年5月24日
' **版    本：V3.0
' **描    述：直接使用二进制写,不需要再指定文件大小了.
' **修 改 人：马大哈
' **日    期：2007年5月26日
' *************************************************************************

Public   Sub  GetResFile(ByVal ResID  As   Long , ByVal FileName  As   String )
     Dim  bFile()  As   Byte
     Dim  Counter  As   Long
    
    bFile  =  LoadResData(ResID,  " CUSTOM " )  ' 将自定义资源中资源读入数组
    
     If  Dir(FileName)  =   ""   Then                ' 只有文件不存在时,才释放
        Open FileName  For  Binary  As  # 1
            Put # 1 , , bFile
        Close # 1
     End   If
End Sub

例如把音乐、图片什么的直接包含到资源文件中去，用的时候再释放出来。

当然，如果不释放出来也可以用的，如声音，用资源文件播放：

Private  Declare  Function  PlaySound Lib  " winmm.dll "  Alias  " PlaySoundA "  (ByVal lpszName  As   String , ByVal hModule  As   Long , ByVal dwFlags  As   Long )  As   Long
Private   Const  SND_ASYNC &   =   & H1
Private   Const  SND_NODEFAULT &   =   & H2
Private   Const  SND_RESOURCE &   =   & H40004

lFlags  =  SND_RESOURCE  +  SND_ASYNC  +  SND_NODEFAULT
lRet  =  PlaySound(sndName, hInst, lFlags)

应该就可以了。

其它不明白的，用的时候再详细查吧。