ahmed ksnv
11-30-2006, 06:30 PM
http://img77.imageshack.us/img77/6472/t199ko9.gif
إليكم طريقة عمل برنامج لتشغيل ملفات الفلاش
أولا قم بالضغط على زري Ctrl + T
وأضف الأداة التالية shock wave flash
ثانياً: قم بإدراج الأداة في الفورم بالحجم اللي تبيه
ثالثاً: اضف 5 أزرار أوامر command button ومن ثم عدل الخاصية caption لتصبح كالتالي
الزر الأول تشغيل
الزر الثاني الأمام
الزر الثالث الخلف
الزر الرابع تكبير
الزر الخامس تصغير
http://img352.imageshack.us/img352/39/f092ub5.gif
والآن قم بوضع الكود التالي في المشروع
في التعريف العام للفورم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
http://img352.imageshack.us/img352/39/f092ub5.gif
في حدث التحميل للفورم Form_Load نضع هذا الكود
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path + "\k.swf"
End Sub
ملحوظة:
K.swf هو ملف فلاش مع النموزج
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر التشغيل نكتب
ShockwaveFlash1.GotoFrame (0)
ShockwaveFlash1.Play
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر للأمام نكتب
ShockwaveFlash1.Forward
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر للخلف نكتب
ShockwaveFlash1.Back
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر التكبير نكتب
ShockwaveFlash1.Zoom (50)
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر التصغير نكتب
ShockwaveFlash1.Zoom (200)
http://img352.imageshack.us/img352/39/f092ub5.gif
كما عودتكم النموذج من هنا
http://www.hams6.com/up/uploads/2c708b87e8.gif (http://www.badongo.com/file/1798284)
إليكم طريقة عمل برنامج لتشغيل ملفات الفلاش
أولا قم بالضغط على زري Ctrl + T
وأضف الأداة التالية shock wave flash
ثانياً: قم بإدراج الأداة في الفورم بالحجم اللي تبيه
ثالثاً: اضف 5 أزرار أوامر command button ومن ثم عدل الخاصية caption لتصبح كالتالي
الزر الأول تشغيل
الزر الثاني الأمام
الزر الثالث الخلف
الزر الرابع تكبير
الزر الخامس تصغير
http://img352.imageshack.us/img352/39/f092ub5.gif
والآن قم بوضع الكود التالي في المشروع
في التعريف العام للفورم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
http://img352.imageshack.us/img352/39/f092ub5.gif
في حدث التحميل للفورم Form_Load نضع هذا الكود
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path + "\k.swf"
End Sub
ملحوظة:
K.swf هو ملف فلاش مع النموزج
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر التشغيل نكتب
ShockwaveFlash1.GotoFrame (0)
ShockwaveFlash1.Play
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر للأمام نكتب
ShockwaveFlash1.Forward
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر للخلف نكتب
ShockwaveFlash1.Back
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر التكبير نكتب
ShockwaveFlash1.Zoom (50)
http://img352.imageshack.us/img352/39/f092ub5.gif
وفي حدث زر التصغير نكتب
ShockwaveFlash1.Zoom (200)
http://img352.imageshack.us/img352/39/f092ub5.gif
كما عودتكم النموذج من هنا
http://www.hams6.com/up/uploads/2c708b87e8.gif (http://www.badongo.com/file/1798284)



