![]() |
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
|
|
|
|
|
|
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: [ 1064 ]
|
|
|