Tipp 0480 Laufschrift im Webbrowser-Control
Autor/Einsender:
Datum:
  Max Kaffl
02.01.2006
Entwicklungsumgebung:   Excel 2000
Eine Laufschrift ist eine nützliche Möglichkeit, um die Aufmerksamkeit des Anwenders auf bestimmte Inhalte zu lenken. Um einen solchen Newsticker beispielsweise für aktuelle Neuigkeiten zu realisieren, wird der HTML-Marquee-Tag verwendet, der allerdings nur vom Webbrowser-Control interpretiert werden kann. Dieser Tag bietet noch eine ganze Reihe an interessanten Möglichkeiten, wie z. B. Laufschrift entgegen der Leserichtung usw. Siehe dazu Lauftext - Marquee (Microsoft).
 
Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal _
      dwMilliseconds As Long)

Private blnLoad As Boolean

Private Sub UserForm_Activate()
  WebBrowser1.Navigate2 "about:blank"
  Do While blnLoad
    DoEvents
    Sleep 10
  Loop
  WebBrowser1.Document.body.innerHTML = _
      "<marquee>Das ist der Text der durchlaufen soll</marquee>"
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
    URL As Variant, Flags As Variant, TargetFrameName As Variant, _
    PostData As Variant, Headers As Variant, Cancel As Boolean)

  blnLoad = True
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
    URL As Variant)
  blnLoad = False
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, _
    URL As Variant)
  With WebBrowser1.Document.body
    .Scroll = "no"
    .Style.Border = "none"
  End With
End Sub
 
Weitere Links zum Thema
Laufschrift in der Titelleiste einer UserForm
Hinweis
Um diesen Tipp ausführen zu können, muss der Internet Explorer ab Version 4 installiert sein.
Die im Download befindliche *.frm-Datei kann in den unten angegebenen Anwendungen im VB-Editor importiert werden.

Windows-Version
95
98
ME
NT
2000
XP
Vista
Win 7
Anwendung/VBA-Version
Access 97
Access 2000
Access XP
Access 2003
Access 2007
Access 2010
Excel 97
Excel 2000
Excel XP
Excel 2003
Excel 2007
Excel 2010
Word 97
Word 2000
Word XP
Word 2003
Word 2007
Word 2010
PPT 97
PPT 2000
PPT XP
PPT 2003
PPT 2007
PPT 2010
Outlook 97
Outlook 2000
Outlook XP
Outlook 2003
Outlook 2007
Outlook 2010


Download  (15,4 kB) Downloads bisher: [ 980 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 29. August 2011