Visual Basic - Validar Decimales en un TextBox. Auxilio

Life is soft - evento anual de software empresarial
 
Vista:

Validar Decimales en un TextBox. Auxilio

Publicado por Fran (78 intervenciones) el 05/06/2003 23:28:37
Mi problema es el siguiente, tengo un textbox donde voy a introducir una cantidad en moneda, o sea, dicho textbox no puede contener otro caracter que no sea numero, pero tambien quiero intriducir decimales (2 decimales)

Mi codigo de validacion es:

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0 'Cancela el caracter
Beep 'Sonido de aviso de error
End If
End Sub

De esta forma solo puedo introducir numeros, pero si permito que ademas de numeros me deje introducir la coma o el punto para asi poder poner decimales entonces no validad la posicion del punto o cuantos puntos puedo poner, y el operador podria introducir valores como estos:

1200,234
,6788
34,767,,899
989,12,234,221,

Tendria que haber una forma de validar dicha coma a que solo se pueda introducir una vez y que este en el lugar correcto.

ALGUIEN SABE COMO HACER ESTO???
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Validar Decimales en un TextBox. Auxilio

Publicado por Marco Santis (265 intervenciones) el 05/06/2003 23:53:08
En el mismo código que tienes debes agregar si existe dicho punto

a= instr(texto, ".")
if a = 0 then 'no existe
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar