Kaip integruoti „Trackbar“į „Visual Basic“: 3 veiksmai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:50

Gerai, todėl tai skamba lengvai, tačiau pradedantiesiems visiškai nežinoma, kaip tai padaryti. Pakabos gali būti naudingos priemonės. Nuo biudžeto nustatymo iki sprogstamųjų fejerverkų pasirinkimo labai lengva naudoti paspaudimo juostas.

PASTABA: Ar kas nors žino, kaip padidinti vietų skaičių takelio juostoje? Galiu gauti tik 11 …

1 veiksmas: paruoškite formą

Tai gana lengva. Padarykite, kai norite, kad jūsų programa atrodytų. Nieko specialiai nedarau. Aš padarysiu kažką, kas pakeis teksto laukelio spalvą. == Nepamirškite pridėti sekos juostos !!! == ^{_{Taip, daugelis žmonių tai pamiršta}}

2 žingsnis: kodas

Taigi, jūs padarėte savo vartotojo sąsają, o kas dabar? Žinoma, kodas !! Dukart spustelėkite sekimo juostą. Turėtų pasirodyti 2 kodo eilutės. Kažkas kaip:

„Private Sub TrackBar1_Scroll“(„ByVal“siuntėjas kaip „System. Object“, „ByVal“ir „System. EventArgs“) tvarko „TrackBar1. Scroll End Sub“Dabar mes sužinome apie vertybes. Šioje sekimo juostoje galime gauti tik 11 reikšmių, 0–10. 0 reikšmė yra kairėje, o 10 - dešinėje. Supratau? Eikime toliau.

Siekiant palengvinti gyvenimą, visas šio žingsnio tekstas nuo šiol bus kodo stiliaus

Tarp dviejų kodo eilučių įveskite: If TrackBar1. Value = placceavaluenumberhere thenEnd If, pakeisdami placeavaluenumber čia su vietos, kurioje norite, vertės numeriu. Dabar tarp šių 4 kodo eilučių įveskite tai, ką norite padaryti. Šiuo atveju: TextBox1. BackColor = Color. Black Kai baigsite tai padaryti, pakartokite kiekvieną vietą. Kai baigiau, tai atrodė taip: „Private Sub TrackBar1_Scroll“(„ByVal“siuntėjas kaip „System. Object“, „ByVal e“kaip „System. EventArgs“) „TrackBar1. Scroll If TrackBar1. Value = 0 then TextBox1. BackColor = Color. Black End If If TrackBar1“. Reikšmė = 1 Tada TextBox1. BackColor = Spalva. Balta pabaiga, jei TrackBar1. Value = 2 Tada TextBox1. BackColor = Spalva. Redas galas, jei If TrackBar1. Value = 3 Tada TextBox1. BackColor = Spalva. Blue pabaiga Jei Jei TrackBar1. Value = 4 Tada TextBox1. BackColor = Spalva. Geltona pabaiga Jei Jei TrackBar1. Value = 5 Tada TextBox1. BackColor = Spalva. Purpurinė pabaiga Jei Jei TrackBar1. Value = 6 Tada TextBox1. BackColor = Spalva. Green pabaiga Jei Jei TrackBar1. Value = 7 Tada TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Tada TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Tada TextBox1. BackColor = Color. White End, jei TrackBar1. Value = 10 Tada TextBox1. BackColor = spalva. Balta pabaiga, jei pabaiga

3 žingsnis: padaryta

Na, vis tiek buvau. Jei nebaigėte programos, tęskite. O ir sėkmės! Bet tiems, kurie tai padarė, tai nebuvo per sunku? Ir jei jums įdomu, atstatymo ir uždarymo kodas yra:

Privatus antrinis mygtukas2_Click („ByVal“siuntėjas kaip „System. Object“, „ByVal“ir „System. EventArgs“) Rankenėlės „Button2“. Spustelėkite „End End Sub Sub Private Sub Button“1_Click („ByVal“siuntėjas kaip „System. Object“, „ByVal e As System“. = 0 Pabaiga