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

Turinys:

Anonim

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