Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: sndr82 en Viernes 29 de Julio de 2005, 16:10
Título: Txt Con Formato Para Dinero
Publicado por: sndr82 en Viernes 29 de Julio de 2005, 16:10
Hola amigos!
Tengo un txt donde me introducen una cantidad de dinero y me gustaria que conforme vayan ingresando digitos se vayan poniendo los puntos. Ejemplo: 1.000 10.000 100.000 1.000.000 etc...
Espero haverme explicado..... Supongo que habrá algun control o funcion... si la sabeis por favor me hariais un gran favor!!
Muchasss graciasss!!!
Título: Re: Txt Con Formato Para Dinero
Publicado por: shakka en Viernes 29 de Julio de 2005, 20:06
pruaba esto...
Private Sub TextBox1_Change() TextBox1.Text = Format(TextBox1, "#,##0") End Sub
Título: Re: Txt Con Formato Para Dinero
Publicado por: RadicalEd en Viernes 29 de Julio de 2005, 20:48
Asi para que se te vaya al final del texto.
Código: Text
Private Sub TextBox1_Change()
x = Len(TextBox1.Text)
TextBox1.Text = Format(TextBox1, "#,###")
TextBox1.SelStart = x + 1
End Sub
Usa las etiquetas code mbrenes por fa' para que se vea mas bonito. :P
Título: Re: Txt Con Formato Para Dinero
Publicado por: sndr82 en Lunes 1 de Agosto de 2005, 18:23
Muchas graciasss chicoss me ha ido de maravilla!!!!