calculadora com teclado numérico
13/11/2015
0
Essa calculadora contém 03 textbox e um teclado de buttons com numeros ao clicar no button seria para colocar no textbox que estivesse selecionado o numero correspondente ao button que apertei, mas meu codigo não deu certo.
[img]http://arquivo.devmedia.com.br/forum/imagem/463575-20151113-133756.jpg[/img]
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = 0 Then
TextBox1.Text += "1"
ElseIf TextBox2.Text = 0 Then
TextBox2.Text += "1"
ElseIf TextBox3.Text = 0 Then
TextBox3.Text += "1"
End If
End Sub
Coloquei este codigo em todos os buttons de 0 ao 9 mas não deu certo.
Anderson Mariano
Post mais votado
14/11/2015
Variável global para auxiliar no controle do textBox no evento Leave, e no Evento click do botão adicionar o valor ao último textbox com foco
Public Class Form1
Dim ControleTextBox As Integer = 0
Private Sub txtVim_Leave(sender As Object, e As EventArgs) Handles txtVim.Leave
ControleTextBox = 1
End Sub
Private Sub txtA_Leave(sender As Object, e As EventArgs) Handles txtA.Leave
ControleTextBox = 2
End Sub
Private Sub txtVout_Leave(sender As Object, e As EventArgs) Handles txtVout.Leave
ControleTextBox = 3
End Sub
Private Sub btnNum1_Click(sender As Object, e As EventArgs) Handles btnNum1.Click
Select Case ControleTextBox
Case 1
txtVim.Text += "1"
Case 2
txtA.Text += "1"
Case 3
txtVout.Text += "1"
End Select
End Sub
End Class
Lucas Ramos
Mais Posts
13/11/2015
Anderson Mariano
Só preciso fazer com que insira os numeros no textbox quando clicado nele, quando clicar em outro textbox consiga inserir os números nele.
13/11/2015
Anderson Mariano
Amigo o que preciso é fazer com que quando clica no botão referente aos números ele preencha o textbox que está em foco.
De resto já está funcionando.
14/11/2015
Lucas Ramos
int ControleTextBox;
No evento Exit de cada textbox atribua um valor a ela, e quando clicar no botão só verificar o valor dessa variável para saber qual deve alimentar.
14/11/2015
Anderson Mariano
14/11/2015
Anderson Mariano
Blz consegui fazer a variável global e agora está quase funcionando, só que o primeiro numero que clico tem que ser do teclado dai meus botões de numeros funcionam se não, não funcionam.
O que posso fazer agora.
14/11/2015
Anderson Mariano
Variável global para auxiliar no controle do textBox no evento Leave, e no Evento click do botão adicionar o valor ao último textbox com foco
Public Class Form1
Dim ControleTextBox As Integer = 0
Private Sub txtVim_Leave(sender As Object, e As EventArgs) Handles txtVim.Leave
ControleTextBox = 1
End Sub
Private Sub txtA_Leave(sender As Object, e As EventArgs) Handles txtA.Leave
ControleTextBox = 2
End Sub
Private Sub txtVout_Leave(sender As Object, e As EventArgs) Handles txtVout.Leave
ControleTextBox = 3
End Sub
Private Sub btnNum1_Click(sender As Object, e As EventArgs) Handles btnNum1.Click
Select Case ControleTextBox
Case 1
txtVim.Text += "1"
Case 2
txtA.Text += "1"
Case 3
txtVout.Text += "1"
End Select
End Sub
End Class
Era exatamente o que eu procurava deu certo. Parabéns Lucas me ajudou e muito em.
Clique aqui para fazer login e interagir na Comunidade :)
