Control Maskbox. ¿ Cómo fija la longitud del texto ?

Shell 17-01-2021, 12:27

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

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

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

End

Pero se quedó igual.

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

Saludos

Archivos adjuntos

EjemploConMaskBox-0.0.1.tar.gz (Tamaño: 11.55 KB Descargas: 1)

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln