Slik integrerer du en sporbar i Visual Basic: 3 trinn

2024 Forfatter: John Day | [email protected]. Sist endret: 2024-01-30 11:26

OK, så dette høres enkelt ut, men nybegynnere har absolutt ingen anelse om hvordan du gjør dette. Trackbars kan være nyttige verktøy. Fra å bestemme et budsjett til å velge hvor mange fyrverkeri som skal detoneres, er det veldig enkelt å bruke styrelinjer.

MERK: Er det noen som vet hvordan man kan øke antall plasser på en sporbar? Jeg kan bare få 11 …

Trinn 1: Gjør skjemaet klart

Dette er ganske enkelt. Lag når du vil at programmet skal se ut. Jeg lager ikke noe spesielt. Jeg skal lage noe som endrer fargen på en tekstboks. == Ikke glem å legge til en sporbar !!! == ^{_{Ja, mange glemmer det}}

Trinn 2: Kode

Så du har gjort brukergrensesnittet ditt, hva nå? Kode selvfølgelig !! Dobbeltklikk på sporlinjen. 2 kodelinjer skal dukke opp. Noe som:

Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Håndterer TrackBar1. Scroll End SubNå lærer vi om verdier. På denne sporingslinjen kan vi bare få 11 verdier, 0-10. Verdi 0 er helt til venstre mens verdi 10 er helt til høyre. Forstod det? La oss gå videre.

For å gjøre livet lettere vil all tekst i dette trinnet fra nå av være kode-stil

Mellom de to kodelinjene skriver du inn: Hvis TrackBar1. Value = placceavaluenumberhere ThenEnd Ifreplacement placeeavaluenumberher with the value number of the place where you want it to be. Mellom de fire kodelinjene skriver du inn det du vil gjøre. I dette tilfellet: TextBox1. BackColor = Color. BlackOnce you & aposre done that repeat for each place. Da jeg var ferdig så det slik ut: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Verdi = 1 Deretter 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 Deretter 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

Trinn 3: Ferdig

Vel, det var jeg uansett. Hvis du ikke har fullført programmet, så fortsett. Og lykke til! Men for de som er ferdige, vel, det var ikke så vanskelig? Og hvis du lurte på, er koden for tilbakestilling og lukking:

Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click End End Sub Private Sub But11Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click TrackBar1. Value = 0 Slutt Sub