المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : طريقة ربط الفلاش بالفيجوال بيسك



الموت الغريب
12-11-2009, 01:51 PM
هذه المشاركة الاولى في المنتدى في هذه الدورة التعليمية الجميلة
و نعدكم بدروس احترافية في الفيجوال بيسك للبرمجة


طريقة ربط الفلاش بافيجوال بيسك


مقدمة الموت الغريب


الدرس الاول

أولا قم بالضغط على زري Ctrl + T
وأضف الأداة التالية shock wave flash
ثانياً: قم بإدراج الأداة في الفورم بالحجم اللي تبيه
ثالثاً: اضف 5 أزرار أوامر command button ومن ثم عدل الخاصية caption لتصبح كالتالي

الزر الأول تشغيل
الزر الثاني الأمام
الزر الثالث الخلف
الزر الرابع تكبير
الزر الخامس تصغير

والآن قم بوضع الكود التالي في المشروع

**************************************

في التعريف العام للفورمGeneral نضع هذا الكود


كود
Private Sub ShockwaveFlash2_FSCommand(ByVal command As String, ByVal args As String)
If (command = "Zoom") Then
ShockwaveFlash1.Zoom (args)
Else
MsgBox (args)
End If
End Sub



في حدث التحميل للفورم Form_Load نضع هذا الكود

كود
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path + "\k.swf"
End Sub


وفي حدث زر التشغيل نكتب

كود
Private Sub Play_Click()
ShockwaveFlash1.GotoFrame (0)
ShockwaveFlash1.Play
End Sub


وفي حدث زر للأمام نكتب

كود
Private Sub Forward_Click()
ShockwaveFlash1.Forward
End Sub


وفي حدث زر للخلف نكتب

كود
Private Sub Back_Click()
ShockwaveFlash1.Back
End Sub


وفي حدث زر التكبير نكتب
Private Sub ZoomIn_Click
كود
()
ShockwaveFlash1.Zoom (50)
End Sub


وفي حدث زر التصغير نكتب

كود
Private Sub ZoomOut_Click()
ShockwaveFlash1.Zoom (200)
End Sub



أنتهــــــى

gomanah
04-01-2010, 12:00 AM
جدا راااائع
وجاري التطبيق

جوسة
07-05-2010, 10:22 PM
لو سمحت أخي أنا حاولت تطبيق الدرس لكن اداة الفلاش موجودة في الادوات لكنها لا تندرج في الفورما
يظهر مسج بأنه حاجة اسمها active x تحتاج التفعيل
ما الحل ؟
أرجو افادتي سريعا لأني محتاجة اطبق مشروع تخرجي :nerves:

جوسة
11-05-2010, 07:48 PM
بجد ما فيكم خير ولا احد راضي يرد عليا

احمد زكريا عبد العزيز
12-05-2010, 04:50 PM
ربنا يكرمك ويعزك وزودك من العلم ما تستحق
انا احمد محتاج ان اكون مبرمج وينقصنى بعض البرامج مثل قاعدة بيانات اوركل اتمنى ان تفيدنى فى ذلك واليك ايميلى للتواصل ahamedzakarea@yahoo.com

مثنى العيداني
03-06-2010, 06:28 PM
شكراااااااااااااااااااااااااااااااااا

http://file7azm.info/do.php?img=807