Visual Basic Programming Code Examples

Visual Basic > Multimedia Animation and Sound Code Examples

Play an audio file



Play an audio file

Below is a general purpose routine for playing audio files:

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 PlaySoundA Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long




'Purpose     :  Plays an audio file
'Inputs      :  sFilePath           The location of the wav file
'               lFlags              Can be one or many of the constants given above
'Outputs     :  The text found on the web site


Function PlaySound(sFilePath As String, Optional lFlags As Long = SND_FILENAME Or SND_ASYNC) As Long
    PlaySound = PlaySoundA(sFilePath, 0&, lFlags)
End Function

'Demonstration routine
Sub Test()
    'Play the sound synchronously
    PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", SND_SYNC
    'Play the sound asynchronously (the default)
    PlaySound "C:\WINDOWS\MEDIA\TADA.WAV"
End Sub