[دمعة فرح]

تعريف الصوت في الفيجول بيسك ليس بالأمر اليسير على المبرمج المبتدأ ، ولو أنه أمر سهل .. ولكن ليس قبل أن تعرف المكتبات Functions المعرّفة للصوت ..
لذلك .. لكي تقوم بتعريف الصوت .. قم بعمل نموذج جديد وذلك عن طريق

الخطوة الأولى
اختر من القائمة العلوية project ثم اختر Add Module
ثم ستظهر لك نافذة اختر منها Open

الخطوة الثانية
ضع الدالة sndPlaySound في هذا النموذج الجديد .. على هذه الصورة
#If Win32 Then
Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
#Else
Declare Function sndPlaySound Lib "MMSYSTEM.DLL" _
(ByVal lpszSoundName As Any, ByVal wFlags As Integer) As Integer
#End If

الخطوة الثالثة
الآن إذهب إلى النافذة ـ Form ـ التي تريد وضع الصوت فيها .. واختر الحدث load أي عندما تفتح هذه الفورم وتحمّل .. وضع هذا السطر
Result = sndPlaySound(ByVal 0&, 0)

الخطوة الرابعة
وأخيراً ضع في المكان الذي تريد فيه تحميل الصوت ( أكان عند الضغط على زر أو تحميل نافذة أو المرور على زر .... الخ ) هذا الأمر ..
Result = sndPlaySound("c:start.wav", 3)

حيث c:start.wav هو اسم الملف الصوتي الذي تريد سماعه ..

ملاحظة : قم بتغيير الرقم 3 في الأمر الأخير إلى 0 أو واحد ولاحظ الفرق ..

وإن شاء الله كل شيء واضح ... وتحياتي ..