IO.File.WriteAllBytes("flash.swf", My.ressources.Flash)
AxShockwaveFlash1.LoadMovie(0, "flash.swf") AxShockwaveFlash1.Play()
Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load ShockwaveFlash1.Movie = Application.StartupPath & "\flash.swf" ShockwaveFlash1.Play ShockwaveFlash1.loop = false End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question