Textbox e botões VB.Net

27/06/2017

0

<Oi eu tenho 5 botões, botão1= 01, botão2= 02, botão3= 03, botão4= 04 e botão5= 05
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

Edvaldo

Responder

Post mais votado

28/06/2017

Seria algo assim?
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

Fabiano Carvalho
Responder

Mais Posts

28/06/2017

Joel Rodrigues

Fala, Edvaldo. Tudo bem?

Não entendi muito bem qual seria essa "sequência" que você citou. Poderia explicar melhor a dúvida, por favor?

Abraço.
Responder

28/06/2017

Edvaldo

Oi Joel boa tarde!
É 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!
Responder

28/06/2017

Edvaldo

Valeu Fabiano, era por ai mesmo, só informei a cada botão o seu valor correspondente, ficou assim e funcionou direitinho, obrigado ai!


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
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar