Programación General > Visual Basic 6.0 e inferiores

 Textbox Con Formato

(1/1)

none123:
Gente... como va?
He buscado en este foro y en toda la internet pero no logro encontrar nada de lo q busco :huh: ;
Mi problema es este: necesito q un textbox use una mascara (###.####.####) pero no logro poder hacer esto; he probado con el DTPicker y tambien con el MaskedBox el cual me resulto muy util hasta q descubri q no posee la principal caracteistica del text box --> NO SE LE PUEDE AGREGAR TEXT!! por lo q no me sirve. :angry:
Si alguien sabe como se puede hacer y como es bien el uso de aparte de las mascaas de los formatos (format) para los mismos ya q tampoco logro agarrarle la vuelta... Bueno desde ya gracias!

Brroz:
Hola none123.


--- Citar ---con el MaskedBox el cual me resulto muy util hasta q descubri q no posee la principal caracteistica del text box --> NO SE LE PUEDE AGREGAR TEXT

--- Fin de la cita ---

A un MaskedBox SÍ le puedes establecer un texto mediante su propiedad TEXT, pero eso sí, el formato del texto ha de ser exactamente igual al que corresponde a la máscara.
Por ejemplo:

--- Código: Text --- MaskEdBox1.Mask = "###.###.###.####" 'Esto funcionaMaskEdBox1.Text = Format("1234567890123", "###.###.###.####") 'Esto tambiénMaskEdBox1.Text = "123.456.789.0123" 'Esto petaMaskEdBox1.Text = "1234567890123"  
Tampoco estaría mal optar por varios textbox juntitos y alineados y separados por un punto...

Chao.

elmango80:
Hola none123!

Lo mejor es usar el MaskedBox pero si quieres usar un Text puedes hacer esto:


--- Código: Text --- Private Sub Text1_Change()Dim bytPosicion As Byte        bytPosicion = Text1.SelStart    Text1.Text = Format(Text1.Text, "###.###.###.####")    Text1.SelStart = bytPosicion End Sub  
 :devil: ---------- o ---------- :angel:

Navegación

[0] Índice de Mensajes