Como integrar uma barra de controle ao Visual Basic: 3 etapas

2024 Autor: John Day | [email protected]. Última modificação: 2024-01-30 11:40

OK, isso parece fácil, mas os iniciantes não têm absolutamente nenhuma ideia de como fazer isso. Trackbars podem ser ferramentas úteis. Desde decidir um orçamento até escolher quantos fogos de artifício detonar, usar trackbars é muito fácil.

NOTA: Alguém sabe como aumentar o número de lugares em uma trackbar? Eu só consigo 11 …

Etapa 1: Prepare seu formulário

Isso é muito fácil. Faça quando quiser que seu programa se pareça. Não estou fazendo nada em particular. Farei algo que muda a cor de uma caixa de texto. == Não se esqueça de adicionar uma barra de controle !!! == ^{_{Sim, muitas pessoas esquecem disso}}

Etapa 2: Código

Então você fez sua interface de usuário, e agora? Código, é claro! Clique duas vezes na barra de trilhas. 2 linhas de código devem aparecer. Algo como:

Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Manipula TrackBar1. Scroll End SubAgora aprendemos sobre valores. Nesta barra de trilhas, podemos obter apenas 11 valores, 0-10. O valor 0 é a extrema esquerda, enquanto o valor 10 é a extrema direita. Percebido? Vamos continuar.

Para tornar a vida mais fácil, todo o texto nesta etapa a partir de agora será em estilo de código

Entre as duas linhas de código, digite: If TrackBar1. Value = placceavaluenumberhere ThenEnd Ifreplacing placeavaluenumberhere com o número do valor do local onde deseja que ele esteja. Agora, entre essas 4 linhas de código, digite o que deseja fazer. Neste caso: TextBox1. BackColor = Color. BlackUma vez que você tiver feito essa repetição para cada local. Quando eu terminei, parecia assim: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Manipula 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 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

Etapa 3: Pronto

Bem, eu estava de qualquer maneira. Se você ainda não terminou o programa, continue. Oh, e boa sorte! Mas para aqueles que terminaram, bem, não foi tão difícil, foi? E se você estava se perguntando, o código para reiniciar e fechar é:

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