Playing wavfiles from excel

B

Brett

I have

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

and then a series of:
Sub G02_WAV_AIR()
Dim WAVFile1 As String
WAVFile1 = "C:\0. QUO VADIS\SOUNDS\AIR.wav"
Call PlaySound(WAVFile1, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Each one gets it's own WAVfile#. Now this all worked perfectly until a few
weeks ago. Now, it will intermittently play only the first tenth of a second
of WAVs if they are at the start of a subroutine (subsequent statements of
ANY kind seem to terminate it). Other times (in the SAME subroutine, and
without code changes) it will play completely. If the WAV is at the end of a
sub then it always plays fully.

Is there something that needs to be cleared (or whatever) before playing a
WAV? Brett
 
B

Brett

Thank you Jacob. That's different code to what I have so I'll play around
with it later.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Alarm 2 2
playing wma files 2
Wavfile playing trubcated 3
sound 4
Assign a sound to a variable 19
Playing a sequence of WAV files 6
Run-time error question 0
Sound repeats unending until closing workbook 2

Top