Tilføjelse af en gentaget statuslinje i Microsoft Visual Basic ( VB) kan gøre din ansøgning mere brugervenligt , og det kommunikerer til brugeren om, at ansøgningen er arbejder i baggrunden . En statuslinje kontrol visuelt viser forløbet af en langvarig operation ved at vise en kontinuerlig bar, der fylder ind fra venstre til højre. Du kan løbende vise samme statuslinje gentage sig ved hjælp af en " While ... Loop ", og ændre værdien af statuslinjen . Ting du skal
Microsoft Visual Studio
Vis Flere Instruktioner
1
Launch Microsoft Visual Studio , klik på " Nyt projekt " fra venstre rude på din computerskærm , og expand " Visual Basic " under " Installerede skabeloner ". Klik på " Windows" og dobbeltklik på "Windows Forms Application " fra midten af dialogvinduet for at oprette et nyt projekt.
2
Dobbeltklik på " ProgressBar " fra " Toolbox" ruden for at tilføje en ny statuslinje kontrol. Dobbeltklik på " Button " for at tilføje en ny knap til formularen . Tilføj en anden knap .
3
Dobbeltklik på " Button1 " for at oprette en ny knap klik begivenheden . Føj følgende kode til at oprette en løkke til at gentage statuslinjen indtil brugeren klikker på den anden knap : Hej
Dim xCntr As Integer
xCntr = 1
userWantsToStop = False < br >
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = 1000
Do While ( userWantsToStop = False )
Me.ProgressBar1.Value = xCntr
Application.DoEvents ()
System.Threading.Thread.Sleep (1)
p Hvis ( xCntr = 1000) Så
xCntr = 1
End If
xCntr = xCntr + 1
Loop
4
Skift tilbage til Form Design visning og dobbeltklik på " button2 " til skabe et klik begivenhed for denne knap. Føj følgende kode til at nulstille statuslinjen og stoppe mens løkken i forrige trin : Hej
userWantsToStop = Sand
Me.ProgressBar1.Value = 0
5 < p > Tryk på " F5 " for at køre programmet, og klik på " Button1 " for at starte gentage statuslinjen . Klik på " button2 " for at stoppe det.