Cómo integrar una barra de seguimiento en Visual Basic: 3 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:45

De acuerdo, esto suena fácil, pero los principiantes no tienen ni idea de cómo hacerlo. Las barras de seguimiento pueden ser herramientas útiles. Desde decidir un presupuesto hasta elegir cuántos fuegos artificiales detonar, usar las barras de seguimiento es muy, muy fácil.

NOTA: ¿Alguien sabe cómo aumentar el número de lugares en una barra de seguimiento? Solo puedo conseguir 11 …

Paso 1: Prepare su formulario

Esto es bastante sencillo. Hágalo cuando desee que se vea su programa. No estoy haciendo nada en particular. Haré algo que cambie el color de un cuadro de texto. == ¡No olvides agregar una barra de seguimiento! == ^{_{Si, mucha gente lo olvida}}

Paso 2: ¡Código

Así que ya terminaste tu interfaz de usuario, ¿y ahora qué? ¡Código, por supuesto! Haga doble clic en la barra de seguimiento. Deberían aparecer 2 líneas de código. Algo como:

Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Maneja TrackBar1. Scroll End SubAhora aprendemos sobre valores. En esta barra de seguimiento solo podemos obtener 11 valores, 0-10. El valor 0 es el extremo izquierdo, mientras que el valor 10 es el extremo derecho. ¿Lo tengo? Vamonos.

Para hacer la vida más fácil, todo el texto en este paso de ahora en adelante será de estilo de código

Entre las dos líneas de código, escriba: If TrackBar1. Value = placceavaluenumberhere ThenEnd Ifreplacing placeavaluenumberhere with the value number of the place where you want it. Ahora, entre esas 4 líneas de código, escriba lo que desea hacer. En este caso: TextBox1. BackColor = Color. Black Una vez que haya terminado, repita para cada lugar. Cuando terminé, se veía así: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Maneja TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Valor = 1 Entonces 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. BackColor = Color. Back End If If TrackBar1. Value = 4 Entonces TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If If TrackBar1. Value = 6 Then TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Entonces 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 Entonces TextBox1. BackColor = Color. White End If End Sub

Paso 3: ¡Listo

Bueno, de todos modos lo estaba. Si no ha terminado su programa, continúe. ¡Oh, y buena suerte! Pero para aquellos que han terminado, bueno, eso no fue demasiado difícil, ¿verdad? Y si se lo estaba preguntando, el código para restablecer y cerrar es:

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