أفضل طريقة لتحكم في تشغيل الفلاش

الموضوع في 'لغات البرمجة' بواسطة Mr.vb, بتاريخ ‏26 أكتوبر 2007.

حالة الموضوع:
مغلق
  1. Mr.vb

    Mr.vb عضو جديد

    إنضم إلينا في:
    ‏25 أكتوبر 2007
    المشاركات:
    7
    الإعجابات المتلقاة:
    0
      26-10-2007 20:20
    :besmellah1:

    أخواني هذا الكود بصراحة من أفضل الأكواد تقريبا لتشغيل ملفات الفلاش swf

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

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

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



    في التعريف العام للفورمGeneral نضع هذا الكود
    كود (text):
    [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/CODE]



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

    [CODE]Private Sub Form_Load()
    ShockwaveFlash1.Movie = App.Path + "\k.swf"
    End Sub

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

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

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

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

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

    كود (text):
    Private Sub Back_Click()
    ShockwaveFlash1.Back
    End Sub
    وفي حدث زر التكبير نكتب
    Private Sub ZoomIn_Click

    كود (text):
    ()
    ShockwaveFlash1.Zoom (50)
    End Sub

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

    كود (text):
    Private Sub ZoomOut_Click()
    ShockwaveFlash1.Zoom (200)
    End Sub
     
  2. programmeur

    programmeur كبار الشخصيات

    إنضم إلينا في:
    ‏21 ماي 2006
    المشاركات:
    2.831
    الإعجابات المتلقاة:
    330
      27-10-2007 17:14
    بارك الله فيك

    (لم أجربها)
     
  3. balba

    balba عضو مميز

    إنضم إلينا في:
    ‏23 ديسمبر 2005
    المشاركات:
    1.240
    الإعجابات المتلقاة:
    114
      27-10-2007 22:36
    :besmellah1:
    بارك الله فيك
    :tunis:
     
جاري تحميل الصفحة...
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...