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

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

应该就可以了。

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