Autor Tema: Re: Ayuda por Favor con este codigo (Leído 1225 veces)

mexican · « **en:** Viernes 19 de Septiembre de 2003, 16:19 »

Este codigo es para admita numeros, coma, punto y la tecla de retroceso pero cuando intento introducir el punto me pone la coma ¿que pasa?

Private Sub Text2_KeyPress(KeyAscii As Integer)

Cadena = "0123456789.," + Chr(8) 'chr(8) = delete, es decir admitimos borrar

If InStr(Cadena, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If

If KeyAscii = 46 Then

KeyAscii = 44

End If

End Sub

Brroz

Hola Mexican

El código controla los carácteres que admite un TextBox llamado Text2. Se encuentra en el evento KeyPress que se desencadena cuando el usuario mantiene presionada una tecla sobre el control. Se recibe un parámetro (KeyAscii) que indica el código ascii del carácter que corresponde a la pulsación de la tecla.

En primer lugar se definen una serie de valores válidos para el textbox y se almacenan el la variable Cadena:

Cadena = "0123456789.," + Chr(8)

A continuación se usa la función Instr que devuelve la posición de un carácter en una cadena de texto. Se pregunta si el código de la tecla pulsada (KeyAscii) se encuentra entre los carácteres que se permiten (almacenados en Cadena) y en caso negativo (instr=0) se 'anula' la pulsación de la tecla (KeyAscii=0). A continuación se comprueba si el código de la tecla pulsada = 46 (carácter ,) y en caso afirmativo se sustituye por 44 (carácter .).

Suerte.

observador

Osea que si no quieres que te cambie el punto por una coma, pues solo quitale el codigo

Código: Text

    If KeyAscii = 46 Then
        KeyAscii = 44
    End If
 
 

Que es el que al comprobar que se pulso la tecla equivalente al punto, pues lo cambia por una coma...

Saludos...

mexican

Gracias por esta duda que me resolvieron