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(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
Through this code you can play any wav file and generate different sounds on various VB events as p Comments
No comments yet — be the first to post one!
Post a Comment