ملفات الصوت في فيجوال بيسك

السلام عليكم

أنا أعرف تشغيل ملفات Wave ومن خلال دوال الـ API

''''*** In the General Declaration  *****
'''''''**** To Play Wave File *********
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

''''''''''''''''''************ To Play A File With its Full Path *********
Sub SoundPlay(sndFile As String)
    Dim Result As Integer
   If Trim(sndFile) <> "" Then
    Result = sndPlaySound(sndFile, 3)
   End If
End Sub

هنا الأمر لا يحتاج لشرح كثير

نعلن عن الآبى فى قسم الإعلانات العامة

وبعدين Sub يشغل الملف الذى نعطيه مساره واسمه الكامل

والمعامل 3 معناه أنه إذا لم يجد الملف المطلوب لا يعزف شئ يمكن إيقاف الصوت حتى لو لم يكتمل عزف الملف

حقيقة 3 هذه عبارة عن مجموع اختيارين 1 للعودة بعد بدأ العزف و 2 عدم العزف إذا لم يجد الملف

إذا رغبت بأن لا يقف الصوت حتى يتم العزف نستبدلها بـ 0

وإذا رغبنا أن يستمر العزف كلما انتهى الملف يعاد عزفه نختار 8

وأذا أردناه ألا يقاطع ملف آخر يتم عزفه نختار &H10

أما إيقاف العزف أو الصوت

   sndPlaySound vbNullString, 0

,

والله أعلى وأعلم