SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: 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
-
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.
-
Osea que si no quieres que te cambie el punto por una coma, pues solo quitale el codigo
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...
-
Gracias por esta duda que me resolvieron