como valido numero y el punto en un textBox

[celex]

buenas tardes, tengo una duda de validar numeros con el punto y que no me permita capturar letras o signos, el punto en acii es el 250 y este es mi codigo:

Código PHP:

  Private Sub Text1_KeyPress(KeyAscii As Integer) 
GCaracter = Chr(KeyAscii) 
MsgBox GCaracter 
If Not (GCaracter = Chr(8) Or GCaracter = Chr(13)) Then 
    If GCaracter < Chr(48) Or GCaracter > Chr(57) Then 
        KeyAscii = 0 
        Beep 
    End If 
End If 
End Sub  
   

gracias

[xaquin]

y cual es la duda?

[culd]

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

[celex]

ya lo probe pero el codigo lo realize sobre le evento Keypress pero no me deja escribir nada, sin encambio lo pongo a true cuando detecta el acii del keypress me deja pasar y puedo escribir letras.
Ya no me valida numero y punto
gracias

[fero]

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
Case 8, 13, 48 To 57, Asc(".") ' o Asc(",")
Exit Sub
Case Else
KeyAscii = 0
End Select

End Sub

Para culd:
keyascii es integer, no se puede comparar en el select con "1", "2", etc.
En todo caso con Asc("1"), etc.

[Kitty_05]

No se q seria de mi sin ustedes, todas las respuestas las encuentro aki para ustedes :)

[seba123neo]

jaja el post es de hace un año,pero bueno si te sirvio mejor,pero tambien estan las FAQ