Thema: Laufschrift anzeigen

Home

In einem WebBrowser-ActiveX einer UserForm wird eine Laufschrift angezeigt.

Prozedur: cmdText_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Laufschrift anzeigen
Ablaufbeschreibung:
- Variablendeklaration
- Webbrowser-Steuerelement navigieren
- Navigate-Eigenschaft zurücksetzen
- Zielpfad für die HTML-Datei festlegen
- Unterprogramm zur Erstellung der HTML-Datei aufrufen
- Zur HTML-Datei navigieren

Code:


Private Sub cmdText_Click()
   Dim sPath As String
   WebBrowser1.Navigate ""
   sPath = Application.DefaultFilePath & "\marquee.htm"
   Call CreateHTML(sPath)
   WebBrowser1.Navigate sPath
End Sub