B
Brettjg
I have my wav sounds playing quite nicely, using the following code. However,
one of the files I would to play is a wma file. Just changing the code below
to Fart.wma from Fart.wav doesn't do it. Does anyone have an idea on this
one? Regards, Brett
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal
lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Sub WAV_OOPS()
Dim WAVFile As String
WAVFile = "C:\QUO SOUNDS\Fart.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
one of the files I would to play is a wma file. Just changing the code below
to Fart.wma from Fart.wav doesn't do it. Does anyone have an idea on this
one? Regards, Brett
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal
lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Sub WAV_OOPS()
Dim WAVFile As String
WAVFile = "C:\QUO SOUNDS\Fart.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub