Een trackbar integreren in Visual Basic: 3 stappen

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:20

OK, dus dit klinkt eenvoudig, maar de beginners hebben absoluut geen idee hoe ze dit moeten doen. Trackbars kunnen handige hulpmiddelen zijn. Van het bepalen van een budget tot het kiezen van hoeveel vuurwerk je wilt laten ontploffen, het gebruik van trackbars is heel eenvoudig.

OPMERKING: Weet iemand hoe je het aantal plaatsen op een trackbar kunt vergroten? Ik kan er maar 11 krijgen…

Stap 1: Maak uw formulier gereed

Dit is vrij eenvoudig. Maak wanneer u wilt dat uw programma eruitziet. Ik maak niets in het bijzonder. Ik ga iets maken dat de kleur van een tekstvak verandert.==Vergeet niet om een trackbar toe te voegen!!!== ^{_{Ja, dat vergeten veel mensen}}

Stap 2: Codeer

Dus je hebt je gebruikersinterface gedaan, wat nu? Code natuurlijk!!Dubbelklik op de trackbar. Er zouden 2 regels code moeten verschijnen. Zoiets als:

Private Sub TrackBar1_Scroll (ByVal-afzender As System. Object, ByVal e As System. EventArgs) Verwerkt TrackBar1. Scroll End SubNu leren we over waarden. Op deze trackbar kunnen we maar 11 waarden krijgen, 0-10. Waarde 0 is helemaal links, terwijl waarde 10 helemaal rechts is. Heb het? Laten we verder gaan.

Om het leven gemakkelijker te maken, zal alle tekst in deze stap vanaf nu in codestijl zijn

Typ tussen de twee regels code:If TrackBar1. Value = plaatswaardenummerhier ThenEnd Als plaatseenwaardenummerhier vervangt door het waardenummer van de plaats waar u het wilt hebben. Typ nu tussen die 4 regels code wat je wilt doen. In dit geval:TextBox1. BackColor = Color. BlackZodra u klaar bent, herhaalt u dat voor elke plaats. Toen ik klaar was, zag het er als volgt uit: Private Sub TrackBar1_Scroll (ByVal-afzender As System. Object, ByVal e As System. EventArgs) Verwerkt TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Waarde = 1 Dan TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Then TextBox1. BackColor = Color. Red End If If TrackBar1. Value = 3 Dan TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Dan TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Dan TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Dan TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Dan TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Dan TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Dan TextBox1. BackColor = Color. White End If End Sub

Stap 3: Klaar

Nou, dat was ik in ieder geval. Als je je programma nog niet hebt afgerond, ga dan door. Oh, en veel succes! Maar voor degenen die klaar zijn, nou, dat was toch niet zo moeilijk? En als je je afvroeg, de code voor het resetten en sluiten is:

Private Sub Button2_Click(ByVal-afzender As System. Object, ByVal e As System. EventArgs) Verwerkt Button2. Click End End Sub Private Sub-knop1_Click(ByVal-afzender As System. Object, ByVal e As System. EventArgs) Verwerkt Button1. Click TrackBar1. Value = 0 Einde Sub