Tema: como valido numero y el punto en un textBox
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 11/05/2007, 08:46
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 22 años
Puntos: 19
Re: como valido numero y el punto en un textBox
Código: 
Public Function EsNumero(KeyAscii) As Boolean
Select Case KeyAscii
    Case 8, "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", 13, "."
        EsNumero = True
    Case Else
        EsNumero = False
    End Select
End Function
Es la hise hace tiempo y la uso siempre....

En el evento "KeyAscii" del textbox, tenes que llamar a la funcion. te doy un ejemplo:

Código: 
If EsNumero(KeyAscii) = False Then
       KeyAscii = 0 ' con esto no escribe ese caracter
       Msgbox "Solo se pueden ingresar numeros y punto" ' le avisamos al usuario
End If
Eso es todo