none
textbox que admita numeros y backspace RRS feed

  • Pregunta

  • Buen día, un favor; lo único que necesito es realizar una validación a un textbox, para que acepte únicamente números y la tecla backspace. lo opcional (y si se pudiera sería genial) también me gustaría que valide un copy/paste., uso VB.NET VS2005

    pero lo primordial es el núumerico y el backspace.

     

    GRACIAS!


    Lima - Perú Rafo*
    jueves, 26 de mayo de 2011 21:42

Respuestas

  • talves sea tonto, pero; esta fué mi solución para los que lo necesiten:

     If Not Char.IsDigit( e.KeyChar ) And e.KeyChar <> vbBack Then
         e.Handled = True
    


    Lima - Perú Rafo*
    • Marcado como respuesta Rafael Molina jueves, 26 de mayo de 2011 22:02
    jueves, 26 de mayo de 2011 22:02

Todas las respuestas

  • talves sea tonto, pero; esta fué mi solución para los que lo necesiten:

     If Not Char.IsDigit( e.KeyChar ) And e.KeyChar <> vbBack Then
         e.Handled = True
    


    Lima - Perú Rafo*
    • Marcado como respuesta Rafael Molina jueves, 26 de mayo de 2011 22:02
    jueves, 26 de mayo de 2011 22:02
  • Buen código, gracias por compartirlo
    viernes, 1 de septiembre de 2017 23:47
  • Hola amigo.

    Este código acepta el copy/paste.

    Espero y te sea de utilidad.

    Dim Notnumber As Boolean

    Private Sub txtNum_KeyDown(sender As Object, e As KeyEventArgs) Handles txtNum.KeyDown

            Notnumber = False

            If e.KeyCode = Keys.Space Then
                Notnumber = True
            Else
                Notnumber = False
            End If

        End Sub

        Private Sub txtNum_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNum.KeyPress

            If Notnumber = True Then
                e.Handled = True
            Else

                If Char.IsLetterOrDigit(e.KeyChar) Or Char.IsControl(e.KeyChar) Or Char.IsSeparator(e.KeyChar) Then
                    e.Handled = False
                Else
                    e.Handled = True
                End If

            End If

    End Sub

    Saludos!!!

    sábado, 2 de septiembre de 2017 0:21
  • Gracias

    lunes, 29 de octubre de 2018 23:05
  • no se si hago bien en contestar, pero como comentario no hay soluciones tontas amigo, muchas veces lo mas sencillo es lo mejor; es mi humilde opinión.

    saludos

    martes, 30 de octubre de 2018 0:21