Ako používať ActiveX Bar Progress v programe Access 2003 pomocou jazyka Visual Basic

Vedieť , ako používať ovládací prvok ActiveX progressbar v aplikácii Microsoft Office Access môžete vytvoriť vaše aplikácie viac užívateľsky prívetivé tým , že je schopný preukázať , že užívateľ priebeh konkrétnej úlohy . Access je relačný databázový systém ponúkaný v balíku Microsoft Office . Microsoft Visual Basic for Applications ( VBA ) je programovací jazyk používaný v programe Access k automatizáciu rutinných úloh . Našťastie , VBA možno použiť na vytvorenie ovládacieho prvku ActiveX progressbar a definovať jeho vlastnosti . Veci , ktoré budete potrebovať v Microsoft Access 2003
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Access 2003 . Vytvoriť novú databázu voľbou " Nová databáza " a vyberte " Vytvoriť " . Kliknite na záložku " Formuláre " a vyberte položku " New " pre vytvorenie nového formulára .
2

Kliknite na menu " Vložiť " , a potom kliknite na " Ovládací prvok ActiveX . " Double - kliknite na " Microsoft progressbar Control " pridať ovládací prvok . Pridanie tlačidla príkazu výberom z menu " Nástroje " . Kliknite ľavým tlačidlom myši na formulár a ťahaním myši pri držaní tlačidla myši . Pridanie popisu k formuláru rovnakou technikou . Kliknite pravým tlačidlom myši na nové príkazové tlačidlo , a vyberte " Vytvoriť udalosť " . Vyberte " Tvorca kódu " z " Vyberte Builder " v dialógovom okne . Kliknite na tlačidlo " OK " .
3

Skopírujte a vložte nasledujúci do okna " Modul " vnútri tlačidla postupu príkazového deklarovať premenné , ktoré budete používať :

Dim prg ako progressbar

Dim IntValue As Long Dim

fmin As String Dim

fmax As String Dim

fstep As String Dim

strComplete as String
Stránka 4

zadajte nasledujúce nastavenia min , max a krok pre vašu kontrolu pokroku bar :

fmin = 1

fmax = 20

fstep = 2
5

Zadajte nasledujúce definovať " PRG " premenné ako kontrola pokroku bar :

Set prg = Me ProgressBar0.Object
praha 6

zadajte nasledujúce slučky z min hodnoty do maximálnej hodnoty pri aktualizácii ovládací panel pokroku :

do

IntValue = IntValue + fstep klipart

Ak IntValue > = prg.Max Potom

IntValue = prg.Max

End If

prg.Value = IntValue

strComplete = Format ( ( prg.Value /prg.Max ) * 100 , " # # " ) & _

" % Complete "

Label1.Caption = strComplete

DoCmd.RepaintObject

Loop Kým IntValue < prg.Max
7

pravým tlačidlom myši na formulár a potom kliknite na tlačidlo " Zobraziť formulár . " Kliknite na tlačidlo " Button1 " , ktorý sa bude spúšťať procedúry kód pre vyplnenie ovládacieho prvku ActiveX progressbar .

• Predchádzajúca strana: Ako používať VB komunikovať so sériovými portami 
• Ďalšia strana: ANSI kódovanie v C #