Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
May 12, 2003

PlayWAV - Playing a WAV file

Const SND_ASYNC = &H1

<System.Runtime.InteropServices.DllImport("winmm.dll")> Shared Function _
    PlaySound(ByVal lpszName As String, ByVal hModule As Integer, _
    ByVal dwFlags As Integer) As Integer
End Function

' Play a WAV file.
'
' fileName is a string containing the full path of the file.
' If synchronousMode is true, the sound is played synchronously
' Returns true if no errors occurred

Function PlayWAV(ByVal fileName As String) As Boolean
    ' play the file asynchronously
    PlayWAV = (PlaySound(FileName, 0, SND_ASYNC) = 0)
End Function

Function PlayWAV(ByVal fileName As String, ByVal synchronousMode As Boolean) As _
    Boolean
    If synchronousMode Then
        ' play the file synchronously
        PlayWAV = (PlaySound(fileName, 0, 0) = 0)
    Else
        ' play the file asynchronously
        PlayWAV = (PlaySound(fileName, 0, SND_ASYNC) = 0)
    End If
End Function
Alberto Falossi
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap