Validacion de campos integer
beto
17 de Agosto del 2009
Buenas ocupo la ayuda de alguien que me diga como validar un campo integer que no permita la lectura de caracteres.
mvallejos
17 de Agosto del 2009
PodrÃas hacer una function que tome el valor keyascii del evento keypress y lo evalue
Function ValidaTeclaNum(KeyAscii As Integer) As Integer
Select Case KeyAscii
Case 13, 27, 8, 9
ValidaTeclaNum = KeyAscii
Case Asc("0") To Asc("9")
ValidaTeclaNum = KeyAscii
Case Else
ValidaTeclaNum = 0
End Select
End Function
Esta funcion, si el keyascii corrspnde a un dÃgito, o bien ENTER, retroceso y Tab, retorna el mismo valor, sino retorna 0
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ValidaTeclaNum(KeyAscii)
End Sub
Si la funcion retorna 0, el teclazo se anula, ya que en el evento keypress puedes manipular el valor keyascii antes de que el mismo aparezca escrito en el texto.
Saludos
Function ValidaTeclaNum(KeyAscii As Integer) As Integer
Select Case KeyAscii
Case 13, 27, 8, 9
ValidaTeclaNum = KeyAscii
Case Asc("0") To Asc("9")
ValidaTeclaNum = KeyAscii
Case Else
ValidaTeclaNum = 0
End Select
End Function
Esta funcion, si el keyascii corrspnde a un dÃgito, o bien ENTER, retroceso y Tab, retorna el mismo valor, sino retorna 0
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ValidaTeclaNum(KeyAscii)
End Sub
Si la funcion retorna 0, el teclazo se anula, ya que en el evento keypress puedes manipular el valor keyascii antes de que el mismo aparezca escrito en el texto.
Saludos