Rubrik: Multimedia & Sound · Video | VB-Versionen: VB5, VB6 | 30.09.03 |
Animierte Videos Animierte Videos einsetzen wie beim FileCopy, FileDelete, FileSearch etc. | ||
Autor: ARTsoft | Bewertung: | Views: 18.402 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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!