Thomas Risi Softwareentwicklung

Das WebBrowser-Steuerelement

Wenn Sie den WebBrowser in Ihrer Anwendung (z.B. Excel-Arbeitsmappe, VBA-UserForm) nutzen wollen, habe ich hier einige nützliche Tipps ...

Für alle Beispiele wird angenommen, dass der Name des Controls WebBrowser1 lautet.

Eine Webseite aufrufen ...

WebBrowser1.Navigate "http://rtsoftwaredevelopment.de"

Eine HTML-Datei auf dem lokalen System aufrufen ...

WebBrowser1.Navigate "C:\Dokumente und Einstellungen\HTML\Beispiele\Beispiele 0016.htm"

Eine Grafik aus dem Internet anzeigen ...

WebBrowser1.Navigate "http://www.herber.de/images/new.gif"

Eine Grafik aus dem lokalen System anzeigen ...

WebBrowser1.Navigate "C:\Eigene Dateien\Eigene Bilder\Bild 3.jpg"

Rahmen um WebBrowser-Steuerelement entfernen ...

WebBrowser1.Document.body.style.border = "none"

Scrollbalken des WebBrowser-Steuerelement entfernen ...

WebBrowser1.Document.body.scroll = "auto" WebBrowser1.Document.body.scroll = "no"

Anzeige einer animierten Gif-Datei in einer VBA-UserForm ...

Option Explicit Const BG_COLOR_GREY& = &HC0C0C0 Const BG_COLOR_YELLOW& = &H80FFFF ' Grafik aus Internet laden. Private Sub UserForm_Activate() WebBrowser1.Navigate "http://www.herber.de/images/new.gif" End Sub Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) ' UserForm einfärben. Me.BackColor = BG_COLOR_YELLOW ' WebBrowser-Steuerelement einfärben. WebBrowser1.Document.bgColor = VBColor2HTML(BG_COLOR_YELLOW) ' Entfernen der Scrollbalken und des Bildrandes. WebBrowser1.Document.body.Scroll = "no" WebBrowser1.Document.body.Style.Border = "none" End Sub ' HILFSFUNKTIONEN Public Function VBColor2HTML(ByVal Color As Long) As String Dim r%, g%, b% r = Color And &HFF& g = Color \ &H100& And &HFF& b = Color \ &H10000 And &HFF& VBColor2HTML = RGB2HTML(r, g, b) End Function Public Function RGB2HTML( _ ByVal r As Integer, _ ByVal g As Integer, _ ByVal b As Integer) As String RGB2HTML = CHex(r, 2) + CHex(g, 2) + CHex(b, 2) End Function Private Function CHex(ByVal nValue As Long, _ Optional ByVal n As Integer = 0) As String Dim sHex As String sHex = Hex$(nValue) If n > 0 And Len(sHex) < n Then sHex = String(n - Len(sHex), "0") + sHex End If CHex = sHex End Function

Inhalt des Steuerelements ausdrucken (mit Dialog) ...

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER

Inhalt des Steuerelements ausdrucken (ohne Dialog) ...

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

Inhalt des Steuerelements ausdrucken (mit Druckvorschau; ab IE 5.0) ...

WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT



Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)