Question

关于VB播放声音文件的问题,请高手回答！【在线等，急！】

1、VB中添加声音文件的形式好像都是用路径，编译完后如果声音文件删除了就不能用了，想问一下有没有办法让声音文件嵌入到程序中，即使硬盘上的文件删除也可以播放的？[br/]二、怎样实现声音文件的自动播放？如果有知道的请告诉我，谢谢大家！

Answer 1

有的，添加资源文件把声音文件镶嵌在VB内部。就可以随意游了。
举个例子。
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_ALIAS_START = 0 '结束播放
Dim Wav() As Byte

Private Sub Command1_Click() '播放声音文件
Wav = LoadResData(101, "WAVE")
sndPlaySound Wav(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
End Sub

Private Sub Command2_Click() '停止播放
sndPlaySound Wav(0), SND_ALIAS_START
End Sub