none
Validar un textBox que solo acepte caracteres que yo haya declarado en una cadena RRS feed

  • Pregunta

  • como ya dije en el titulo, una vez use una herramienta a esta, pero recuerdo su sintaxis, era algo asi como:

    dim cadena as char(no recuerdo el tipo) = (1234567890)

    if (!cadena) then

    e.Handled = False

    end if

    esto por su puesto va en el evento Keypress del textbox

    sábado, 30 de septiembre de 2017 15:21

Respuestas

  • Dim cadena as String = "AquiLasLetrasqueQuierasPermitir"

    Y en el Keypress:

    If Not cadena.Contains(e.KeyChar) Then e.Handled=True '(¿o False? no me acuerdo, pero puedes probarlo)

    • Marcado como respuesta Jonnathanc765 sábado, 30 de septiembre de 2017 15:40
    sábado, 30 de septiembre de 2017 15:28

Todas las respuestas

  • Dim cadena as String = "AquiLasLetrasqueQuierasPermitir"

    Y en el Keypress:

    If Not cadena.Contains(e.KeyChar) Then e.Handled=True '(¿o False? no me acuerdo, pero puedes probarlo)

    • Marcado como respuesta Jonnathanc765 sábado, 30 de septiembre de 2017 15:40
    sábado, 30 de septiembre de 2017 15:28
  • Hola Jonnathanc, creo que te refieres a SoloNúmeros era así se crea una función

    Function SoloNumeros(ByVal Keyascii As Short) As Short
            If InStr("1234567890/", Chr(Keyascii)) = 0 Then
                SoloNumeros = 0
            Else
                SoloNumeros = Keyascii
            End If
            Select Case Keyascii
                Case 8
                    SoloNumeros = Keyascii
                Case 13
                    SoloNumeros = Keyascii
            End Select
        End Function

    para luego en el evento keypress del textbox

      Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
            KeyAscii = CShort(SoloNumeros(KeyAscii))
            If KeyAscii = 0 Then
                e.Handled = True
                MsgBox("Valor erroneo")
                Exit Sub
            End If

    Recuerda que para evitar el copiado y pegado en el texbox coloca su propiedad ShortCurtEnabled  en False con esto evitas que aparte de la validación no se pueda acceder al control mediante cortar y pegar ni desplega el menú contextual para el caso

    Saludos

    sábado, 30 de septiembre de 2017 15:34
  • Eres el puto amo, muchas gracias, ahh y por cierto es True =)
    sábado, 30 de septiembre de 2017 15:41