الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

القائد1

مغلق
بدأه القائد في الظل في 14 نوفمبر 2003 · 1 رد · 748 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

نعتز بالاشتراك في هذا المنتدى راجين الله التوفيق والسداد

ومن الاخوة الدعاء وخير الارشاد

مشاراكاتي سوف تكون على النحو الاتي: فائدة ( اتكلم عن شي معين ) واستفسار ( اطرح اسئلة علي نفس الموضوع )

أول مشاركة

كيفية عمل برنامج صوتي

اختر من قائمة components العنصر project

ثم خيار microsot multamedia control6

ثم اختر apply

ثم اختر من صندوق الادوات الاداة التي تدعاء mmcontrol وهي الاداة التي تم إضافتها

بعد ظهور الشريط على ورقة العمل

قم بعمل زر كذالك على ورقة العمل

ثم انقر على الزر مرتين

واكتب الاوامر بالشكل التالي

Private Sub Command10_Click()

With MMControl1

.DeviceType = "waveaudio"

.FileName = "c:\windows\media\ding.wav"

.Command = "prev"

.Command = "open"

.Command = "play"

End With

End Sub

ثم جربه وبإذن الله يتم عمله

الاستفسار:

1-لماذا هذا البرنامج لا يشغل الملفات التي بمتداد mpa-mp3?

#2

يت اخي احذف السطر الآتي :

DeviceType = "waveaudio"

وسيعمل البرنامج ان شاء الله .

هذا الموضوع مغلق.