Playing sounds in VB 6.0

Re: Playing sounds in VB 6.0


Kiteman (Canada) heeft geschreven in bericht ...[color=blue]
>
>Instead of a beep sound playing as an alarm or reminder I would like to be
>able to play a more interesting sound. On the web, I found and tried a
>sound routine that uses the SOUND.DRV but it does not work for me.
>
>Maybe it would be best to try to play a small mp3 or wav file instead -[/color]
does[color=blue]
>VB 6.0 have built-in support for sounds like that?
>
>Tom
>
>[/color]


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: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi. net
PlaySound "C:\WINDOWS\MED IA\TADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub