Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum bonjour


J'ai mis dans mon UserForm deux objets WebBrowsers.

Je souhaiterai svp cacher les scrollbars qui apparaisse a droite et en bas de mes deux images Gig animées WebBrowser 1 et 2

J'ai essayer avec la propriété mais je ni arrive pas, malgré mes recherches sur le site et sur le net, je pense donc qu'il faut du code ???

Les images s'affiche bien et l'animation fonctionne également sauf que sans les scrollbars ça serait plus sympa.

Si vous pouvez svp m'indiquez comment coder pour parvenir a mes fins.

Merci de temps et de votre aide, bonne après midi a vous

Cordialement Raymond

Ci-joint le code qui me permets de faire afficher et animé mes deux images

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "E:\Gif\Century.Gif"
WebBrowser2.Navigate "E:\Gif\Caméra.Gif"
End Sub

j'ai ajouter dans "Référence"
(1) Microsoft HTML Objet Library
(2) Microsoft Internet Controls

mes deux WebBrowser 1 / 2 ont pour dimensions

Height 120
Width 82

la première image 181x168 4 Ko
la deuxième image 150x112 29 Ko

[Daniel.C]

Bonjour,

J'ai fait un petit tour sur internet. Il semble que ce ne soit pas possible. J'espère me tromper.

[eliot.raymond]

Salut Daniel.C

Merci de ta réponse, c'est sympa

Si cela n'ai donc pas possible, comment puis-je éventuellement contourner le problème pour afficher deux petites photos Gif dans mon UserForm

Bonne après midi

Cdlt Ray

[kiki29]

Salut, commencer par voir ceci ?

[eliot.raymond]

Salut Daniel.C, Kiki29

C'est bon j'ai trouvé, je dois dire par le pur des hazards sur le net

je poste si ça peux servir, en tout cas chez moi ça marche
me reste juste a redimmentionner les images pour qu'elles s'affichent complètement dans les WebBrowsers

l'animation fonctionne également sans ralentissement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
'Application.ScreenUpdating = False
'Me.WebBrowser1.Document.body.Style.Border = "none"
Me.WebBrowser1.Document.body.Scroll = "no"
 
'Me.WebBrowser2.Document.body.Style.Border = "none"
Me.WebBrowser2.Document.body.Scroll = "no"
 
'Application.ScreenUpdating = True
End Sub
 
'*** USERFORM INITIALIZE
Private Sub UserForm_Initialize()
 
Me.WebBrowser1.Navigate "E:\Gif\Century.Gif"
Me.WebBrowser2.Navigate "E:\Gif\Caméra.Gif"
 
End Sub

KiKI29 merci de ta réponse je regarde le lien

Bonne après midi a vous et encore merci de votre aide

Cordialement Raymond