Poner formato moneda a un textbox

Necesito que un texbox en visual 6.0 y en tiempo de ejecución me muestre el número que dígito en formato de moneda.
Ejemplo: dígito 10250.25 y me ponga 10,250.25 todo el el mismo texbox donde estoy escribiendo y en tiempo de ejecución.
Tengo el siguiente código que me hace lo anterior, pero no me deja poner decimales.

Evento change del text1
dim i as integer
text1.text=formatnumber(text1.text, 2)
i =len (text1.text)
text1.selStart=1

Esto me pone cuando escribo formato de moneda pero no me permite los decimales.

2 Respuestas

Respuesta
1

Intenta cambiar el tipo de la variable de Integer a Single, Integer solo te admitirá números enteros.

Suerte!

Respuesta

Seria mejor que pongas en el evento lostfocus esta línea

text1.text=format$(text1.text, "##,##0.00")

Y que en el evento keypressed controles que solo te permita ingresar números

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formato moneda en ejecución Textbox VB 6.0

Es sobre el formato moneda en tiempo de ejecución de un textbox, es decir, que al estar yo ingresando la cantidad, me transforme la cantidad, como la que se muestra abajo: 1,349.00 Lo que yo estaba usando, es el evento Keypress y este es el código:...
1 respuesta

Problema formato moneda textbox ejecución

Es sobre el formato moneda en tiempo de ejecución de un textbox, es decir, que al estar yo ingresando la cantidad, me transforme la cantidad, como la que se muestra abajo: 1,349.00 He logrado ese formato con esta instrucción: label1= format...
2 respuestas

Formato textbox

Quería sabar como hacer para dar formato a lo que se digita en los texbox Por ejemplo si es un un numero 323325 se vea como 325.325.00 y que si es fecha me de la posibilidad de que las divisiones por / estén determinadas así: / /
1 respuesta

Validar textbox y MaskEdBox

Tengo un par de problemitas uno es que quiero validar un textbox de la siguiente manera. Quiero ingresar un cedula "8 dígitos" en la caja de texto ya le coloque MaxLength = a 8 máximo, pero también quiero que cuando se haga click en la caja de texto...
4 respuestas

Limitar a escribir 4 dígitos después de punto decí

Espero puedan ayudarme con esto, tengo un formulario con textbox en los que el usuario escribe cantidades con punto decimal, lo que quiero hacer es que solo se permita escribir cuatro dígitos numéricos después del punto decimal, es decir identificar...
1 respuesta

Textbox solo acepte numero y también me acepte 3 decimales

Me pueden ayudar con este código lo que pasa necesito que un text box solo me acepte numero pero a su vez decimales le escribí el código pero no me acepta decimales solo números Les adjunto el código que estoy utilizando y una imagen Este código me...
1 respuesta

Convertir enteros a decimales en listbox

Estoy ingresando números a un listbox pero me aparece como enteros ¿Como hago para que me aparezcan con decimales con dos dígitos es decir de 20 que muestre 20.00 estoy utilizando este código que me permite ingresar el numero Me. ListBox4....
1 respuesta

Sobreescribir en un TextBox

Quisiera hacerte la siguiente pregunta : ¿Cómo lo puedo hacer para "sobreescribir" texto en un "TextBox" ..?, sin que estos se desplazen mientras escribo. No quiero usar el RichTextBox porque pierdo las propiedades del TextBox. . Si existe alguna forma.
2 respuestas

Formato moneda a textbox en vba

Tengo un pequeño proyecto para imprimir cheques desde un formulario en vba excel, en el textbox donde va la cantidad deseo que en tiempo de ejecución me aparezca esa cantidad en millares con dos decimales, tengo este codigo TextBox1.Text =...
2 respuestas

Insertar formato celda con TextBox

Desde Private Sub Insertar_click() y Private Sub Editar_Click() el TextBox7 ademas de la función que ejecuta, también inserte conjuntamente esta formula NumberFormat = """Bs.F"" * #,##0.00;""Bs.F"" * -#,##0.00"
1 respuesta