Thema: Animierte Grafik anzeigen

Home

In einem WebBrowser-ActiveX einer UserForm wird eine animierte Grafik angezeigt. Es muss eine Internetverbindung bestehen.

Prozedur: UserForm_Activate
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Animierte Grafik anzeigen
Ablaufbeschreibung:
- Variablendeklaration
- Webadresse in String-Variablen einlesen
- Webbrowser-Steuerelement navigieren
- UserForm-Aufschrift festlegen

Code:


Private Sub UserForm_Activate()
   Dim sPath As String, sFile As String
   sPath = "https://www.herber.de/images/"
   sFile = "cd.gif"
   WebBrowser1.Navigate sPath & sFile
   Me.Caption = sFile
End Sub