position gif dans webbrowser

21/10/2005, 21h47

bonjour
j'ai inséré un gif animé dans un webbrowser.le problème est que je ne vois pas tout le gif.j'aimerai en gardant la taille du webbrowser pouvoir positionner le gif où je veux par exemple en haut à gauche
afin de voir tout le gif existe-t-il des coordonnées pour le gif
comment faire?
merci

MichelXld · 22/10/2005, 06h15

bonjour

tu peux tester cette macro pour adapter l'image GIF à la taille du WebBrowser

Code:

Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long

Largeur = WebBrowser1.Width * 96 / 72
Hauteur = WebBrowser1.Height * 96 / 72
S = 'C:\\Documents and Settings\\michel\\dossier\\fourmiz.GIF'

WebBrowser1.Navigate _
'about:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=' & _
Largeur & ' HEIGHT=' & Hauteur & _
' SRC='' & S & ''</IMG></BODY></CENTER></HTML>'
End Sub

bonne journée
MichelXld

Message édité par: michelxld, à: 06/11/2005 22:19

21/10/2005, 21h47	#1 (permalink)
dacyrix Guest Messages: n/a	position gif dans webbrowser bonjour j'ai inséré un gif animé dans un webbrowser.le problème est que je ne vois pas tout le gif.j'aimerai en gardant la taille du webbrowser pouvoir positionner le gif où je veux par exemple en haut à gauche afin de voir tout le gif existe-t-il des coordonnées pour le gif comment faire? merci

22/10/2005, 06h15	#2 (permalink)
MichelXld XLDnaute Barbatruc Date d'inscription: février 2005 Messages: 3 701	Re:position gif dans webbrowser bonjour tu peux tester cette macro pour adapter l'image GIF à la taille du WebBrowser Code: Private Sub UserForm_Initialize() Dim S As String Dim Hauteur As Long, Largeur As Long Largeur = WebBrowser1.Width * 96 / 72 Hauteur = WebBrowser1.Height * 96 / 72 S = 'C:\\Documents and Settings\\michel\\dossier\\fourmiz.GIF' WebBrowser1.Navigate _ 'about:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=' & _ Largeur & ' HEIGHT=' & Hauteur & _ ' SRC='' & S & ''</IMG></BODY></CENTER></HTML>' End Sub bonne journée MichelXld Message édité par: michelxld, à: 06/11/2005 22:19

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email