none
teclado ultra simples RRS feed

  • 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.

     

    quarta-feira, 5 de abril de 2017 22:43

Respostas

  • 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.

    • Marcado como Resposta Durval Teixeira quinta-feira, 6 de abril de 2017 03:02
    quarta-feira, 5 de abril de 2017 23:19

Todas as Respostas

  • 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.

    • Marcado como Resposta Durval Teixeira quinta-feira, 6 de abril de 2017 03:02
    quarta-feira, 5 de abril de 2017 23:19
  • 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 

    quinta-feira, 6 de abril de 2017 03:02
  • 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.

    quinta-feira, 6 de abril de 2017 03:24
  • Gracias Brayan.....
    quinta-feira, 6 de abril de 2017 17:46