vb@rchiv · Tipps & Tricks · Scrollbars im WebBrowser-Control ausblenden

Rubrik: HTML/Internet/Netzwerk · WebBrowser | VB-Versionen: VB6

10.07.08

Scrollbars im WebBrowser-Control ausblenden Dieser Tipp erklärt, wie man bei dem WebBrowser-Control die Scrollbars generell ausblenden oder nur dann ausblenden kann, wenn sie nicht benötigt werden, sprich die Seite komplett in den Browser passt.
Autor: Robert	Bewertung:	Views: 17.167
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Problem:
Sie schreiben ein Programm, das das WebBrowser-Control enthält. Sei es, um einen eigenständigen Browser zu schreiben, Html-Dateien sichtbar zu machen oder einfach um ein paar Script-Schnipsel oder ein Applet in die eigene Anwendung einzufügen. Besonders in den beiden letzten Fällen ist das Html-Dokument meist ziemlich klein und kommt mit einem relativ kleinen WebBrowser-Fenster aus. Nach dem Laden des Html-Dokuments stellt man dann oft fest, dass der Scrollbar deaktiviert wurde und nun beträchtlich das Gesamtbild des Programms stört.

Die Lösung:
Es geht einfacher, als man vielleicht denkt. Wie so oft heißt die Devise: Gewusst wie!
Wir greifen also auf den Inhalt des WebBrowsers-Dokuments zu und sagen ihm, er soll doch bitte nur ScrollBars erzeugen, wenn es auch nötig ist:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  On Error Resume Next
  WebBrowser1.Document.body.Scroll = "auto"
  On Error Goto 0
End Sub

Kurze Erläuterung: Immer, wenn eine neue Seite besucht wird (ein neues Dokument wird heruntergeladen), wird erneut kontrolliert, ob die dargestellte Seite zu groß für die Maße des WebBrowsers-Fensters ist oder nicht und dementsprechend die ScrollBars ein- oder ausgeblendet.

Viel Spaß mit diesem kleinen aber doch feinen Tipp. Ich hoffe ich konnte dem ein oder anderen helfen.

Anmerkung:
Um die ScrollBars generell auszublenden (falls gewünscht oder notwendig), einfach folgenden Code verwenden:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  On Error Resume Next
  WebBrowser1.Document.body.Scroll = "no"
  On Error Goto 0
End Sub