Para que solo se puedan escribir numeros en un cuadro de texto (de forma similar a lo visto anteriormente para visual 2005) en Visual 6 se debe escribir la siguiente linea en el evento Keypress de un Textbox
Private Sub txttexto_KeyPress(KeyAscii As Integer)
If (KeyAscii <> 57) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
skip to main |
skip to sidebar
Trozos de codigo sera una pagina donde recopile diferentes funciones de los diferentes lenguajes que llegue a utilizar para reutilizarlos en algun momento de forma mas rapida
Copyright © 2009 Your Blog. All Rights Reserved.
Powered by Blogger | Theme by Skinpress | Brought to Blogger by Dante Araujo and Deluxe Templates
5 comentarios:
el codigo esta malo, solo funciona si entra el 9
If (KeyAscii < 49) Or KeyAscii > 57 Then
If KeyAscii = 8 Then
KeyAscii = 8
Else
KeyAscii = 1
MsgBox ("Solo pueden ser datos numericos")
End If
End If
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
KeyAscii = 0
endif
acepta solo numeros, enter y el boton de borrar.
no funciona si el usuario hace pegar en el textbox pega cualquier cosa
https://trozosdecodigos.blogspot.com/
Publicar un comentario