• Domingo 22 de Diciembre de 2024, 13:38
« anterior próximo »
Páginas: [1]

Autor Tema:  Txt Con Formato Para Dinero  (Leído 1536 veces)

sndr82

  • Miembro activo
  • **
  • Mensajes: 46
    • Ver Perfil
Txt Con Formato Para Dinero
« en: Viernes 29 de Julio de 2005, 16:10 »
0
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!!!
· Ï Wånt Drînk Yôur Söul ·

shakka

  • Miembro HIPER activo
  • ****
  • Mensajes: 679
  • Nacionalidad: cr
    • Ver Perfil
    • http://mbrenes.com
Re: Txt Con Formato Para Dinero
« Respuesta #1 en: Viernes 29 de Julio de 2005, 20:06 »
0
pruaba esto...

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,##0")
End Sub

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Txt Con Formato Para Dinero
« Respuesta #2 en: Viernes 29 de Julio de 2005, 20:48 »
0
Asi para que se te vaya al final del texto.
Código: Text
  1. Private Sub TextBox1_Change()
  2. x = Len(TextBox1.Text)
  3. TextBox1.Text = Format(TextBox1, "#,###")
  4. TextBox1.SelStart = x + 1
  5. End Sub
  6.  
Usa las etiquetas code mbrenes por fa' para que se vea mas bonito. :P
El pasado son solo recuerdos, el futuro son solo sueños

sndr82

  • Miembro activo
  • **
  • Mensajes: 46
    • Ver Perfil
Re: Txt Con Formato Para Dinero
« Respuesta #3 en: Lunes 1 de Agosto de 2005, 18:23 »
0
Muchas graciasss chicoss me ha ido de maravilla!!!!
· Ï Wånt Drînk Yôur Söul ·
Páginas: [1]
« anterior próximo »