Kazalo:

Kako integrirati sledilno vrstico v Visual Basic: 3 koraki
Kako integrirati sledilno vrstico v Visual Basic: 3 koraki

Video: Kako integrirati sledilno vrstico v Visual Basic: 3 koraki

Video: Kako integrirati sledilno vrstico v Visual Basic: 3 koraki
Video: Полный курс по Next js - Изучи Nextjs за 2 часа! | React SSR +таймкоды 2024, December
Anonim
Kako integrirati sledilno vrstico v Visual Basic
Kako integrirati sledilno vrstico v Visual Basic

V redu, to se sliši preprosto, vendar začetniki nimajo pojma, kako to narediti. Sledilne palice so lahko uporabno orodje. Od odločanja o proračunu do izbire, koliko ognjemetov bo eksplodiralo, je uporaba sledil zelo preprosta.

OPOMBA: Ali kdo ve, kako povečati število mest na sledilni vrstici? Lahko dobim samo 11 …

1. korak: Pripravite obrazec

Pripravite obrazec
Pripravite obrazec

To je precej enostavno. Naredite, ko želite, da vaš program izgleda. Ne delam nič posebnega. Naredil bom nekaj, kar bo spremenilo barvo besedilnega polja. == Ne pozabite dodati sledilne vrstice !!! == Ja, veliko ljudi na to pozabi

2. korak: Koda

Koda!
Koda!

Torej ste naredili svoj uporabniški vmesnik, kaj pa zdaj? Koda seveda !! Dvokliknite sledilno vrstico. Pojaviti bi se morali 2 vrstici kode. Nekaj kot:

Zasebni pomožni TrackBar1_Scroll (pošiljatelj ByVal kot System. Object, ByVal e As System. EventArgs) obravnava TrackBar1. Scroll End SubZdaj se učimo o vrednotah. Na tej sledilni vrstici lahko dobimo le 11 vrednosti, 0-10. Vrednost 0 je zelo levo, vrednost 10 pa zelo desno. Razumem? Gremo naprej.

Za olajšanje življenja bo vse besedilo v tem koraku odslej v kodi

Med dvema vrsticama kode vnesite: Če je TrackBar1. Value = placceavaluenumber tukaj Potem končaj Ifreplaces placeavaluenumber tukaj z vrednostno številko mesta, kjer želite, da je. Zdaj med te 4 vrstice kode vnesite, kaj želite narediti. V tem primeru: TextBox1. BackColor = Color. BlackKo ste to storili, ponovite za vsako mesto. Ko sem končal, je bilo videti tako: Private Sub TrackBar1_Scroll (pošiljatelj ByVal kot System. Object, ByVal e As System. EventArgs) Roča TrackBar1. Scroll If TrackBar1. Value = 0 Potem TextBox1. BackColor = Color. Black End Če Če TrackBar1. Vrednost = 1 Potem TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Potem TextBox1. BackColor = Color. Red End Če Če TrackBar1. Value = 3 Potem TextBox1. BackColor = Color. Blue End Če Če TrackBar1. Value = 4 Nato TextBox1. BackColor = Barva. Rumeni konec If Če je TrackBar1. Value = 5 Potem TextBox1. BackColor = Barva. Vijolični konec Če Če TrackBar1. Value = 6 Potem TextBox1. BackColor = Barva. Zeleni konec Če Če TrackBar1. Value = 7 Potem TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Potem TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Potem TextBox1. BackColor = Color. White End Če Če TrackBar1. Value = 10 Potem TextBox1. BackColor = Barva. White End If End Sub

3. korak: Končano

Končano!
Končano!

No, vseeno sem bil. Če programa še niste končali, nadaljujte. Oh, in srečno! Ampak za tiste, ki so končali, no, to ni bilo preveč težko, kajne? In če ste se spraševali, je koda za ponastavitev in zapiranje naslednja:

Gumb Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Ročaj gumba 2. Kliknite End End Sub Private Sub Button1_Click (pošiljatelj ByVal kot System. Object, ByVal e As System. EventArgs) Ročaj gumba 1. Kliknite TrackBar1. Value = 0 End Sub

Priporočena: