如何用VB資源檔播放完整的.wav檔？

Question

請問如何用VB資源檔播放.wav檔？
要匯入此.wav的檔案
另外要用mciSendString完整播放WAV檔
如果sndPlaySound又要怎麼寫呢
因都沒辦法玻
我有辦法匯入圖片檔
只能直接播放
但沒辦法會入資源檔後播放
有什麼須特別注意的
請問有沒有人可以提供完整的程式碼？
和詳細的解答
謝謝

謝謝W.J.S.大大
問題找到了
沒把SND_NODEFAULT等加入模組
那SND_NODEFAULT是什麼
王國榮的書沒說到ㄝ
因為我沒加這個就沒辦法完整播放

至於mciSendString的問題想在請教一下
有辦法用這個撥資源檔嗎
他的寫法是怎樣呢
請你在幫忙一下 謝謝大大了

Answer 1

'第1題用VB播放資源檔wav檔:假設你資源檔WAV的[型態]=CUSTOM,ID=101'如果不會將WAV放進資源檔請參考:如何加入資源檔 (WAV檔也可依此法做)Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As LongConst SND_ASYNC = &H1Const SND_NODEFAULT = &H2Const SND_MEMORY = &H4'如果使用SND_ASYNC，必須A()宣告為全域變數或定義為靜態變數,否則可能導致錯誤Dim A() As BytePrivate Sub Command1_Click() 'Play    A = LoadResData(101, "CUSTOM")    sndPlaySound A(0), SND_NODEFAULT Or SND_ASYNC Or SND_MEMORYEnd SubPrivate Sub Command2_Click() 'Stop    ReDim A(0)    sndPlaySound A(0), SND_NODEFAULT Or SND_ASYNC Or SND_MEMORYEnd SubPrivate Sub Form_Unload(Cancel As Integer)'關閉表單時順便把音樂關掉    Command2.Value = TrueEnd Sub'第2題mciSendString完整播放WAV檔,請參考:要如何開啟某一個音樂檔'第3題如果sndPlaySound又要怎麼寫呢:Private Sub Command3_Click()    sndPlaySound "C:\Test.wav", SND_ASYNC Or SND_NODEFAULTEnd Sub

2006-11-02 00:51:23 補充：
我想應該沒辦法,這方面我之前找過很多資料,好像要播放記憶體內的聲音檔只有用sndPlaySound且只限.wav,其他的只好把它先存在硬碟播完後再刪除了.