VB and VBA Users Source Code: Play an audio file
[
Home
|
Contents
|
Search
|
Reply
| Previous | Next ]
VB/VBA Source Code
Play an audio file
By:
Andrew Baker
Email (spam proof):
Email the originator of this post
Date:
Saturday, October 21, 2000
Hits:
1198
Category:
Windows API
Article:
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 'Author : Andrew Baker 'Date : 21/10/2000 12:37 'Notes : Code adapted from code found on www.allapi.net (excellent site!) 'Revisions : 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
Terms and Conditions
Support this site
Download a trial version of the Excel Workbook Rebuilder
