Insérer tu texte dans un webrowser

**yoyo77yo** · 27/11/2009, 14h42

Bonjour,

Je suis nouveau en VB :
J'ai créée un USERFORM contenant une textbox, un bouton de commande "OK" et un webrowser : Ce que je souhaite c'est que si j'inscris du texte dans ma textbox et que je clique sur OK, le texte s'ajoute dans le webrowser ! c'est pour faire du texte défilent

Voici une partie de mon texte vb mais qui est faut :

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
Public LeTexte As String, LaCouleur As String
Dim v As Long
Private Sub CommandButton2_Click()
    Unload UserForm2
End Sub
 
Private Sub cmdAdd_Click()
    WebBrowser1.AddItem txtName.Text 'ajoute à la liste.
    txtName.Text = "" 'Efface le contenu de la zone de texte
    v = 4: LaCouleur = "#OOFFFF": ParametresHtml
End Sub
 
 Sub ParametresHtml()
UserForm1.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#000000' scroll='no'><font color= " & LaCouleur & _
" size='2.9' face='arial'><body topmargin='0'>" & _
"<marquee scrollamount=" & v & ">" & LeTexte & "</marquee></font></body><center></html>"
End Sub