mostrar numeros del textbox en moneda en tiempo de ejecucion

[ernestoelunico]

como dice mi titulo yo quiero que en tiempo de ejecucion es decir mientras estoy trabajando en mi formulario de vb6 al incertar datos numericos en mi textbox aparesca por defecto el signo de modena en el.


y que cuando cargue el formulario tambien en mis text aparesca por defecto $0.00
y de ahi que al meter datos se mantenda este formato es decir que si yo digito 100
me aparesca en tiempo de ejecucion $100.00.

tambien quiero saber si esto no afectaria que estos datos los estoy guardando en una base de datos de access 2003 cuya propiedad de los campos es moneda no se si abri algun tipo de problema al tratar de hacer esto

[Avellaneda]

Iniciado por ernestoelunico

como dice mi titulo yo quiero que en tiempo de ejecucion es decir mientras estoy trabajando en mi formulario de vb6 al incertar datos numericos en mi textbox aparesca por defecto el signo de modena en el.


y que cuando cargue el formulario tambien en mis text aparesca por defecto $0.00
y de ahi que al meter datos se mantenda este formato es decir que si yo digito 100
me aparesca en tiempo de ejecucion $100.00.

tambien quiero saber si esto no afectaria que estos datos los estoy guardando en una base de datos de access 2003 cuya propiedad de los campos es moneda no se si abri algun tipo de problema al tratar de hacer esto

Tienes que formatear el número:

Text1.Text = Format(Numero, "Currency")

así lo pondrá en el formato que tengas en las propiedades regionales del sistema, si no es el mismo y quieres variarlo:

Text1.Text = Format(Numero, "$#,##0.00")

[ernestoelunico]

mmmm encontre una forma de hacerlo mas facil

on el MaskedEditBox, solo le pones la mascara con el signo de moneda x ejemplo la Mask: "$#####.00" y listo te deberia d aparecer en moneda

esto y ya te aproxima directamente de una vez

[ernestoelunico]

Iniciado por Avellaneda

Tienes que formatear el número:

Text1.Text = Format(Numero, "Currency")

así lo pondrá en el formato que tengas en las propiedades regionales del sistema, si no es el mismo y quieres variarlo:

Text1.Text = Format(Numero, "$#,##0.00")

no no funciono mmm
en donde lo tenia que meter
Private Sub text1_KeyPress(KeyAscii As Integer)

o

Private Sub form1_click()


porque ya intente los 2 y o me funciono


y si declare la variable numero porque no estaba declarada

[ernestoelunico]

este es el codigo que tengo lo primero me sirve para bloquear que el usuario ingrese otra cosa que no sea numeros y lo ultimo se supone que es para hacer lo que yoq quiero pero no me funciona

Private Sub text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0
End If
If KeyAscii = 13 Then
KeyAscii = 0 ' Para que no "pite"
SendKeys "{tab}"
StrDeFormato = Format(Text1, "$#,##0.00")
Text1.text = StrDeFormato
End If
End Sub

[Avellaneda]

Lo tienes que poner en el evento LostFocus o Validate del TextBox, y procura no declarar variables innecesarias:

Text1.Text = Format(Text1, "$#,##0.00")

[OMICRON_PQ]

Iniciado por ernestoelunico

mmmm encontre una forma de hacerlo mas facil

on el MaskedEditBox, solo le pones la mascara con el signo de moneda x ejemplo la Mask: "$#####.00" y listo te deberia d aparecer en moneda

esto y ya te aproxima directamente de una vez

Me gusta tu respuesta pero no se por que no me funciona utilizo el Masked del ToolKit ajax para asp puedes audarme con las especificaciones