Flash dans VB

Résolu
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 17 mai 2008 à 22:16
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 19 mai 2008 à 04:39
Salut !

Jeux veux intégrer un jeu flash dans ma form mais je sais pas m'y prendre malgré le shockwaveflash. Pouvez vous m'indiquer svp ?
ps: le flash swf est dans le dossier de mon appli et non sur internet !

Merci à tous

----------
OS        : Windows XP SP2
Platforme : VB 6.0 + SP6

Ok VB6.0 c'est pas net !

1 réponse

Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015
19 mai 2008 à 04:39
Private Sub Form_Load()
LePath$ = App.Path
LeFichier$ = "MagicLibrary.swf"
If Right$(LePath$, 1) <> "" Then LePath$ = LePath$ + ""
If Dir$(LePath$ + LeFichier$) <> "" Then
ShockwaveFlash1.Movie = LePath$ + LeFichier$
ShockwaveFlash1.Play
Else
ShockwaveFlash1.Visible = fase
End If
End Sub
3
Rejoignez-nous