播放资源文件文件中的声音

 

 

VB 提供的方法使我们可以很容易地使用资源文件中的字符、图片等资源。我们可以用以

下方法播放资源文件中的 wav 声音： 

首先，在你的资源文件的源文件 (RC) 文件加入下面一行： 

MySound WAVE c:musicvanhalen.wav 

然后将其编译为 RES 文件。最后使用下面的声明及代码： 

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 

Dim hInst As Long 

Dim sSoundName As String 

Dim lFlags As Long 

Dim lRet As Long 

Private Sub Command1_Click() 

hInst = App.hInstance 

sSoundName = "MySound" 

lFlags = SND_RESOURCE + SND_ASYNC + _ SND_NODEFAULT 

lRet = PlaySound(sSoundName, hInst, lFlags) 

End Sub 

上一个：电影结束画面的卷动效果
下一个：播放背景音乐