• 如何播放資源檔或記憶體內的WAVE檔

若是資源檔 必須先將他讀到記憶體內 方法如下
Dim bytSound() As Byte
bytSound = LoadResData(5, "WAVE") '讀進ID=5的資源

假設資源檔如下
5 WAVE "C:\w.wav"
8 ICON "C:\b.ico"

而播放在陣列中的wave檔只要用sndPlaySound即能達成 方法如下

'API宣告
Private Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) _
As Long
Private Const SND_SYNC = &H0        ' 直到播放結束才回復執行
Private Const SND_ASYNC = &H1      ' 不須等到播放完即可執行
Private Const SND_NODEFAULT = &H2   ' 若語音檔不存在就播放警告音
Private Const SND_MEMORY = &H4      ' 播放記憶體上得音效
Private Const SND_LOOP = &H9        ' 循環播放 這個值我改過了
Private Const SND_NOSTOP = &H10     ' 當所指定檔案已在播放 返回函式呼叫處
只要執行
sndPlaySound bytSound(0),SND_NODEFAULT Or ASND_SYNC Or SND_MEMORY
  • 相關資訊

  sndPlaySound

  資源檔的應用
  • 文件出處

  Honey

VB心得筆記歡迎各位的指教,如果您有任何文章或資料願意提供給我們的,請來信到VBNote

如果對本站有任何建議,歡迎來信給Honey,我們會盡快給您答覆