Stupid Q but needing answer! Sound

Hi,

I would like to play a *.wav file and was wondering what the most simple way to do it was :)

Thanks in advance,
Rudi :afrog:

Quote:

---

Originally Posted by ..:RUDI:..

Hi,

I would like to play a *.wav file and was wondering what the most simple way to do it was :)

Thanks in advance,
Rudi :afrog:

---

The allapi guide (from http://www.allapi.net) has some demo code. This is a transcription:

VB Code:

Private Const SND_APPLICATION = &H80         '  look for application specific association
Private Const SND_ALIAS = &H10000     '  name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000    '  name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000     '  name is a file name
Private Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4         '  lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2         '  silence not default, if sound not found
Private Const SND_NOSTOP = &H10        '  don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000      '  don't wait if the driver is busy
Private Const SND_PURGE = &H40               '  purge non-static events for task
Private Const SND_RESOURCE = &H40004     '  name is a resource name or atom
Private Const SND_SYNC = &H0         '  play synchronously (default)
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 Form_Load()
    'KPD-Team 2000
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

Thanks :)

Quote:

---

Originally Posted by ..:RUDI:..

Thanks :)

---

Did it work? I have no sound card in the office computer and couldn't try it out.

yes it works, but could you tell me were you found that (The actual page link) so that I can stop it from repeating?

Quote:

---

Originally Posted by ..:RUDI:..

yes it works, but could you tell me were you found that (The actual page link) so that I can stop it from repeating?

---

I see the link is not working because a right bracket slipped into the URL tag. You can download the guide directly clicking on http://users.chello.be/cr27630/3.7/agsetup.exe