| Usuario |
Controlar un tipo de dato en una c... |
Desconocido
|
| Enviado - 20/7/2004 |
| |
Hola!!!
Estoy intentando que en una caja de texto solo se acepten datos numericos pero tambien quiero que sea posible borrar con el backspace y no se como hacerlo, mi codigo es el siguiente:
Private Sub TxtC_KeyPress(Index As Integer, KeyAscii As Integer)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Les agradeceria mucho si me pudiesen ayudar |
| |
|
apavez
5 Mensaje(s)
|
| Enviado - 20/7/2004 |
| |
Siempre guarda en una variable de tipo string lo que vas capturando en tu control, pregunta por el codigo ascii 8, si te acurre, saca el ultimo caracter de tu string y el resultado pasalo a tu control, recuerda el setfocus y que cuando pases el string al control entrara nuevamente a la sub, lo cual no deberia causarte problemas.
saludos,
apavez |
| |
|
|
|
