岳麓区政府区域图片:如何在 VB 中播放资源文件中的声音?

来源:百度文库 编辑:高校问答 时间:2024/04/28 00:29:39
自定义资源中的 wav
ID 为 101
最好是直接从资源中播放声音而不是把声音保存为文件再去播放它

用部件中的添加的widowsmediaplayer组件,然后再属性框里面设置路径(url)就可以了。
例如
WindowsMediaPlayer1.URL = "E:\music\百度.wav"

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1 ' 异步播放
Private Const SND_NODEFAULT = &H2 ' 不使用缺省声音
Private Const SND_MEMORY = &H4 ' lpszSoundName 指向一个内存文件
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound

Private Sub Form_Load()
Dim B() As Byte '如果把这个语句放在过程中则将不能异步播放
B = LoadResData(101, "wav")

sndPlaySound B(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY

End Sub

...是资源文件呀