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.173 |
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