• Home
 · 
• Windows API Call/Explanation
 · 
• Through this code you can play any wav file and generate different sounds on various VB events as p

Through this code you can play any wav file and generate different sounds on various VB events as p

Through this code you can play any wav file and generate different sounds on various VB events as per your Application

Rate Through this code you can play any wav file and generate different sounds on various VB events as p

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Option Explicit

Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Enum SND_Settings
    SND_SYNC = &H0
    SND_ASYNC = &H1
    SND_NODEFAULT = &H2
    SND_MEMORY = &H4
    SND_LOOP = &H8
    SND_NOSTOP = &H10
    SW_SHOW = 5
End Enum

Public Sub Play(fname As String, Optional Settings As SND_Settings = SND_ASYNC)
    Dim retval As Long
    retval = sndPlaySound(fname, Settings)
End Sub

'''''Paste following code in form

Private Sub Command1_Click()
 Play "C:\program files\Messenger\online.wav"
End Sub