So integrieren Sie eine Trackbar in Visual Basic: 3 Schritte

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:22

OK, das klingt einfach, aber die Anfänger haben absolut keine Ahnung, wie das geht. Trackbars können nützliche Werkzeuge sein. Von der Entscheidung über ein Budget bis hin zur Auswahl der Anzahl von Feuerwerkskörpern, die gezündet werden sollen, ist die Verwendung von Trackbars sehr einfach.

HINWEIS: Weiß jemand, wie man die Anzahl der Stellen auf einer Trackbar erhöht? Ich kann nur 11 bekommen…

Schritt 1: Bereiten Sie Ihr Formular vor

Dies ist ziemlich einfach. Machen Sie, wann Ihr Programm aussehen soll. Ich mache nichts Besonderes. Ich werde etwas machen, das die Farbe einer Textbox ändert.==Vergiss nicht, eine Trackbar hinzuzufügen!!!== ^{_{Ja, das vergessen viele}}

Schritt 2: Code

Sie haben Ihre Benutzeroberfläche erstellt, was nun? Code natürlich!!Doppelklicken Sie auf die Trackbar. Es sollten 2 Zeilen Code angezeigt werden. Etwas wie:

Private Sub TrackBar1_Scroll(ByVal sender As System. Object, ByVal e As System. EventArgs) Behandelt TrackBar1. Scroll End SubJetzt lernen wir Werte kennen. Auf dieser Trackbar können wir nur 11 Werte erhalten, 0-10. Wert 0 ist ganz links, während Wert 10 ganz rechts ist. Verstanden? Lass uns weitermachen.

Um das Leben einfacher zu machen, wird der gesamte Text in diesem Schritt von nun an im Code-Stil sein

Geben Sie zwischen den beiden Codezeilen ein:If TrackBar1. Value = placeavaluenumberhere ThenEnd Ifreplaceavaluenumberhier durch die Wertnummer des Ortes, an dem sie sein soll. Geben Sie nun zwischen diesen 4 Codezeilen ein, was Sie tun möchten. In diesem Fall:TextBox1. BackColor = Color. BlackOnce Sie dies für jede Stelle wiederholen. Als ich fertig war, sah es so aus: Private Sub TrackBar1_Scroll(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Value = 1 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Then TextBox1. BackColor = Color. Red End If If TrackBar1. Value = 3 Then TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Then TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Then TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Then TextBox1. BackColor = Color. Orange Ende Wenn TrackBar1. Value = 8 Dann TextBox1. BackColor = Color. Brown Ende Wenn Wenn TrackBar1. Value = 9 Dann TextBox1. BackColor = Color. White Ende Wenn Wenn TrackBar1. Value = 10 Dann TextBox1. BackColor = Color. White End If End Sub

Schritt 3: Fertig

Nun, ich war es sowieso. Wenn Sie Ihr Programm noch nicht beendet haben, machen Sie weiter. Oh, und viel Glück! Aber für diejenigen, die fertig sind, nun, das war nicht allzu schwer, oder? Und wenn Sie sich fragen, der Code für das Zurücksetzen und Schließen lautet:

Private Sub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Verarbeitet Button2. Click End End Sub Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Verarbeitet Button1. Click TrackBar1. Value = 0 Ende Sub