Introducir valores decimales en textbox

tyloya
07 de Abril del 2004
Hola
He restringido la inserción de datos en un textbox, para que sólo se introduzcan números,...quiero que sólo se permitan valores numéricos, como cantidades de dinero,....pero no me admite que introduzca valores decimales como 12,44,..etc....

El código que uso es este:

Private Sub txtdinerop_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 9 _
Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
Exit Sub
errdes:
MsgBox Err.Descriptio, vbInformation, "Warning"
Exit Sub

End Sub

Cómo hago para que me deje introducir valores decimales?
Gracias

rafa
07 de Abril del 2004
Hol Tyloya.
Tienes que permitir introducir la , o el . (segun quieras)
seria asi:
if KeyAscii = 46 then keyascii=44 'si pulsan . lo convierto en , (o al reves si prefieres)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 9 _
Or KeyAscii = 8 Then or keyascii=44 'o 46 si elegiste .
Else
KeyAscii = 0
End If

tyloya
07 de Abril del 2004
Muy bien,...lo que me faltaba era saber la equivalencia en Ascii del "." y la ",".....thanks