Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Hello,
Tu peux utiliser le contrôle webbrowser de microsoft (Microsoft Internet Controls).
Pour écrire l'html, voici une méthode possible: Private Sub Form_Load() WriteHTML "<strong>Hello</strong> World" End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.Document.write WebBrowser1.Tag WebBrowser1.Tag = "" End Sub
Private Sub WriteHTML(HTML As String) WebBrowser1.Tag = HTML WebBrowser1.Navigate2 "about:blank" End Sub
-- François Picalausa
"Patrick Fredin" a écrit dans le message de news:
Bonjour,
Existe-t-il un contrôle qui permette d'afficher du HTML ?
Comme paramètre on lui passe le texte en HTML et lui l'affiche.
Merci beaucoup pour votre aide précieuse.
Hello,
Tu peux utiliser le contrôle webbrowser de microsoft (Microsoft Internet
Controls).
Pour écrire l'html, voici une méthode possible:
Private Sub Form_Load()
WriteHTML "<strong>Hello</strong> World"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As
Variant)
WebBrowser1.Document.write WebBrowser1.Tag
WebBrowser1.Tag = ""
End Sub
Private Sub WriteHTML(HTML As String)
WebBrowser1.Tag = HTML
WebBrowser1.Navigate2 "about:blank"
End Sub
--
François Picalausa
"Patrick Fredin" <nospams_patrick.fredin@iquebec.com> a écrit dans le
message de news: OlEcLeW2EHA.2624@TK2MSFTNGP11.phx.gbl
Bonjour,
Existe-t-il un contrôle qui permette d'afficher du HTML ?
Comme paramètre on lui passe le texte en HTML et lui l'affiche.
Tu peux utiliser le contrôle webbrowser de microsoft (Microsoft Internet Controls).
Pour écrire l'html, voici une méthode possible: Private Sub Form_Load() WriteHTML "<strong>Hello</strong> World" End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.Document.write WebBrowser1.Tag WebBrowser1.Tag = "" End Sub
Private Sub WriteHTML(HTML As String) WebBrowser1.Tag = HTML WebBrowser1.Navigate2 "about:blank" End Sub
-- François Picalausa
"Patrick Fredin" a écrit dans le message de news:
Bonjour,
Existe-t-il un contrôle qui permette d'afficher du HTML ?
Comme paramètre on lui passe le texte en HTML et lui l'affiche.