الجوهر الفرد
22-06-2007, 12:27 PM
http://img440.imageshack.us/img440/3876/besm48ok7.gif
http://img469.imageshack.us/img469/174/080dw.gif
اليوم هنشوف مع بعض ازاى نخلى الفورم اول ما تبدء تحمل تشتغل ملف صوتى
نسمي الله ونفتح الفيجوال بيسك ونضغط على ctrl+t
لنفتح شاشة الكومبونانت كما في الشكل
http://absba1.absba.org/teamwork18/alimaj/485671/1.gif
نقوم بالاشارة على الاداه Microsoft Multimedia Control ونضغط على ok كما هو موضح في الصورة
نقوم برسم الاداه على الفورم كما في الشكل
http://absba1.absba.org/teamwork18/alimaj/485671/2.gif
الان سنقوم بحفظ البرنامج في فولدر ونعطية اسما وسنقوم بادراج ملف صوتى في الفولدر كما فى الصورة
http://absba1.absba.org/teamwork18/alimaj/485671/3.gif
نضغط مرتين على مكان خالى من الفورم لندخل الى شاشة الكود
لنكتب الكود التالى
Private Sub Form_Load()
MMControl1.FileName = App.Path + "/1.wav"
MMControl1.Command = "open"
MMControl1.Command = "Play"
End Sub
http://absba1.absba.org/teamwork18/alimaj/485671/4.gif
ونشغل الفورم لنرى النتيجه الرائعه
ممكن نعمل زر يجعل الصوت ينتهى بهذه الطريقة
http://img120.imageshack.us/img120/3048/22ut7.gif
وصلة تحميل التطبيق
http://www.egoshare.com/74aea3fd2f8bd820f58e00b97515a944/testrar.html
تم رفع الصور الى سيرفير المنتدى بواسطة المراقب alimaj
http://img469.imageshack.us/img469/174/080dw.gif
اليوم هنشوف مع بعض ازاى نخلى الفورم اول ما تبدء تحمل تشتغل ملف صوتى
نسمي الله ونفتح الفيجوال بيسك ونضغط على ctrl+t
لنفتح شاشة الكومبونانت كما في الشكل
http://absba1.absba.org/teamwork18/alimaj/485671/1.gif
نقوم بالاشارة على الاداه Microsoft Multimedia Control ونضغط على ok كما هو موضح في الصورة
نقوم برسم الاداه على الفورم كما في الشكل
http://absba1.absba.org/teamwork18/alimaj/485671/2.gif
الان سنقوم بحفظ البرنامج في فولدر ونعطية اسما وسنقوم بادراج ملف صوتى في الفولدر كما فى الصورة
http://absba1.absba.org/teamwork18/alimaj/485671/3.gif
نضغط مرتين على مكان خالى من الفورم لندخل الى شاشة الكود
لنكتب الكود التالى
Private Sub Form_Load()
MMControl1.FileName = App.Path + "/1.wav"
MMControl1.Command = "open"
MMControl1.Command = "Play"
End Sub
http://absba1.absba.org/teamwork18/alimaj/485671/4.gif
ونشغل الفورم لنرى النتيجه الرائعه
ممكن نعمل زر يجعل الصوت ينتهى بهذه الطريقة
http://img120.imageshack.us/img120/3048/22ut7.gif
وصلة تحميل التطبيق
http://www.egoshare.com/74aea3fd2f8bd820f58e00b97515a944/testrar.html
تم رفع الصور الى سيرفير المنتدى بواسطة المراقب alimaj