Sådan integreres en trackbar i Visual Basic: 3 trin

2024 Forfatter: John Day | [email protected]. Sidst ændret: 2024-01-30 08:31

OK, så det lyder let, men begyndere har absolut ingen idé om, hvordan man gør dette. Trackbars kan være nyttige værktøjer. Fra at beslutte et budget til at vælge, hvor mange fyrværkeri der skal detoneres, er brug af trackbars meget let.

BEMÆRK: Er der nogen, der ved, hvordan man øger antallet af steder på en trackbar? Jeg kan kun få 11…

Trin 1: Gør din form klar

Det er ret let. Lav, når du vil have, at dit program skal se ud. Jeg laver ikke noget særligt. Jeg laver noget, der ændrer farven på en tekstboks. == Glem ikke at tilføje en trackbar !!! == ^{_{Ja, mange mennesker glemmer det}}

Trin 2: Kode

Så du har gjort din brugergrænseflade, hvad nu? Kode selvfølgelig !! Dobbeltklik på trackbar. 2 linjer kode skulle dukke op. Noget som:

Private Sub TrackBar1_Scroll (ByVal afsender som System. Object, ByVal e Som System. EventArgs) Håndterer TrackBar1. Scroll End SubNu lærer vi om værdier. På denne trackbar kan vi kun få 11 værdier, 0-10. Værdi 0 er meget venstre, mens værdi 10 er den meget højre. Forstået? Lad os gå videre.

For at gøre livet lettere bliver al tekst i dette trin fra nu af kode-stil

Ind imellem de to linjer med kode indtast: Hvis TrackBar1. Value = placceavaluenumberhere ThenEnd If erstatter placeavaluenumberhere med værdienummeret på det sted, hvor du vil have det. Indtast nu mellem de 4 linjer med kode, hvad du vil gøre. I dette tilfælde: TextBox1. BackColor = Color. BlackOnce you & aposre done that repeat for each place. Da jeg var færdig så det sådan ud: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Håndterer TrackBar1. Scroll If TrackBar1. Value = 0 Herefter TextBox1. BackColor = Color. Black End If If TrackBar1. Value = 1 Herefter TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Then TextBox1. BackColor = Color. Red End If If TrackBar1. Value = 3 Then TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Derefter TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Then TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Then TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Then TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Then TextBox1. BackColor = Color. Wite End If If TrackBar1. Value = 10 Then TextBox1. BackColor = Color. White End If End Sub

Trin 3: Udført

Nå, det var jeg alligevel. Hvis du ikke har afsluttet dit program, skal du fortsætte. Åh, og held og lykke! Men for dem, der er færdige, ja, det var ikke for svært, var det? Og hvis du undrede dig, er koden til nulstilling og lukning:

Private Sub Button2_Click (ByVal afsender som System. Object, ByVal e As System. EventArgs) Håndterer Button2. Click End End Sub Private Sub Button1_Click (ByVal afsender som System. Object, ByVal e Som System. EventArgs) Håndterer Button1. Click TrackBar1. Value = 0 Afslut Sub