VBATools

CC2 – Animation

Animation to kontrolka ActiveX z zestawu biblioteki Common Controls 2 (plik mscomct2.ocx) dla kompilacji Office 32 bit.

Prezentowana kontrolka została utworzona głównie po to, aby przekazać postęp realizacji zadań co do których nie można określić końca. Czyli np kopiowanie, przenoszenie lub pobieranie plików. Kontrolką rysujemy zakres na jakim ma być przedstawiona animacja.

Obrazek

Minusem tej kontrolki jest to iż można dzięki niej przedstawić jedynie pliki o formacie AVI, a przy obecnej technologii jest to dość niewiele. Obsługa tej kontrolki jest dość łatwa. W ustawieniach (custom) posiada on małą garść ustawień. Istotnym jest Center, dzięki któremu na obszarze całego okna formy animacja zostanie wyśrodkowana.

Obrazek

W Windowsach pliki AVI dołączone do ekranów informacyjnych są spakowane w bibliotekę Shell32.dll. Można je wyekstrahować programem Nirsoft ResourcesExtract utility, choć sam producent w większości systemów AV uchodzi za niebezpiecznego. Poniższa tabela przedstawia przykłady tych animacji (pobrane z tej strony).

Kontrolka niestety nie jest kontenerem (jak ImageList) i pliki AVI muszą być przekazane z projektem, aby w kodzie odwołać się do jej lokalizacji. Weźmy zatem dla przykładu 1 plik np: “kopiowania plików z folderu do folderu” i wywołajmy go w procedurze inicjującej wyświetlenie formularza.

Private Sub UserForm_Initialize() 
Animation1.Open ("c:\temp\file_copy.avi") 'ścieżka do pliku 
Animation1.Play 'można też użyć parametru Autoplay 
End Sub 
 
Private Sub CommandButton1_Click() 
Animation1.Stop 
End Sub 
 
Private Sub CommandButton2_Click() 
Animation1.Play 
End Sub

Tak wygląda okno, które możemy wzbogacić o tekst, który będzie informował co jest kopiowane i jakie jest miejsce docelowe. Kontrolka Animation ma bardzo małą ilość parametrów. W pow kodzie użyłem polecenia zatrzymania (stop zachowuje się jak pauza) i ponownego uruchomienia animacji.

Obrazek

Oczywiście jest to przykład. Jeśli macie jakieś swoje animacje to z pewnością będzie to zaczątek do iż użycia w projektach VBA.

Mam nadzieje że artykuł wam się spodoba. Napiszcie do czego wy wykorzystujecie ten zestaw kontrolek np w grupie dyskusyjnej FB.


Jeśli uważasz że pokazane materiały są godne polecenia – podziel się tą wiadomością z innymi pozostawiając odnośnik to tego materiału.

(c) Shon Oskar – http://VBATools.pl
Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.