Hoe om 'n trackbar in Visual Basic te integreer: 3 stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:28

OK, dit klink maklik, maar beginners het geen idee hoe om dit te doen nie. Trackbars kan nuttige instrumente wees. Van die besluit van 'n begroting tot die keuse van hoeveel vuurwerke om te ontplof, is die gebruik van trackbars baie maklik.

LET WEL: Weet iemand hoe om die aantal plekke op 'n trackbar te verhoog? Ek kan net 11 kry …

Stap 1: Maak u vorm gereed

Dit is redelik maklik. Maak wanneer u wil hê dat u program moet lyk. Ek maak niks spesifiek nie. Ek sal iets maak wat die kleur van 'n teksbus verander. == Moenie vergeet om 'n snitbalk by te voeg nie !!! == ^{_{Ja, baie mense vergeet dit}}

Stap 2: Kodeer

U het dus u gebruikerskoppelvlak gedoen, wat nou? Natuurlik kode !! Dubbelklik op die snitbalk. 2 reëls kode moet verskyn. Iets soos:

Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) hanteer TrackBar1. Scroll End SubNou leer ons oor waardes. Op hierdie trackbar kan ons slegs 11 waardes kry, 0-10. Waarde 0 is heel links, terwyl waarde 10 heel regs is. Het dit? Kom ons gaan aan.

Om die lewe makliker te maak, word alle teks in hierdie stap van nou af kode-styl

Tik tussen die twee reëls kode in: As TrackBar1. Value = placceavaluenumberhere ThenEnd If vervanging placevaluenumberhere with the value number of the place where you want it to be. Tik nou tussen die 4 reëls kode wat u wil doen. In hierdie geval: TextBox1. BackColor = Color. Black Sodra u klaar is, het u die herhaling vir elke plek gedoen. Toe ek klaar was, het dit so gelyk: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) hanteer TrackBar1. Scroll If TrackBar1. Value = 0 Dan TextBox1. BackColor = Color. Black End If If TrackBar1. Waarde = 1 Dan TextBox1. BackColor = Color. Wite einde As As TrackBar1. Value = 2 Dan TextBox1. BackColor = Color. Red einde As As TrackBar1. Value = 3 Dan TextBox1. BackColor = Color. Blue einde as as TrackBar1. Value = 4 Dan TextBox1. BackColor = Kleur. Geel einde as TrackBar1. Value = 5 Dan TextBox1. BackColor = Color. Purple einde as TrackBar1. Value = 6 Dan TextBox1. BackColor = Kleur. Groen einde as TrackBar1. Value = 7 dan TextBox1. BackColor = Color. Orange Einde As As TrackBar1. Value = 8 Dan TextBox1. BackColor = Color. Brown Einde As TrackBar1. Value = 9 Dan TextBox1. BackColor = Kleur. Wit Einde As TrackBar1. Value = 10 Dan TextBox1. BackColor = Kleur. Wit einde as einde Sub

Stap 3: Klaar

Wel, ek was in elk geval. As u nog nie u program voltooi het nie, gaan dan voort. En sterkte! Maar vir diegene wat klaar is, wel, dit was nie te moeilik nie, was dit? En as u wonder, is die kode vir die herstel en sluiting:

Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2. Click End End Sub Private Sub But11Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click TrackBar1. Value = 0 Einde Sub