formato en textbox, separar miles con decimales
Publicado por Buka (94 intervenciones) el 26/02/2004 21:42:41
Hola programadores,
necesito su ayuda nuevamente, en mi sistema tengo textbox que debe poder ingresar valores, pues bien, tengo un codigo que permite ingrersar solo numeros y va separando los miles tras el evento change, pero ahora se le ocurrio al cliente :( , que ademas de separar miles deba poder ingresar valores decimales, (ej: 16.523,45) .y eso no lo he podido lograr, y por eso es que necesito vuestra ayuda, a continuación
le envio el codigo que separa miles en el textbox, pero no admite los decimales, aver si os ucurre algo.
Private Sub txcontado_Change()
Dim posSel As Long
posSel = txcontado.SelStart
txcontado.Text = Format(txcontado.Text, "###,###,###")
txcontado.SelStart = posSel + 1
End Sub
Mil gracias
Buka
necesito su ayuda nuevamente, en mi sistema tengo textbox que debe poder ingresar valores, pues bien, tengo un codigo que permite ingrersar solo numeros y va separando los miles tras el evento change, pero ahora se le ocurrio al cliente :( , que ademas de separar miles deba poder ingresar valores decimales, (ej: 16.523,45) .y eso no lo he podido lograr, y por eso es que necesito vuestra ayuda, a continuación
le envio el codigo que separa miles en el textbox, pero no admite los decimales, aver si os ucurre algo.
Private Sub txcontado_Change()
Dim posSel As Long
posSel = txcontado.SelStart
txcontado.Text = Format(txcontado.Text, "###,###,###")
txcontado.SelStart = posSel + 1
End Sub
Mil gracias
Buka
Valora esta pregunta
0