Jak integrovat trackbar do jazyka: 3 kroky

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:24

Dobře, zní to jednoduše, ale začátečníci mají naprostý problém, jak to udělat. Užitečnými nástroji mohou být lišty. Od rozhodování o rozpočtu až po výběr počtu odpalovaných ohňostrojů je používání lišt velmi snadné.

POZNÁMKA: Ví někdo, jak zvýšit počet míst na liště? Můžu dostat jen 11…

Krok 1: Připravte si formulář

To je docela snadné. Vytvořte, když chcete, aby váš program vypadal. Nedělám nic konkrétního. Vyrobím něco, co změní barvu textového pole. == Nezapomeňte přidat lištu !!! == ^{_{Ano, spousta lidí na to zapomíná}}

Krok 2: Kód

Takže jste udělali uživatelské rozhraní, co teď? Samozřejmě kód !! Dvakrát klikněte na lištu. Měly by vyskočit 2 řádky kódu. Něco jako:

Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TrackBar1. Scroll End SubNyní se učíme o hodnotách. Na tomto liště můžeme získat pouze 11 hodnot, 0-10. Hodnota 0 je zcela vlevo, zatímco hodnota 10 je zcela vpravo. Mám to? Pokračujme.

Aby byl život v tomto kroku od nynějška snazší, bude mít styl kódu

Mezi dva řádky kódu zadejte: If TrackBar1. Value = placceavaluenumberhere ThenEnd Ifreplacing placeavaluenumberhere with the value number of the place where you want it to be. Nyní mezi tyto 4 řádky kódu zadejte, co chcete udělat. V tomto případě: TextBox1. BackColor = Color. BlackOnce you & aposre done that repeat for each place. Když jsem skončil, vypadalo 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, stejně jsem byl. Pokud jste svůj program nedokončili, pokračujte. A hodně štěstí! Ale pro ty, kteří jsou hotovi, to nebylo příliš těžké, že? A pokud vás zajímalo, kód pro reset a zavření je:

Tlačítko Private Sub2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click End End Sub Sub Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click TrackBar1. Value = 0 End Sub