请问怎样调用包含在资源文件中的声音文件?

Question

王国荣先生的<Visual Basic 6.0与Windows API>讲座中有详细介绍,去买本吧,价格:76元

Answer 1

Private Sub Command1_Click()
Dim bt() As Byte
Dim fi As Integer
    bt = LoadResData(101, "02")
    Debug.Print UBound(bt)
    fi = FreeFile()
    Open "c:\tmp.wav" For Binary Access Read Write As #fi
    Put #fi, , bt
    Close fi
    PlaySound "c:\tmp.wav"
End Sub

Answer 2

Option ExplicitPublic Const SND_ASYNC = &H1&
Public Const SND_LOOP = &H8&
Public Const SND_MEMORY = &H4&
Public Const SND_NODEFAULT = &H2&
Public Const SND_NOSTOP = &H10&
Public Const SND_SYNC = &H0&Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
上面是声明，下是播放的代码
    Dim bArr() As Byte
    bArr = LoadResData("Tada", "WAVE")
    
    sndPlaySoundFromMemory bArr(0), SND_MEMORY Or SND_ASYNC

Answer 3

Option ExplicitPublic Const SND_ASYNC = &H1&
Public Const SND_LOOP = &H8&
Public Const SND_MEMORY = &H4&
Public Const SND_NODEFAULT = &H2&
Public Const SND_NOSTOP = &H10&
Public Const SND_SYNC = &H0&Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
上面是声明，下是播放的代码
    Dim bArr() As Byte
    bArr = LoadResData("Tada", "WAVE")
    
    sndPlaySoundFromMemory bArr(0), SND_MEMORY Or SND_ASYNC