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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar