Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Linija napredovanja (Progress Bar)

Nivo:
NIVO 1 - Prilozi namenjeni svakom korisniku, pa i početniku. Među ovim prilozima se nalaze i oni "obavezni", tj. preporuke koje bi svako trebalo da prihvati u redovnom radu.

Psihologija tvrdi da nepomičan ekran pri čekanju dužem od nekoliko sekundi izaziva nervozu... Evo jedne proste tehnike kojom ćete sprečiti nervozu svojih korisnika.

Ako se obezbedi informacija o toku izvršenja operacije, korisniku će čekanje manje smetati, čak i ako se dobijanje takve informacije plati dodatnim vremenom. Najlakši način implementacije takve informacije je pomoću sistemske funkcije SysCmd(). Da bi smo došli do linije napredovanja koja će se pojaviti u statusnoj liniji aktivnog prozora, scenario je lak: u operaciju čije izvršenje želimo da pratimo dodaćemo određeni kod u samo nekoliko redova.

Najpre treba definisati promenljivu Stanje tipa Variant. Potom inicijalizujemo liniju pozivom funkcije SysCmd() čiji argumenti su tekst za statusnu liniju i vrednost koja određuje budući broj petlji - recimo, može se učitati svojstvo rs.RecordCount da bi se otkrila veličina tabele. Unutar izvršne petlje modula ćemo osvežiti liniju tako što će funkciji biti prosleđena trenutna vrednost brojača petlje. Konačno, nakon izlaska iz petlje pozivamo funkciju koja će ukloniti liniju - i to je sve.

U priloženom primeru koji sadrži prostu petlju radi ilustracije, možete videti kako izgleda tačna sintaksa poziva sistemske funkcije.

' ovaj kod treba ubaciti
' u neki modul događaja

Dim Stanje as Variant
Dim X As Long

' inicijalizacija
Stanje = _
    SysCmd(acSysCmdInitMeter, "Molim, sačekajte...", 500000)

For X = 1 To 500000
    ' osvežavanje; 
    ' ova petlja treba da se upari 
    ' sa radnim delom
    Stanje = SysCmd(acSysCmdUpdateMeter, X)
Next X

' uklanjanje
Stanje = SysCmd(acSysCmdRemoveMeter)
Beep
MsgBox "Gotovo!", _
    vbOKOnly + vbInformation, "Test linije napredovanja"
...