Autor Tema: Textbox Con Formato (Leído 1686 veces)

none123 · « **en:** Miércoles 9 de Marzo de 2005, 05:49 »

Gente... como va?
He buscado en este foro y en toda la internet pero no logro encontrar nada de lo q busco

;
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.

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

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 = &#34;###.###.###.####&#34;
 
'Esto funciona
MaskEdBox1.Text = Format(&#34;1234567890123&#34;, &#34;###.###.###.####&#34;)
 
'Esto también
MaskEdBox1.Text = &#34;123.456.789.0123&#34;
 
'Esto peta
MaskEdBox1.Text = &#34;1234567890123&#34;

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, &#34;###.###.###.####&#34;)
    Text1.SelStart = bytPosicion
 
End Sub

---------- o ----------

SoloCodigo

Autor Tema: Textbox Con Formato (Leído 1686 veces)

none123

Textbox Con Formato

Brroz

Re: Textbox Con Formato

elmango80

Re: Textbox Con Formato