webBrowser Résolu/Fermé

Question

Bonjour,
j'ai un WebBrowser dans un userform qui fait defiler dutexte de droite à gauche
toute fois je veux inverser le défilement de gauche à droite le code est le suivant:

Private Sub UserForm_Initialize()
ParametresHtml "ãÌãæÚÉ ãÏÇÑÓ áÑÌÇã äíÇÈÉ ÇáÍæÒ", "#000099"
End Sub

'scrollAmount définit la vitesse de défilement.
Private Sub ParametresHtml(LeTexte As String, LaCouleur As String)
Me.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _
& LaCouleur & " size='5' face='Arial'>" & _
"<marquee scrollamount=6>" & LeTexte & "</marquee></font></body></html>"
End Sub

'---
merci à vous

sipherion · Answer

Bonjour,

Cela ne dépend pas du tout du code VBA, c'est en HTML qu'il faut rechercher.

10 sec de recherche Google me donnent un lien :

http://www2.csvt.qc.ca/patriotes/html/code_spec/xmpl_mrq.htm

L'exemple 6 semble illustrer ce que nous recherchons :

<MARQUEE DIRECTION="right" BGCOLOR="yellow">

Donc pour ton code :

'scrollAmount définit la vitesse de défilement.

Private Sub ParametresHtml(LeTexte As String, LaCouleur As String)

Me.WebBrowser1.Navigate _

"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _

& LaCouleur & " size='5' face='Arial'>" & _

"<marquee DIRECTION="right" scrollamount=6>" & LeTexte & "</marquee></font></body></html>"

End Sub

adohane · Answer

merci pour ta réponse j'ai ajouté le code pour la direction mais ça ne marche pas il marque "right" en bleu ,....
merci pour tout!

sipherion · Answer

Sans vouloir être méchant, un tout petit effort de réflexion t'aurait permit de trouver la solution...

"<marquee DIRECTION='right' scrollamount=6>" & LeTexte & "</marquee></font></body></html>"

Puisque le code HTML de cette balise est déjà entre double quote, tout paramètre ajouté en son sein doit être entre simple quote.

adohane · Answer

Merci sipherion ! c'est vraiment stupid de ma part 
problème résolue merci encore

WebBrowser

4 réponses

Discussions similaires