حتى تتمكن من اضافة اداة التعامل مع الاصوات اتبع الخطوات :
1- اختر Component من قائمة Project فتظهر نافذة والتي بها تطبيقات Active X
2- اختر Microsoft Multimedia Control 6.0 وهى الخاصة بالصوت
3- تلاحظ ظهور اداة جديده الى صندوق الادوات
4-اضغظ Double Click على الاداه بعد اضافتها للفورم واضبط الخاصية Visible لتصبح False حتى لاتظهر الاداه اثناء تشغيل البرنامج
5- اضف الكود التالي داخل Form Load
music.DeviceType= "Sequencer"
music.filename="C:\sound.mid"
music.Command="Open"
music.command="Play"
الامر الاول:
يقوم بتحديد نوع الملف المستخدم
Midi = Sequencer
Wave = WaveAudio
الامر الثاني:
يقوم بتحديد موقع واسم الملف
الامر الثالث:
يقوم بفتح الملف لبدء التشغيل
الامر الرابع:
يقوم ببدء تشغيل الملف
لاحظ:
يمكن ضبط الخاصيه DeviceType والخاصيه File.name من نافذه Properties الخاصة بالاداه
وبذلك نكتفي بالامر الثالث والرابع فقط
لاحظ:
عند انتهاء ملف الصوت فانه يتوقف ويعود البلرنامج بدون صوت
ولذلك قم باضافه الكود التالي على اداه الصوت في الحدث Done
music.command= "prev"
music.command= "play"
وبذلك سيظل الصوت يعزف في خلفيه البرنامج
(h) (h) (h) (h) (h) (h) (h) (h) (h)
