Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Animation1.Open "c:\dateiname.avi"
Animation1.Play
Animation1.Stop
Dim running As Boolean
Private Sub Animation1_Click()
running = Not running
If running = True Then
Animation1.Play
Else
Animation1.Stop
End If
End Sub
Private Sub Form_Load()
running = False
Animation1.AutoPlay = False
Animation1.Open "c:\irgendwo\irgendwas.avi"
End Sub
Animation1.AutoPlay = False
Animation1.Open = "Dateiname.avi"
Animation1.Play