Microsoft Office Excel |
|
|
Napravite špicu aplikacijeNivo:
Izrada uvodne špice aplikacije je dobra ilustracija tzv. Event procedura, moćnog sistema programiranja događaja u VBA Jedna od omiljenih stilskih vežbi mnogih autora programa su uvodne špice koje se pojavljuju prilikom otvaranja aplikacije, a same nestaju posle odreženog vremena. Evo predloga kako da napravite uvodnu špicu aplikacije u Excelu 97/2000. Otvorite Visual Basic Editor i dodajte novu formu u projekat (objekat UserForm). Nazovite formu, recimo, UvodnaSpica. Formu slobodno uredite: dodajte logotip kompanije, neku poruku, osnovne podatke o aplikaciji... Možete ukloniti naslovnu liniju forme dodeljujući prazan string svojstvu Caption. U kodni modul objekta ThisWorkbook unesite sledeći kod:
Private Sub Workbook_Open() U kodni modul objekta UvodnaSpica ubacite sledeći kod (neka vas ne buni ključna reč UserForm_Activate umesto UvodnaSpica_Activate!):
Private Sub UserForm_Activate() Preostaje još da obezbedite "normalni" VBA modul koji će zatvoriti špicu: Private Sub UkloniSpicu() Kao što vidite, postupak je vrlo prost: kratka analiza će dobro poslužiti onima koji uče VBA. Procedura Workbook_Open se po pravilu automatski startuje prilikom otvaranja radne sveske; ovde će ta procedura otvoriti formu. U trenutku otvaranja forme, izvršiće se pridružena procedura Activate, koja će aktivirati metodu događaja OnTime. Posle pet sekundi (ili nekog drugog vremena koje navedete) ova metoda će pozvati proceduru koja će zatvoriti formu. Nažalost, ovaj trik ne možete upotrebiti u prethodnim verzijama Excela: forme su tamo implementirane u vidu dijaloga, a njihova programibilnost je rudimentarna u odnosu na VBA forme. Ako budete ispitivali mnogobrojne primere automatizacije u VBA, često ćete prepoznati konstrukcije programiranja poput ove - možda nešto složenije, ali sa vrlo sličnom idejom ulančavanja objekata i događaja. Preporučujem da savladate metode događaja (tzv. OnEvent procedure) i da ih pridružujete automatskim procedurama ili objektima aplikacije - mogućnosti su mnogobrojne.
|
|
Vrh stranice Prethodna stranica Naslovna strana Mapa sajta Pretraga |
| AFORIZAM ZA DANAS | OVIH DANA SLUŠAMO... |
| Copyright © Praktikum na Webu, 2000-2009; Valinor Design; sva prava pridržana. |