Cómo ajustar cuadros de texto en VB

Fui el primero en responder, pero para abordar tanto la segunda como la tercera pregunta, modifiqué mi respuesta para ser la última

1 .------ -------------------------------------------------- -------- -------------

Establezca la propiedad MultiLine de Text4 en True

Copia el siguiente código:

¿Privado?Sub ?Form_Load()

Text4.Text=?""

Fin?Sub

Privado?Sub?Command1_Click()

Texto4 .Texto?=?Texto4.Texto?+?Texto1.Texto?+?Texto2.Texto?+?Texto3.Texto?+?vbCrLf

End?Sub

'Abajo Es para garantizar que el foco de Text4 esté al final. Intente eliminar las siguientes tres líneas y observe el efecto. Encontrará que estas tres líneas también son muy importantes.

Privado?Sub?Text4_Change()

Texto4 .SelStart?=?Len( Texto4.Text)?

Fin?Sub

2.--- ---------------- ---------------------------------- ----------- Si está utilizando Lista también se puede utilizar. El siguiente paso es hacer doble clic para copiar el contenido del elemento de la tabla

Private?Sub?List1_DblClick. () Portapapeles.Borrar Portapapeles.SetText?List1.List(List1.ListIndex) MsgBox?"El contenido de este elemento se ha copiado al portapapeles, utilice Ctrl+V para pegar"

End?Sub

3. ------------------ ----------------------- ------------------------

Richtextbox es mejor que textbox. Por ejemplo, richtextbox también puede establecer el color de fuente para cada línea. . Por ejemplo, RichTextBox puede establecer diferentes colores de fuente para cada línea, mostrar imágenes, etc. Pero aquí no es necesario usarlo para estos propósitos complejos.

Primero, haga clic en "Proyecto", "Partes" y luego busque "Microsoft?Rich?textbox Contral?. 0", haga clic en "Aceptar". ", y luego podrás verlo en la herramienta, en forma de RichTextBox1.

¿RichTextBox1?

No es necesario configurar MultiLine, el código está escrito de la misma manera. Usar Text4 es casi lo mismo

Copia el siguiente código:

Private?Sub?Form_Load()

RichTextBox1?=?"

Fin? Sub

Privado?Sub?Command1_Click()

RichTextBox1.Text?=?RichTextBox1.Text?+?Text1.Text?+?Text2.Text?+?Text3 .Texto? RichTextBox1.SelStart=?Len(RichTextBox1.Text)?'.

Asegúrate de que el foco de RichTextBox1 esté al final

End?Sub

¡Probé todo el código anterior y es totalmente simple y fácil de usar! ?¡Ver fotos!