Ako integrovať lištu do jazyka Visual Basic: 3 kroky

2024 Autor: John Day | [email protected]. Naposledy zmenené: 2024-01-30 12:01

Dobre, znie to ľahko, ale začiatočníci majú úplnú predstavu, ako to urobiť. Užitočné nástroje môžu byť lišty. Od rozhodovania o rozpočte po výber počtu odpálených ohňostrojov je používanie lišt veľmi jednoduché.

POZNÁMKA: Viete niekto, ako zvýšiť počet miest na lište? Môžem dostať iba 11…

Krok 1: Pripravte si formulár

To je celkom jednoduché. Vytvorte, keď chcete, aby váš program vyzeral. Nerobím nič konkrétne. Budem vyrábať niečo, čo zmení farbu textového poľa. == Nezabudnite pridať trackbar !!! == ^{_{Áno, veľa ľudí na to zabúda}}

Krok 2: Kód

Používateľské rozhranie ste urobili, čo teraz? Kód samozrejme !! Dvakrát kliknite na lištu. Mali by vyskočiť 2 riadky kódu. Niečo ako:

Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TrackBar1. Scroll End SubTeraz sa učíme o hodnotách. Na tomto lište môžeme získať iba 11 hodnôt, 0-10. Hodnota 0 je úplne vľavo, zatiaľ čo hodnota 10 je úplne vpravo. Mám to? Poďme ďalej.

Aby bol život v tomto kroku odteraz jednoduchší, bude mať štýl kódu

Medzi dva riadky kódu zadajte: If TrackBar1. Value = placceavaluenumberhere ThenEnd Ifreplacing placeavaluenumberhere with the value number of the place where you want it be. Teraz medzi tieto 4 riadky kódu zadajte, čo chcete urobiť. V tomto prípade: TextBox1. BackColor = Color. BlackAkonáhle to urobíte, zopakujte to pre každé miesto. Keď som skončil, vyzeralo to takto: 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. Hodnota = 1 Potom 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 Potom 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. White End If If TrackBar1. Value = 10 Then TextBox1. BackColor = Color. White End If End Sub

Krok 3: Hotovo

No aj tak som bol. Ak ste nedokončili svoj program, pokračujte. Ach, veľa šťastia! Ale pre tých, ktorí skončili, nebolo to príliš ťažké, že? A ak vás zaujíma, kód na reset a zatvorenie je:

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