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