Ok sorry about this guys, but no search function

Sorry in advance, would have used search but has been disabled:( SO here is a question which has been asked a million times previously....our internal archive server is down so cannot log in to extract the code.........................

Playing wav files.

Am using

Code:

---


Const SND_SYNC = &H0
Const SND_NODEFAULT = &H2

Call sndPlaySound(sWavFile, SND_SYNC Or SND_NODEFAULT)

---

In a public sub.

Get the following error

"Sub or FUnction not defined"

Do l have to do the declare in the same bas module?

That, or wherever you do declare the API call, make it and the constants public. I'd post the code, but the one app I used it in is archived and my archive hard drive is currently failing hideously :eek:

Code:

---

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

Private Sub Command1_Click()
   
    PlaySound "MyFile.wav", 0, 1
   
End Sub

---

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

Was again thanks guys.

Meg you are a live saver, am hour off giving a demo and the friggin API calls are not working. That's what ya get for coding on the bus on the way to a site l guess:rolleyes: