Espace membre :
flechePublicité

8 messages
Filtrer ok

[VB.net] Insérer une animation FLASH

salut tt le monde

j'ai créé une animation flash, et je veux l'insérer dans mon application.

j'ai utilisé le controle shockwave flash object mais je ne sais plus koi faire après.

en fait, mon application n'est pas une application web
 
 
Hello

Va voir du coté de l'activeX AxShockwaveFlashObjects.

Code :
Dim flashanimation As AxShockwaveFlashObjects.AxShockwaveFlash
flashanimation = New AxShockwaveFlashObjects.AxShockwaveFlash
flashanimation.LoadMovie(1, "c:\\monanimation.swf")
flashanimation.Play()
 
 
j'ai nommé le controle que j'ai mis dans la forme : flashanimation .

j'ai mis le code ke tu m'as suggéré mais j me blok à ce niveau :
flashanimation.LoadMovie(1, ".\anim.swf"

j'ai mis ".\anim.swf" car l'animation se trouve dans le meme répertoire que l'application. mais je suis pas sûre de la syntaxe.
 
 
Code :
flashanimation.LoadMovie(0, System.Environment.CurrentDirectory()+"\anim.swf")

CurrentDirectory renvoie le repertoire courant.
Pour le loadMovie, je pense qu'il faut mettre 0.

J'ai vérifié et ça aussi fonctionne:
Code :
flashanimation.Movie=System.Environment.CurrentDirectory()+"\anim.swf"
flashanimation.Play()


-> Pour le répertoire fais attention, le System.Environment.CurrentDirectory() renvoie le repertoire de l'application. Place bien ton swf au bon endroit. (pas dans debug ni release)

->Pour tester essaie de mettre ton anim.swf sur le c:\:
flashanimation.Movie="c:\anim.swf"
 
 
ça fonctionne lorsque je mets l'animation dans c:\ , mais dans le même répertoire, non.

 
 
fais un
Code :
messagebox.show(System.Environment.CurrentDirectory())
et tu comprendras surement.
 
 
Salut , s'il vous plait aidez moi car la j'en ai mare j'ai un probléme de conexion entre Vb.net et flach je ne sais pas pourquoi il s'affiche un message d'erreur au niveau de fla.Movie = "c:\pl.swf" l'or de l'exectution du programme voila le code :

Public Class Form1


Private Sub AxShockwaveFlash1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fla.Enter

Dim fla As AxShockwaveFlashObjects.AxShockwaveFlash
fla = New AxShockwaveFlashObjects.AxShockwaveFlash
fla.Movie = "c:\pl.swf"
fla.Play()
End Sub
End Class

Aidez moi plzzzzzzzzzz :??:

Voila le message :

Une exception de type 'System.Windows.Forms.AxHost+InvalidActiveXStateException' a été levée.

 
 
salut, vous pouvez utiliser ce code là, il est fonctionnel chez moi, et j'espére qui vous aide pour raisoudre ton probléme :

Private Sub Acceuil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Flash_Anim.Movie = System.Environment.CurrentDirectory & "\le nom du flash.swf"
Flash_Anim.Play()

End Sub

Flash_Anim= c'est le nom du "AxShockwaveFlash1" et pour vous c'est fla.
et pour le fichier flash, tu doit le mettre en bin\debug de votre application. bonne chanse.
 
 
     
8 messages
Filtrer ok
Vous devez être connecté pour écrire un message !

BE GEEK ! Avec

Glossaire High-Tech : #   A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z