السلام عليكم ورحمة الله وبركاته
أخواني هذا الكود بصراحة من أفضل الأكواد تقريبا لتشغيل ملفات الفلاش swf
أولا قم بالضغط على زري 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
أنتهــــــى
*****************************
حمل المثال من هنا
:D
