+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Controles/Librerías/Componentes (https://gambas-es.org/forum-7.html)
+--- Tema: Control Maskbox. ¿ Cómo fija la longitud del texto ? (/thread-236.html)
Control Maskbox. ¿ Cómo fija la longitud del texto ? - Shell - 17-01-2021
Buenas!.
Cuando escribimos en una caja de texto y queremos cambiar de nuevo su contenido totalmente. Debemos obligatoriamente
hacer unas operaciones para logar ese cometido. Ya sea colocarnos al principio del texto, seleccionar el texto, borrarlo.
Esto es algo hipotético ya que no sabemos de antemano saber cuando va a medir nuestro texto dentro de una caja de texto.
Por ejemplo que nuestra caja de texto solo admita cuatro caracteres y si continuamos escribiendo, se limpia la caja y
comienza de nuevo con la última tecla pulsada.
Código:
Public Sub TextBox1_KeyRelease()
If TextBox1.Text.Len > 4 Then
TextBox1.Clear
TextBox1.Text &= Key.Text
Endif
EndEn el control Maskbox limita el número pero la operación de borrado y comenzar de nuevo es igual.
¿ Quién fija la máxima longitud de la caja de texto del control MaskBox ?.
¿ Su propiedad "maxlength ?. Aparentemente no..
Es que quería hacer trampas en esta parte...
Código:
Public Sub Form_Open()
Me.Title = "Cajas de texto"
TextBox1.Font = Font["Arial, 48"]
MaskBox1.Font = Font["Arial, 48"]
MaskBox1.Mask = "AAAA"
'Pruebo a cambiar esta propiedad
MaskBox1.MaxLength = Len(MaskBox1.mask) + 1
End
Public Sub TextBox1_KeyRelease()
If TextBox1.Text.Len > 4 Then
TextBox1.Clear
TextBox1.Text &= Key.Text
Endif
End
Public Sub MaskBox1_KeyRelease()
If MaskBox1.Text.Len > 4 Then
MaskBox1.Clear
MaskBox1.Text &= Key.Text
Endif
EndPero se quedó igual.
Puede que en algún momento esa opción fuera útil pero rara de ver.
Saludos