Sinsitrus
Messages postés849Date d'inscriptionsamedi 11 juin 2005StatutMembreDernière intervention21 août 2015
-
17 mai 2008 à 22:16
Sinsitrus
Messages postés849Date d'inscriptionsamedi 11 juin 2005StatutMembreDernière intervention21 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
Sinsitrus
Messages postés849Date d'inscriptionsamedi 11 juin 2005StatutMembreDernière intervention21 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