Usuário com melhor resposta
teclado ultra simples

Pergunta
-
Prezados, tentei de algumas formas, não estou conseguindo, então estou perguntando:
Como pode ser a rotina de um teclado composto apenas de 10 Buttons (zero ao 9) e um TextBox.
Preciso apenas digitar um número geralmente composto de 4 ou 5 dígitos e queria faze-lo clicando nos botton's.
Desde já agradeço por alguma ajuda.
Respostas
-
Dim num As String = String.Empty Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn0.Click num = num & btn0.Text textnum.Text = num End Sub Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click num = num & btn1.Text textnum.Text = num End Sub Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click num = num & btn2.Text textnum.Text = num End Sub Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click num = num & btn3.Text textnum.Text = num End Sub Private Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click num = num & btn4.Text textnum.Text = num End Sub Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click num = num & btn5.Text textnum.Text = num End Sub Private Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click num = num & btn6.Text textnum.Text = num End Sub Private Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click num = num & btn7.Text textnum.Text = num End Sub Private Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click num = num & btn8.Text textnum.Text = num End Sub Private Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click num = num & btn9.Text textnum.Text = num End Sub
Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.
- Marcado como Resposta Durval Teixeira quinta-feira, 6 de abril de 2017 03:02
Todas as Respostas
-
Dim num As String = String.Empty Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn0.Click num = num & btn0.Text textnum.Text = num End Sub Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click num = num & btn1.Text textnum.Text = num End Sub Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click num = num & btn2.Text textnum.Text = num End Sub Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click num = num & btn3.Text textnum.Text = num End Sub Private Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click num = num & btn4.Text textnum.Text = num End Sub Private Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click num = num & btn5.Text textnum.Text = num End Sub Private Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click num = num & btn6.Text textnum.Text = num End Sub Private Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click num = num & btn7.Text textnum.Text = num End Sub Private Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click num = num & btn8.Text textnum.Text = num End Sub Private Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click num = num & btn9.Text textnum.Text = num End Sub
Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.
- Marcado como Resposta Durval Teixeira quinta-feira, 6 de abril de 2017 03:02
-
Muito obrigado pela força Brayan, deu certo.
Tenho ainda uma pequena dúvida sobre este recurso. Preciso mais a frente utilizar o número "num" gerado pela rotina acima, tenho que soma-lo, por exemplo num=num+1. Pergunto: Como faço para transforma-lo de String em um Integer?
Grato
-
Dim numInteger As Integer numInteger = Convert.ToInt32(num)
não falo português
saudações do PeruSi ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.
-