كود تشغيل ملف فلاش فى برنامج لادراج اداه الفلاش AxShockwaveFlash1
 

تشغيل ملف فلاش فى برنامج تحتاج لادراج اداه الفلاش AxShockwaveFlash1 على الفورم وعدد 2 بوتون والكود الاتى كامل انسخه وضعه فى الفورم
​


كود:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxShockwaveFlash1.Movie = Application.StartupPath & "\1.swf"
AxShockwaveFlash1.Play()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Button1.Text = "تشغيل"
Button2.Text = "ايقاف"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘جرب اى واحده من دول الاتنين شغالين وتمام
‘ AxShockwaveFlash1.StopPlay()
AxShockwaveFlash1.Stop()
End Sub
End Class