• Lunes 23 de Diciembre de 2024, 17:18

Autor Tema:  Re: Por favor ... los maskedbox!!  (Leído 980 veces)

aleli

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Por favor ... los maskedbox!!
« en: Lunes 3 de Febrero de 2003, 05:12 »
0
quisiera darle al operador la comodidad de que :
si ingresa en un maskedbox 12.20 con el teclado numerico, la maquina lo cambie por 12,20
y como tendria que poner para que el campo se inicialize con 0,00
Muchas Gracias.

Egala

  • Miembro activo
  • **
  • Mensajes: 47
    • Ver Perfil
Por favor ... los maskedbox!!
« Respuesta #1 en: Lunes 3 de Febrero de 2003, 08:51 »
0
prueba esto en  el evento change:

If Right(MaskEdBox1.Text, 1) = "." Then
   MaskEdBox1.Text = Left(MaskEdBox1.Text, Len(MaskEdBox1.Text) - 1) & ","
   MaskEdBox1.SelStart = Len(MaskEdBox1.Text)
End If

para lo del formato 0.00 usa el format

Suerte

Egala
Suerte

Egala