]VB6[ أفضل الطرق لتجميل برامجك شبكة الجنرال صدام الشرعبي

أفضل طريقة لتحكم في تشغيل الفلاش
أخواني هذا الكود بصراحة من أفضل الأكواد تقريبا لتشغيل ملفات الفلاش 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

أنتهــــــى