none
PROBLEMAS CON FUNCION PARA INGRESAR SOLO LETRAS RRS feed

  • Pregunta

  • Hola y buenos dias.. 
    Estoy tratando de validar un textbox en el cual me permita ingresar (dependiendo del textbox)
    solo letras o solo numero.. Trabajo con esta funcion creada en un modulo

        Public Function Solo_Letras(ByVal TECLAS As Integer) As Integer

            Select Case TECLAS
                Case 65 To 90, 97 To 122, 164, 165, 13, 8, 32, 44
                    Solo_Letras = TECLAS
                    Exit Function
                Case Else
                    MessageBox.Show("Solo se admiten Letras", "ayuda", _
                              MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Select
        End Function

        Public Function Solo_Numeros(ByVal TECLAS As Integer) As Integer
            Select Case TECLAS
                Case 48 To 57, 13, 8, 46
                    Solo_Numeros = TECLAS
                    Exit Function
                Case Else
                    MessageBox.Show("Solo se admiten Numeros", "ayuda", _
                              MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Select
        End Function

    Y lo llamo desde un formulario..

        'VALIDAR INGRESO DE DATOS
        Private Sub Para_Cajas_Solo_Numeros(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDni.KeyPress, txtPaterno.KeyPress
            Select Case sender.name
                Case "txtPaterno"
                    e.KeyChar = Chr(Solo_Letras(Asc(e.KeyChar)))
                Case "txtDni"
                    e.KeyChar = Chr(Solo_Numeros(Asc(e.KeyChar)))
            End Select
        End Sub

    Ahora como se percataran en el select Case utilizo los numero de las letras representadas en el
    codigo ASCII.. en la cual considero las letras mayusculas y minusculas.. 
    Mi problemas es que cuando corro mi aplicativo por alguna razon no me permite ingresar la letra Ñ o ñ..
    Alguna recomendacion o consejo?.. Muchas gracias..


    Jokesito

    viernes, 28 de diciembre de 2012 13:48

Respuestas

Todas las respuestas