Käytä Exceliä ja VBA: ta edistymispalkin luomiseen.
Tietokonesovelluksessa käytetään edistymispalkkia osoittamaan toiminnon edistymistä. Se on yleensä suorakulmio, joka animoidaan toiminnon edetessä. Visual Basic for Applications tai VBA on tietokoneohjelmointikieli, jota käytetään Microsoft Office -sovelluksissa rutiinitehtävien automatisointiin ja käyttöliittymien luomiseen. Voit luoda edistymispalkin helposti käyttämällä VBA: ta Microsoft Office Excelissä. Excel on taulukkolaskentaohjelma, joka sisältyy Microsoft Office -ohjelmistoon.
Vaihe 1
Avaa Microsoft Office Excel ja paina sitten "Alt" ja "F11" avataksesi Visual Basic Editorin. Napsauta hiiren kakkospainikkeella "VBAProject" ja napsauta sitten "UserForm" lisätäksesi uuden lomakkeen. Napsauta "Työkalulaatikko"-valikosta "Label". Samalla kun pidät hiiren painiketta painettuna, vedä lomaketta luodaksesi uuden tarran ohjausobjektin.
Päivän video
Vaihe 2
Napsauta tarraa hiiren kakkospainikkeella ja valitse "Ominaisuudet" ja muuta sitten "Height" arvoksi 42 ja "Width" arvoksi 12. Muuta "Yläosa" arvoon 12. Luo yhdeksän muuta tarraa samalla prosessilla.
Vaihe 3
Napsauta "Työkalulaatikko"-ruudussa "CommandButton" ja lisää uusi painike lomakkeeseen. Napsauta hiiren kakkospainikkeella "CommandButtonia" ja napsauta "Näytä koodi" luodaksesi uuden menettelyn.
Vaihe 4
Kirjoita uusi muuttuja ja määritä sen arvo:
Dim cnt Kokonaislukuna cnt = 0
Vaihe 5
Kirjoita seuraava piilottaaksesi kaikki tarrat lomakkeen käynnistyessä:
Minä. Label1.Visible = False Me. Label2.Visible = False Me. Label3.Visible = False Me. Label4.Visible = False Me. Label5.Visible = False Minä. Label6.Visible = False Me. Label7.Visible = False Me. Label8.Visible = False Me. Label9.Visible = False Me. Label10.Visible = False
Vaihe 6
Kirjoita seuraava luodaksesi while-silmukan ja toista 10 kertaa samalla, kun keskeytät koodin 5 sekunniksi:
Do While cnt <> 10
Valitse Case cnt Case Is = 1 Me. Label1.Visible = True Me. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = True Me. 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. Minä. Maalaa sovellus uudelleen. Odota nyt + TimeValue("00:00:05")cnt = cnt + 1
Silmukka
Vaihe 7
Napsauta "Lisää" -valikkoa ja napsauta sitten "Moduuli" lisätäksesi uuden moduulin. Kopioi ja liitä alla oleva koodi aloittaaksesi "UserForm1".:
Sub showProgressBar() UserForm1.Show End Sub
Paina "F5" käynnistääksesi ohjelman.
