Question

vb6.0资源编辑器怎么用

vb6.0资源编辑器怎么用，怎么调用保存在资源编辑器的声音

Answer 1

'Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As Long, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long

Private Sub Command1_Click()

Dim t As String, bb() As Byte

'   t = ThisWorkbook.Path & "\SoundTest.wav"

t = "SystemStart"

t = "SystemExit"

'   Call PlaySound(t, 0&, &H1)

'   Call sndPlaySound(t, &H1)

bb = LoadResData(101, "wav")

Call sndPlaySoundFromMemory(bb(0), &H4 Or &H1)

'异步播放可以立即执行下面的代码

MsgBox "我被执行啦"

Debug.Print t

End Sub

Answer 2

先释放文件 然后按文件地址来播放

追问

我想要详细的代码