تشغيل ملفات فلاشية swf بأستخدام أداة Shockwave Flash
صفحة 1 من اصل 1 • شاطر
تشغيل ملفات فلاشية swf بأستخدام أداة Shockwave Flash
بسم الله الرحمن
أهلا وسهلا الاعضاء الكرام فى درس بسيط يوضح كيفية تشغيل ملفات الفلاش عن طريق الفجوال بيسك 6 و بأستخدام أداة Shockwave Flash و بذلك عن طريق الخطوات التالية :
_افتح مشروع جديد و اضغط بزر اليمين للفأرة على مكان فارغ في شريط ToolBox و اختر Components .
و توجد طريقة أخرى أيضا اختر من قائمة Project الأمر Components أو اختصارا اضغط على Ctrl+T .
قم باختيار Shockwave Flash و ثم اضغط على Apply ثم Ok .
قم باختيار الأداة الجديدة و قم برسم الفلاش على الفورم
قم بجلب ملف فلاشي الذي تريد تشغيله و ضعه في نفس ملفات برنامجك كالتالي :
قم بالضغط على النموذج ضغط مزدوج ليظهر لك حدث Load و سنكتب فيه شفرة خاصة بتشغيل الملف الفلاش هي التالي :
شرح الكود
أهلا وسهلا الاعضاء الكرام فى درس بسيط يوضح كيفية تشغيل ملفات الفلاش عن طريق الفجوال بيسك 6 و بأستخدام أداة Shockwave Flash و بذلك عن طريق الخطوات التالية :
_افتح مشروع جديد و اضغط بزر اليمين للفأرة على مكان فارغ في شريط ToolBox و اختر Components .
و توجد طريقة أخرى أيضا اختر من قائمة Project الأمر Components أو اختصارا اضغط على Ctrl+T .
قم باختيار Shockwave Flash و ثم اضغط على Apply ثم Ok .
قم باختيار الأداة الجديدة و قم برسم الفلاش على الفورم
قم بجلب ملف فلاشي الذي تريد تشغيله و ضعه في نفس ملفات برنامجك كالتالي :
قم بالضغط على النموذج ضغط مزدوج ليظهر لك حدث Load و سنكتب فيه شفرة خاصة بتشغيل الملف الفلاش هي التالي :
Private Sub Form_Load()
Dim s As String
s = App.Path
If Mid(s, Len(s), 1) <> "" Then s = s + ""
ShockwaveFlash1.Movie = s + "flash.swf"
End Sub
شرح الكود
Dim s As String
هنا عرفنا متغير اسمه s من النوع النصي
s = App.Path
جعلنا قيمة المتغير s تساوي مسار البرنامج حيث الجملة App.Path تجلب لنا مسار البرنامج
If Mid(s, Len(s), 1) <> "" Then s = s + ""
هذه الشفرة مسؤولة عن اكتشاف الخط (/) إن كان موجودا أو لا في مسار البرنامج و إذا لم يوجد يضعه
ShockwaveFlash1.Movie = s + "flash.swf"
بهذه الجملة نقول للأداة ShockwaveFlash1 باستخدام الخاصية Movie لجلب الملف flash حيث s هو مسار البرنامج و الجملة "flash.swf" هي اسم الملف المراد تشغيله و نوعه من نوع swf
هنا عرفنا متغير اسمه s من النوع النصي
s = App.Path
جعلنا قيمة المتغير s تساوي مسار البرنامج حيث الجملة App.Path تجلب لنا مسار البرنامج
If Mid(s, Len(s), 1) <> "" Then s = s + ""
هذه الشفرة مسؤولة عن اكتشاف الخط (/) إن كان موجودا أو لا في مسار البرنامج و إذا لم يوجد يضعه
ShockwaveFlash1.Movie = s + "flash.swf"
بهذه الجملة نقول للأداة ShockwaveFlash1 باستخدام الخاصية Movie لجلب الملف flash حيث s هو مسار البرنامج و الجملة "flash.swf" هي اسم الملف المراد تشغيله و نوعه من نوع swf
جرب البرنامج سترى أن الملف يشتغل أتوماتيكيا مع تشغيل البرنامج و قم بإدراج 4 من الازرار و سمها ما يلي :
و ضع الشفرة التالية لعمل الكود
زر التوقف
Private Sub Command1_Click()
ShockwaveFlash1.Stop
End Sub
زر تشغيل
Private Sub Command2_Click()
ShockwaveFlash1.Play
End Sub
زر ترجيع إطار أو فريم واكحد
Private Sub Command3_Click()
ShockwaveFlash1.Back
End Sub
زر الذهاب لإطار أو لفريم معين
Private Sub Command4_Click()
ShockwaveFlash1.GotoFrame 100
End Sub
Private Sub Command1_Click()
ShockwaveFlash1.Stop
End Sub
زر تشغيل
Private Sub Command2_Click()
ShockwaveFlash1.Play
End Sub
زر ترجيع إطار أو فريم واكحد
Private Sub Command3_Click()
ShockwaveFlash1.Back
End Sub
زر الذهاب لإطار أو لفريم معين
Private Sub Command4_Click()
ShockwaveFlash1.GotoFrame 100
End Sub
جرب البرنامج و حاول عمل أشياء أخرى تريدها .
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد