Animierte Videos Animierte Videos einsetzen wie beim FileCopy, FileDelete, FileSearch etc.
Autor:   ARTsoft	Bewertung:     [ Jetzt bewerten ]	Views:  18.816
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 24 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie kennen bestimmt alle die kleinen animierten Videos, die z. B. beim FileCopy, FileDelete, FileSearch etc. angezeigt werden. Diese laufen im Loop und können, was deren Hintergrund angeht, transparent sein. Durch den Einsatz des sog. "Animation"-Objekts können diese bequem auf jeder Form angezeigt werden.

Einfach die Microsoft Windows Common Controls-2 6.0 (SP4) als Komponente laden und das Animationsobjekt auf die Form ziehen. Der nachfolgende Sourcecode verrät mehr über den Einsatz der jeweiligen Funktionen des Objekts.

Private Sub Form_Load()
  With Animation1
    ' Animation laden
    .Open App.Path & "\FileCopy.avi"
 
    ' Animation laden
    .Play
  End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
  ' Animation stoppen
  Animation1.Stop
End Sub

Die Hintergrundfarbe des Animation-Controls lässt sich individuell anpassen:

Animation1.BackColor = vbWhite

Hinweis:
Nach dem Setzen der Hintergrundfarbe muss das AVI-File erneut geladen werden, sofern dies bereits geschehen ist!