Cum se integrează o bare de urmărire în Visual Basic: 3 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:47

OK, deci sună ușor, dar începătorii nu au absolut nicio idee despre cum să facă acest lucru. Trackbars pot fi instrumente utile. De la alegerea unui buget până la alegerea numărului de artificii de detonat, utilizarea trackbars-urilor este foarte ușor.

NOTĂ: Știe cineva cum să mărească numărul de locuri pe o bară de urmărire? Nu pot obține decât 11 …

Pasul 1: Pregătiți-vă formularul

Este destul de ușor. Faceți când doriți ca programul dvs. să arate ca. Nu fac nimic anume. Voi face ceva care să schimbe culoarea unei casete de text. == Nu uitați să adăugați o bară de urmărire !!! == ^{_{Da, o mulțime de oameni uită asta}}

Pasul 2: Cod

Deci, ți-ai făcut interfața cu utilizatorul, acum ce? Cod bineînțeles !! Faceți dublu clic pe bara de urmărire. Ar trebui să apară 2 linii de cod. Ceva asemănător cu:

Private Sub TrackBar1_Scroll (expeditor ByVal ca System. Object, ByVal e As System. EventArgs) Manipulează TrackBar1. Scroll End SubAcum aflăm despre valori. Pe această bară de urmărire putem obține doar 11 valori, 0-10. Valoarea 0 este foarte stânga, în timp ce valoarea 10 este foarte dreapta. Am inteles? Să mergem mai departe.

Pentru a face viața mai ușoară, tot textul din acest pas de acum înainte va fi în stil de cod

Între cele două linii de cod introduceți: Dacă TrackBar1. Value = placceavaluenumberhere hereEnd Dacă înlocuiți numărul valorii de plasare aici cu numărul valorii locului în care doriți să fie. Acum între cele 4 linii de cod tastați ce doriți să faceți. În acest caz: TextBox1. BackColor = Color. Black Odată ce ați terminat repetarea pentru fiecare loc. Când am terminat, arăta astfel: 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 Apoi 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 End If If TrackBar1. Value = 8 Then TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Then TextBox1. BackColor = Color. White End If End Sub

Pasul 3: Gata

Ei bine, am fost oricum. Dacă nu v-ați terminat programul, continuați. Oh, și noroc! Dar pentru cei care au terminat, nu a fost prea greu, nu-i așa? Și dacă vă întrebați, codul pentru resetare și închidere este:

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