teclado ultra simples

Question

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.

 

Answer 1

Durval Teixeira,

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.

Answer 2

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 

Answer 3

Durval Teixeira,

Dim numInteger As Integer
numInteger = Convert.ToInt32(num)

não falo português
saudações do Peru

---

Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

Answer 4

Gracias Brayan.....