Jump to content

Redimensionar textbox multiline al escribir


Recommended Posts

Buenos días a todos;
-Os voy a insertar un enlace de mi requerimiento donde os explico un poco lo que quiero conseguir si es posible.
Enlace video:


En la macro tengo un textbox con la propiedad multiline en true.
Al ir escribiendo una vez que llegue a un número de caracteres hace como un salto de línea y empieza e escribir debajo para eso lo que hago es ir aumentando el alto del textbox y Frame.
Mi idea es que una vez que yo haga clic en el textbox este aumente el tamaño del alto si no coge en la línea hasta hacerlo coger todo y al hacer doble clic que recupere su tamaño inicial.
La simulación la he hecho solo aumentando el alto y no sé si se puede también con el largo.
Espero que entre lo escrito aquí y el video se pueda entender la idea.

Saludos y buen día a todos.

MAutoajustar.xlsm

Link to comment
Share on other sites

Hola a todos;

Creo haber resuelto el misterio, o por lo menos ahora hace lo que pretendía. 

He cambiado todo el código por uno más  sencillito.

He eliminado también el frame ya que no es necesario al haber puesto en el evento change del texBox1:

Me.TextBox1.ZOrder

Con lo cual ya no queda oculto el textBox.

A ver que os parece:

Private Sub TextBox1_Change()
If Len(Me.TextBox1) < 25 Then
    Me.TextBox1.MultiLine = False
    Me.TextBox1.AutoSize = True
    Me.TextBox1.ZOrder
Else
    Me.TextBox1.MultiLine = True
    Me.TextBox1.ZOrder
Exit Sub
End If
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Height = 20
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) '<------He añadido esto
Me.TextBox1.MultiLine = False
Me.TextBox1.AutoSize = False
Me.TextBox1.Width = 96
End Sub


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then 'tecla Enter
TextBox2.SetFocus
Me.TextBox1.Height = 20
Exit Sub
End If
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1.MultiLine = False
End Sub

He añadido el evento Exit del al textBox1 y también he cambiado el evento Change.
Saludos y buen finde.
 
 

 

 

Edited by Benito Bartolomé
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy