Playing sounds in VB 6.0

[Kiteman \(Canada\)]

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 - does
VB 6.0 have built-in support for sounds like that?

Tom

[Slaatje]

Kiteman (Canada) heeft geschreven in bericht ...

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 - doesVB 6.0 have built-in support for sounds like that?

Tom

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: KP*****@Allapi.net
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub