kamovb
Messages postés18Date d'inscriptionsamedi 11 février 2006StatutMembreDernière intervention17 septembre 2014
-
2 avril 2009 à 18:19
kamovb
Messages postés18Date d'inscriptionsamedi 11 février 2006StatutMembreDernière intervention17 septembre 2014
-
3 avril 2009 à 12:48
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention 7 novembre 201413 2 avril 2009 à 20:04
Pour que ça ressemble à quelque chose :
Private Sub Form_Load()
WebBrowser.Navigate "c:\test.gif"
End Sub
Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is WebBrowser.object Then
pDisp.Document.body.Scroll = "no"
pDisp.Document.body.Style.BorderStyle = "none"
pDisp.Document.body.Style.backgroundColor = "#C0C0C0"
End If
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention 7 novembre 201413 2 avril 2009 à 19:46
Salut,
Pour afficher un gif, si c'est la question, tu peux aller dans le menu "Projets"->"Composants"
Tu décoches la case "Elements sélectionnés".
Tu cherches et coche "Microsoft Internet Controls".
Tu met un WebBrowser sur ta Form. Puis tu utilises le code suivant pour lancer l'animation :