Edenemisriba loomiseks kasutage Excelit ja VBA-d.
Edenemisriba kasutatakse arvutirakenduses toimingu edenemise näitamiseks. Tavaliselt on see ristkülik, mis on toimingu edenedes animeeritud. Visual Basic for Applications ehk VBA on arvutiprogrammeerimiskeel, mida kasutatakse Microsoft Office'i rakendustes rutiinsete toimingute automatiseerimiseks ja kasutajaliideste loomiseks. Saate hõlpsasti luua edenemisriba, kasutades Microsoft Office Exceli VBA-d. Excel on Microsoft Office'i komplekti kuuluv arvutustabelirakendus.
Samm 1
Avage Microsoft Office Excel, seejärel vajutage Visual Basicu redaktori avamiseks "Alt" ja "F11". Paremklõpsake "VBAProject" ja seejärel klõpsake "UserForm", et sisestada uus vorm. Menüüs "Tööriistakast" klõpsake "Silt". Hiire nuppu all hoides lohistage uue sildi juhtelemendi loomiseks vormi.
Päeva video
2. samm
Paremklõpsake sildil ja valige "Properties", seejärel muutke "Height" väärtuseks 42 ja "Width" väärtuseks 12. Muutke "Ülemine" väärtuseks 12. Looge sama protsessi abil veel üheksa silti.
3. samm
Klõpsake paanil "Tööriistakast" nuppu "CommandButton" ja lisage oma vormile uus nupp. Uue protseduuri loomiseks paremklõpsake "CommandButton" ja klõpsake "Kuva kood".
4. samm
Uue muutuja loomiseks ja selle väärtuse määramiseks tippige järgmine:
Dim cnt täisarvuna cnt = 0
5. samm
Kõigi siltide peitmiseks vormi käivitamisel tippige järgmine:
Mina. Silt1.Nähtav = Vale mina. Silt2.Nähtav = Vale mina. Silt3.Nähtav = Vale mina. Silt4.Nähtav = Vale mina. Silt5.Nähtav = Vale Mina. Silt6.Nähtav = Vale mina. Silt7.Nähtav = Vale mina. Silt8.Nähtav = Vale mina. Silt9.Nähtav = Vale mina. Silt10.Nähtav = Vale
6. samm
Tippige alljärgnev, et luua while-tsükkel ja itereerida 10 korda, peatades koodi 5 sekundiks:
Tehke samal ajal cnt <> 10
Valige Case cnt Case Is = 1 Me. Silt1.Nähtav = True Me. Silt1.Tagavärv = vbBlue Case Is = 2 Me. Silt2.Nähtav = True Me. Silt2.BackColor = vbBlue Case Is = 3 Me. Silt3.Nähtav = True Me. Label3.BackColor = vbBlue Case Is = 4 Me. Silt4.Nähtav = True Me. Silt4.BackColor = vbBlue Case Is = 5 Me. Silt5.Nähtav = True Me. Silt5.BackColor = vbBlue Case Is = 6 Me. Silt6.Nähtav = True Me. Silt6.BackColor = vbBlue Case Is = 7 Me. Silt7.Nähtav = True Me. Silt7.BackColor = vbBlue Case Is = 8 Me. Silt8.Nähtav = True Me. Label8.BackColor = vbBlue Case Is = 9 Me. Silt9.Nähtav = True Me. Label9.BackColor = vbBlue Case Is = 10 Me. Silt10.Nähtav = True Me. Label10.BackColor = vbBlue End Select. Mina. Rakendus uuesti värvida. Oota kohe + TimeValue("00:00:05")cnt = cnt + 1
Loop
7. samm
Uue mooduli lisamiseks klõpsake menüül "Sisesta" ja seejärel "Moodul". "UserForm1" käivitamiseks kopeerige ja kleepige allolev kood:
Sub showProgressBar() UserForm1.Show End Sub
Programmi käivitamiseks vajutage "F5".
