• Lunes 23 de Diciembre de 2024, 01:28
« anterior próximo »
Páginas: [1]

Autor Tema:  Text Que Tenga El Simbolo De La Moneda  (Leído 990 veces)

erick185

  • Miembro activo
  • **
  • Mensajes: 37
    • Ver Perfil
Text Que Tenga El Simbolo De La Moneda
« en: Miércoles 20 de Septiembre de 2006, 05:07 »
0
Hola

Tengo una duda, se puede hacer que cuando uno ingrese una cantidad el simbolo de la moneda aparesca automaticamente, ejemplo:

Si yo coloco 100 dentro del text, que automicamente aparesca asi  $ 100.00 es posible hacer esto.

Espero que me hayan explicado, cualquier opinion sera bienvenida.

De antemano gracias

Salu2

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Text Que Tenga El Simbolo De La Moneda
« Respuesta #1 en: Miércoles 20 de Septiembre de 2006, 05:13 »
0
Revisa la función Format

Código: Text
  1.     Dim lngNum As Long
  2.     lngNum = 100
  3.     Text1.Text = Format(lngNum, "$###,###.00")
  4.  
  5.  
:comp:

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Text Que Tenga El Simbolo De La Moneda
« Respuesta #2 en: Miércoles 20 de Septiembre de 2006, 05:16 »
0
Para que aparezca en forma automática coloca el código em el evento LosFocus

Código: Text
  1. Private Sub Text1_LostFocus()
  2.     Dim lngNum As Long
  3.     Text1.Text = Format(lngNum, "$###,###.00")
  4. End Sub
  5.  

 :comp:
Páginas: [1]
« anterior próximo »