تابع API:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
lpszSoundName: آدرس دقيق فايل صوتي
uFlags: اگر با 1 مقدار دهي بشه فايل صوتي پخش ميشه.
بايد قبل از پخش صدا يك روال (Sub) خودمون بسازيم تا زماني كه مي خواهيم فايل رو پخش كنيم آدرس رو دريافت مي كنه و بر اساس اون آدرس يا Path فايل رو پخش مي كنه.
روال تابع:
Private Sub PlaySound(strFileName As String)
sndPlaySound strFileName, 1
End Sub
strFileName: آدرس دقيق فايل صوتي
*************************
برنامه رو دانلود كنيد.