Norėdami sukurti eigos juostą, naudokite Excel ir VBA.
Kompiuterio programoje naudojama eigos juosta, rodanti operacijos eigą. Paprastai tai yra stačiakampis, kuris animuojamas, kai operacija vyksta. „Visual Basic for Applications“ arba VBA yra kompiuterio programavimo kalba, naudojama „Microsoft Office“ programose, siekiant automatizuoti įprastas užduotis ir kurti vartotojo sąsajas. Galite lengvai sukurti eigos juostą naudodami VBA programoje Microsoft Office Excel. „Excel“ yra skaičiuoklių programa, įtraukta į „Microsoft Office“ rinkinį.
1 žingsnis
Atidarykite „Microsoft Office Excel“, tada paspauskite „Alt“ ir „F11“, kad atidarytumėte „Visual Basic“ rengyklę. Dešiniuoju pelės mygtuku spustelėkite „VBAProject“, tada spustelėkite „UserForm“, kad įterptumėte naują formą. Meniu „Įrankių dėžė“ spustelėkite „Etiketė“. Laikydami pelės mygtuką, vilkite formą, kad sukurtumėte naują etiketės valdiklį.
Dienos vaizdo įrašas
2 žingsnis
Dešiniuoju pelės mygtuku spustelėkite etiketę ir pasirinkite „Ypatybės“, tada pakeiskite „Aukštis“ į 42 ir „Plotis“ į 12. Pakeiskite „Viršus“ į 12. Sukurkite dar devynias etiketes naudodami tą patį procesą.
3 veiksmas
Srityje „Įrankių dėžė“ spustelėkite „CommandButton“ ir pridėkite naują mygtuką prie savo formos. Dešiniuoju pelės mygtuku spustelėkite „CommandButton“ ir spustelėkite „View Code“, kad sukurtumėte naują procedūrą.
4 veiksmas
Norėdami sukurti naują kintamąjį ir apibrėžti jo reikšmę, įveskite:
Dim cnt kaip sveikasis skaičius cnt = 0
5 veiksmas
Norėdami paslėpti visas etiketes, kai paleidžiama forma, įveskite:
Aš. Label1.Visible = netikras aš. Label2.Visible = netikras aš. Label3.Visible = netikras aš. Label4.Visible = netikras aš. Label5.Visible = klaidinga Aš. Label6.Visible = netikras aš. Label7.Visible = netikras aš. Label8.Visible = netikras aš. Label9.Visible = netikras aš. Label10.Visible = klaidinga
6 veiksmas
Įveskite toliau pateiktą informaciją, kad sukurtumėte ciklą, ir kartokite 10 kartų, pristabdydami kodą 5 sekundėms:
Daryti Nors cnt <> 10
Pasirinkite Case cnt Case Is = 1 Me. Label1.Visible = True Me. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = Tikrasis aš. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = True Me. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = True Me. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = True Me. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = True Me. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = True Me. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = True Me. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = True Me. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = True Me. Label10.BackColor = vbBlue End Select. Aš. Perdažyti programą. Palaukite dabar + TimeValue ("00:00:05")cnt = cnt + 1
Kilpa
7 veiksmas
Spustelėkite meniu „Įterpti“, tada spustelėkite „Modulis“, kad pridėtumėte naują modulį. Nukopijuokite ir įklijuokite toliau esantį kodą, kad paleistumėte „UserForm1“.
Sub showProgressBar() UserForm1.Show End Sub
Paspauskite „F5“, kad paleistumėte programą.
