Textbox e botões VB.Net
27/06/2017
0
e tenho 5 textbox, textbox1, textbox2, textbox3, textbox4 e textbox5
quero clicar em qualquer botão e preencher e preencher as textbox sequencialmente
tipo clico no botão 3 preenche a textbox1, clico no botão 5 preenche a textbox 2, clico no botão 1, preenche a textbox 3...>
If textbox1.text <>""Then
Else textbox2.text = ""
textbox3.text= ""
textbox4,text= ""
textbox5.text=""
end if
Agradeço pela atenção!
Edvaldo
Post mais votado
28/06/2017
if textbox1.text = "" then textbox1.text = "Texto 1" elseif textbox2.text = "" textbox2.text = "Texto 2" elseif textbox3.text = "" textbox3.text = "Texto 3" elseif textbox4.text = "" textbox4.text = "Texto 4" elseif textbox5.text = "" textbox5.text = "Texto 5" end if
Fabiano Carvalho
Mais Posts
28/06/2017
Joel Rodrigues
Não entendi muito bem qual seria essa "sequência" que você citou. Poderia explicar melhor a dúvida, por favor?
Abraço.
28/06/2017
Edvaldo
É assim, tenho 5 botões com referencia numérica correspondente de 1 a 5, e tenho 5 textbox para receber estes números, quero que
quando clicar em qualquer um dos cinco botões preencha o primeiro textbox, o textbox1, e quando clicar em qualquer um dos outros
4 botões de um loop para o segundo textbox, textbox2 e assim sucessivamente.
Me desculpe é que sou iniciante e curioso, estou tentando manusear o Visual Studio como hobby.
Obrigado pela atenção!
28/06/2017
Edvaldo
Private Sub Btn_1_Click(sender As Object, e As EventArgs) Handles Btn_1.Click
If TextBox1.Text = "" Then
TextBox1.Text = "01"
ElseIf textbox2.text = "" Then
TextBox2.Text = "01"
ElseIf textbox3.text = "" Then
TextBox3.Text = "01"
ElseIf textbox4.text = "" Then
TextBox4.Text = "01"
ElseIf textbox5.text = "" Then
TextBox5.Text = "01"
End If
Private Sub Btn_2_Click(sender As Object, e As EventArgs) Handles Btn_2.Click
If TextBox1.Text = "" Then
TextBox1.Text = "02"
ElseIf textbox2.text = "" Then
TextBox2.Text = "02"
ElseIf textbox3.text = "" Then
TextBox3.Text = "02"
ElseIf textbox4.text = "" Then
TextBox4.Text = "02"
ElseIf textbox5.text = "" Then
TextBox5.Text = "02"
End If
Private Sub Btn_3_Click(sender As Object, e As EventArgs) Handles Btn_3.Click
If TextBox1.Text = "" Then
TextBox1.Text = "03"
ElseIf textbox2.text = "" Then
TextBox2.Text = "03"
ElseIf textbox3.text = "" Then
TextBox3.Text = "03"
ElseIf textbox4.text = "" Then
TextBox4.Text = "03"
ElseIf textbox5.text = "" Then
TextBox5.Text = "03"
End If
Private Sub Btn_4_Click(sender As Object, e As EventArgs) Handles Btn_4.Click
If TextBox1.Text = "" Then
TextBox1.Text = "04"
ElseIf textbox2.text = "" Then
TextBox2.Text = "04"
ElseIf textbox3.text = "" Then
TextBox3.Text = "04"
ElseIf textbox4.text = "" Then
TextBox4.Text = "04"
ElseIf textbox5.text = "" Then
TextBox5.Text = "04"
End If
Private Sub Btn_5_Click(sender As Object, e As EventArgs) Handles Btn_5.Click
If TextBox1.Text = "" Then
TextBox1.Text = "05"
ElseIf textbox2.text = "" Then
TextBox2.Text = "05"
ElseIf textbox3.text = "" Then
TextBox3.Text = "05"
ElseIf textbox4.text = "" Then
TextBox4.Text = "05"
ElseIf textbox5.text = "" Then
TextBox5.Text = "05"
End If
Clique aqui para fazer login e interagir na Comunidade :)