Insertar texto en negrita en RichTextBox

[linternazo]

Hola muchachada:

A ver si me podéis echar una mano con este asunto.

Tengo un formulario con un RichTextBox y necesito que muestre información con algunas negritas como por ejemplo:

Ángel García
Director general asociado.

Lola Garrido
Asesora técnica en diversos proyectos

Lo que vengo haciendo para conseguir esto es lo siguiente:

1.- Pasar el texto al RTB
2.- Seleccionar la parte que quiero poner en negrita con SelectionStart, SelectionLenght.
3.- Asignar negrita.
4.- Así con todos los textos en negrita.

El caso es que este método es bastante pesado y además como el texto es dinámico me cuesta encontrar donde poner el selectionstart.

He buscado info al respecto pero no doy con la tecla. ¿Existe algún método para indicar al RTB que el trozo de texto que le estás pasando debe ponerlo en negrita?

Espero haberme explicado bien. Estoy con Visual Basic 2010.

Muchas gracias de antemano!

[pkj]

Para pasar texto a negrita tienes que seleccionar lo que quieres cambiar, p.ej. con "rtb.selstart=pos_inicio" y "rtb.sellenght=longitud", y despues usas "rtb.font.bold=true"

La única otra opcion es hacerlo a mano seleccionando el texto con el raton y creando un boton que pase lo seleccionado a negrita.

Si los datos al cargarlos contienen alguna marca que puedas reconocer para saber que esa parte va en negrita, quiza puedas automatizarlo más, pero si no dás más detalles no podemos saberlo.

Saludos

[linternazo]

Gracias por la respuesta.

El usuario que use la aplicación tiene que ver una caja de texto con los nombres en negrita.

El problema es que ese texto cambia cada vez que se carga el formulario por lo que andar calculando el selstart y sellenght de todos los nombres es una pesadilla.

Podría poner una marca delante de cada nombre pero no veo como eso me puede ayudar a ponerlo en negrita. Ej:

***** Código *****

rtb.text = rtb.text & "+ " & nombre(1) & vbcrlf
rtb.text = rtb.text & descripcion(1)
rtb.text = rtb.text & "+ " & nombre(2) & vbcrlf
rtb.text = rtb.text & descripcion(2)


***** Resultado *****

+ Ángel García
Director general asociado.

+ Lola Garrido
Asesora técnica en diversos proyectos

[erbuson]

Hola, si los nombres son siempre los mismos y tienes una tabla con ellos, tampoco le veo yo mayor problema.

Se trata de crear una función genérica a la que le pases el nombre que quieres que ponga en negrita y el RichText que contiene este dato.

La función deberá buscar donde empieza el texto así como la longitud que tiene y efectuar el cambio. Es bastante simple.

Haz lo siguiente:

Crea un Formulario con RichTextBox1, Text1 y Command1 y pega el siguiente código:

Código vb:

Private Sub Form_Load()
  RichTextBox1.TextRTF = "Esto es una prueba de modificar el texto"
End Sub
 
Private Sub Command1_Click()
  EnNegrita RichTextBox1, Text1.Text
End Sub
 
Private Sub EnNegrita(Rtf As RichTextBox, Texto As String)
  Rtf.SelStart = InStr(Rtf.Text, Texto) - 1
  Rtf.SelLength = Len(Texto)
  Rtf.SelBold = True
End Sub
 

Verás como funciona para que lo tengas claro.

Saludos