Comunidad Gambas-es

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.

GAMBAS

Public Sub TextBox1_KeyRelease()
    
  If TextBox1.Text.Len > 4 Then
    TextBox1.Clear
    TextBox1.Text &= Key.Text
  Endif
 
End

En 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... Tongue

GAMBAS

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
 
End

Pero se quedó igual.

Puede que en algún momento esa opción fuera útil pero rara de ver. Rolleyes

Saludos

Shell