Hola, en un RichTextBox hice que se pueda poner en negrita a un texto seleccionado y en otro boton se puede agregar una nueva linea.
La negrita funciona bien, pero al hacer click en el boton que agrega una nueva linea, a todo el texto que tenia negrita se lo quita. No sé porque pasa esto.
Colocanto un RichTextBox y con CommandButton lo pueden probar.
Código:
Option Explicit
Private Sub Command1_Click()
RichTextBox1.SelBold = True
RichTextBox1.SetFocus
End Sub
Private Sub Command2_Click()
RichTextBox1.Text = RichTextBox1.Text + vbNewLine
RichTextBox1.SelStart = Len(RichTextBox1)
RichTextBox1.SetFocus
End Sub
Private Sub Form_Load()
Command1.Caption = "Negrita"
Command2.Caption = "Nueva línea"
RichTextBox1.Text = "Este texto es para probar"
End Sub
Muchas gracias desde ya por las respuestas.
Saludos