Com integrar una barra de seguiment en Visual Basic: 3 passos

2025 Autora: John Day | [email protected]. Última modificació: 2025-01-10 13:46

D'acord, per tant, això sembla fàcil, però els principiants no tenen cap idea de com fer-ho. Les barres de seguiment poden ser eines útils. Des de decidir un pressupost fins a triar quants focs artificials voleu detonar, l’ús de barres de seguiment és molt fàcil.

NOTA: algú sap com augmentar el nombre de llocs en una barra de seguiment? Només en puc obtenir 11 …

Pas 1: prepareu el formulari

Això és bastant fàcil. Feu quan voleu que el vostre programa tingui l'aspecte. No faig res en concret. Faré alguna cosa que canviï el color d'un quadre de text. == No oblideu afegir una barra de seguiment !!! == ^{_{Sí, molta gent ho oblida}}

Pas 2: Codi

Així que ja heu fet la vostra interfície d'usuari, ara què? Codi, per descomptat !! Feu doble clic a la barra de seguiment. S'han d'aparèixer 2 línies de codi. Alguna cosa com:

Private Sub TrackBar1_Scroll (remitent ByVal com a System. Object, ByVal i As System. EventArgs) gestiona TrackBar1. Scroll End SubAra coneixem els valors. En aquesta barra de seguiment només podem obtenir 11 valors, 0-10. El valor 0 és molt esquerre, mentre que el valor 10 és molt dret. Ho tinc? Posem-nos en marxa.

Per facilitar la vida, tot el text d’aquest pas a partir d’ara serà d’estil de codi

Entre les dues línies de codi escriviu: Si TrackBar1. Value = placceavaluenumberhere Aquí Acabeu si substituïu el nombre de valor aquí amb el número de valor del lloc on voleu que sigui. Ara, entre aquestes 4 línies de codi, escriviu el que voleu fer. En aquest cas: TextBox1. BackColor = Color. BlackUn cop hàgiu acabat de repetir per a cada lloc. Quan vaig acabar, tenia el següent aspecte: Private Sub TrackBar1_Scroll (ByVal remitent com a System. Object, ByVal i As System. EventArgs) gestiona TrackBar1. Scroll If TrackBar1. Value = 0 Aleshores TextBox1. BackColor = Color. Black End Si si TrackBar1. Valor = 1 Llavors 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 Llavors 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

Pas 3: Fet

Bé, jo ho era de totes maneres. Si no heu acabat el programa, continueu. Ah, i molta sort, però per als que estiguin acabats, bé, no va ser massa difícil, oi? I si us ho preguntàveu, el codi per reiniciar i tancar és:

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