Private Sub AxShockwaveFlash1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxShockwaveFlash1.Enter AxShockwaveFlash1.Movie = Application.StartupPath & "\test1.swf" AxShockwaveFlash1.Visible = True AxShockwaveFlash1.Play() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question