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

资源文件你可以用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)

应该就可以了。

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