شما مي‌توانيد به وسيله API ها در ويژوال بيسيك اصوات با فرمت Wav را پخش نماييد به صورت زير :
ابتدا كد زير را در يك ماژول وارد نماييد.
سپس كد زير را براي انجام اين عمل اجرا نماييد.
ابتدا كد زير را در يك ماژول وارد نماييد.
کد:
'module (Api Functions declarations)
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Public Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Public Const SND_SYNC = &H0 ' play synchronously (default)سپس كد زير را براي انجام اين عمل اجرا نماييد.
کد:
public sub cmdPlaysoundClick()
dim ret as long
ret=sndplaysound("c:\windows\bee.wav",SND_SYNC)
End Sub
