Hur man integrerar en spårfält i Visual Basic: 3 steg

2025 Författare: John Day | [email protected]. Senast ändrad: 2025-01-23 15:11

OK, så det låter enkelt men nybörjare har absolut ingen aning om hur man gör detta. Spårfält kan vara användbara verktyg. Från att bestämma en budget till att välja hur många fyrverkerier som ska detoneras, det är väldigt enkelt att använda styrskenor.

OBS: Vet någon hur man kan öka antalet platser på ett spår? Jag kan bara få 11 …

Steg 1: Gör ditt formulär klart

Det här är ganska enkelt. Gör när du vill att ditt program ska se ut. Jag gör inget särskilt. Jag ska göra något som ändrar färgen på en textruta. == Glöm inte att lägga till ett spårfält !!! == ^{_{Ja, många glömmer det}}

Steg 2: Kod

Så du har gjort ditt användargränssnitt, vad händer nu? Kod såklart !! Dubbelklicka på spårfältet. 2 rader kod bör dyka upp. Något liknande:

Private Sub TrackBar1_Scroll (ByVal -avsändare som System. Object, ByVal e As System. EventArgs) Hanterar TrackBar1. Scroll End SubNu lär vi oss om värderingar. På den här spårfältet kan vi bara få 11 värden, 0-10. Värdet 0 är mycket vänster medan värdet 10 är det högra. Förstod det? Låt oss gå vidare.

För att göra livet enklare kommer all text i detta steg från och med nu att vara kodstil

Mellan de två kodraderna skriver du in: If TrackBar1. Value = placceavaluenumberhere ThenEnd Ifreplacement placeeavaluenumber here with the value number of the place where you want it to be. Mellan de fyra kodraderna skriver du vad du vill göra. I det här fallet: TextBox1. BackColor = Color. BlackOnce you & aposre done that repeat for each place. När jag var klar såg det ut så här: Privat Sub TrackBar1_Scroll (ByVal -avsändare som System. Object, ByVal e Som System. EventArgs) Hanterar TrackBar1. Scroll If TrackBar1. Value = 0 Sedan TextBox1. BackColor = Color. Black End If If TrackBar1. Value = 1 Sedan TextBox1. BackColor = Color. Wite 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 Sedan TextBox1. BackColor = Color. Gult slut om If TrackBar1. Value = 5 Sedan TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Sedan TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Sedan 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. Wite End If End Sub

Steg 3: Klar

Det var jag i alla fall. Om du inte har avslutat ditt program, fortsätt. Åh, och lycka till! Men för dem som är klara, det var väl inte så svårt? Och om du undrar är koden för återställningen och stängningen:

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 Avsluta sub