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:
Printable View
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:Quote:
Originally Posted by ..:RUDI:..
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 :)
Did it work? I have no sound card in the office computer and couldn't try it out.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.exeQuote:
Originally Posted by ..:RUDI:..