Trackbar integreerimine Visual Basicusse: 3 sammu

2024 Autor: John Day | [email protected]. Viimati modifitseeritud: 2024-01-30 08:51

OK, nii et see kõlab lihtsalt, kuid algajatel pole absoluutselt ideid, kuidas seda teha. Rööbasteed võivad olla kasulikud tööriistad. Alates eelarve otsustamisest kuni plahvatavate ilutulestike valimiseni on trellide kasutamine väga lihtne.

MÄRKUS. Kas keegi teab, kuidas suurendada juhtriba kohtade arvu? Ma saan ainult 11 …

Samm: valmistage vorm ette

See on päris lihtne. Tehke seda siis, kui soovite oma programmi välja näha. Ma ei tee midagi eriti. Teen midagi, mis muudab tekstikasti värvi. == Ärge unustage lisada riba !!! == ^{_{Jah, paljud inimesed unustavad selle}}

2. samm: kood

Nii et olete oma kasutajaliidese teinud, mis nüüd? Kood muidugi !! Topeltklõpsake juhtribal. Ilmuma peaks 2 koodirida. Midagi sellist:

Privaatne alamraja TrackBar1_Scroll (ByVal saatja kui System. Object, ByVal e kui System. EventArgs) Käsitleb TrackBar1. Scroll End SubNüüd saame teada väärtustest. Sellel ribal saame ainult 11 väärtust, 0-10. Väärtus 0 on vasakpoolne, väärtus 10 aga väga parem. Sain aru? Liigume edasi.

Elu lihtsustamiseks on kogu selle sammu tekst nüüdsest koodistiilis

Sisestage kahe koodirida vahele: Kui TrackBar1. Value = placceavaluenumber siin, siis Lõpeta ja asendage kohaavaluenumber siin selle koha väärtuse numbriga, kus soovite. Nüüd sisestage nende nelja koodirida vahele, mida soovite teha. Sel juhul: TextBox1. BackColor = Värv. Must Kui olete & aposre teinud, korrake seda iga koha jaoks. Kui olin valmis, nägi see välja selline: Privaatne alam TrackBar1_Scroll (ByVal saatja kui System. Object, ByVal e As System. EventArgs) Käepidemed TrackBar1. Scroll If TrackBar1. Value = 0 Siis TextBox1. BackColor = Värv. Must lõpp Kui TrackBar1. Väärtus = 1 Siis TextBox1. BackColor = Värv. Valge lõpp If Kui TrackBar1. Value = 2 Siis TextBox1. BackColor = Värv. Punane lõpp If Kui TrackBar1. Value = 3 Siis TextBox1. BackColor = Värv. Sinine lõpp If Kui TrackBar1. Value = 4 Siis TextBox1. BackColor = Värv. Kollane lõpp If Kui TrackBar1. Value = 5 Siis TextBox1. BackColor = Värv. Lilla lõpp Kui If TrackBar1. Value = 6 Siis TextBox1. BackColor = Värv. Green lõpp Kui If TrackBar1. Value = 7 Siis TextBox1. BackColor = Värv. Orange End If If TrackBar1. Value = 8 Siis TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Siis TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Siis TextBox1. BackColor = Värv. Valge lõpp, kui lõpp Alam

3. samm: valmis

No ma olin igatahes. Kui te pole oma programmi lõpetanud, jätkake. Oh, ja palju õnne! Aga neile, kes on valmis, polnud see liiga raske? Ja kui te ei tea, on lähtestamise ja sulgemise kood järgmine:

Privaatne alamnupp2_Click (ByVal saatja kui System. Object, ByVal e kui System. EventArgs) Käepidemed 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