RE:Lástima
Publicado por SetFocus (183 intervenciones) el 08/06/2005 04:56:32
Hola! lo que podes hacer es, en vez de utilizar un textbox para guardar el contenido de los otros dos, usar un RichTexbox, que te permite manejar todo ese aspecto de colores, tamaño de fuentes, etc.
Para utilizarlo primero tenes que agregar el control al proyecto, para eso entras en el menu "Proyecto" alli en "Componentes" y de la lista seleccionas "Microsoft Rich Textbox Control" , luego con el siguiente codigo, que podria estar ubicado en un boton, haces lo que pedis:
Private Sub Command1_Click()
With RichTextBox1
' Selecciono el contenido actual del Richtextbox
' y le indico que le asigne el color Verde
.SelStart = Len(RichTextBox1.Text)
.SelLength = 0
.SelColor = vbGreen
'Inserta el contenido del primer textbox y agrega una linea nueva
.SelText = Text1.Text & vbNewLine
' Repito la operacion para el otro textbox
.SelStart = Len(RichTextBox1.Text)
.SelLength = 0
.SelColor = vbRed
.SelText = Text2.Text
End With
End Sub
Bueno, espero sea esto lo que estas buscando. Saludos
Para utilizarlo primero tenes que agregar el control al proyecto, para eso entras en el menu "Proyecto" alli en "Componentes" y de la lista seleccionas "Microsoft Rich Textbox Control" , luego con el siguiente codigo, que podria estar ubicado en un boton, haces lo que pedis:
Private Sub Command1_Click()
With RichTextBox1
' Selecciono el contenido actual del Richtextbox
' y le indico que le asigne el color Verde
.SelStart = Len(RichTextBox1.Text)
.SelLength = 0
.SelColor = vbGreen
'Inserta el contenido del primer textbox y agrega una linea nueva
.SelText = Text1.Text & vbNewLine
' Repito la operacion para el otro textbox
.SelStart = Len(RichTextBox1.Text)
.SelLength = 0
.SelColor = vbRed
.SelText = Text2.Text
End With
End Sub
Bueno, espero sea esto lo que estas buscando. Saludos
Valora esta pregunta


0