Colorear TAGS HTML con RichTextBox

#1 (**permalink**) 09/12/2009, 19:10

Hola amigos,

Estoy intentando colorear con un RichTextBox algunos tags HTML, mientras escribo.
El problema es que los ejemplos que encontré, el texto parpadea ó titila mientras escribo los tags... porque recorre (con bucle) todo el texto para identificarlos y colorearlos...

¿Alguien sabe como hacer un coloreo mientras se escribe en un RTB sin que titile ó parpadee todo el texto?

¿Alguien me puede ayudar con esto?

Lo necesito para reconocer los tags HTML, pero también XML... me sirve un ejemplo sencillo...

Desde ya muchas gracias,
Un saludo,
Hugui

pkj · #2 (**permalink**) 09/12/2009, 20:12

Como imaginaba el truco parece estar en hacer invisible el texto antes de modificarlo y hacerlo visible después.

Con una sub que he creado para el mensaje anterior he hecho unas pruebas con este código y ha dejado de parpadear.
Aqui te dejo el código que he probado:

Código :

Ver originalSub CambiaColor(Palabra As String, Color As ColorConstants, RTB As RichTextBox, Optional DiferenciarEntreMayuscMinusc As Boolean = False)
  Dim Pos As Long
  Pos = IIf(DiferenciarEntreMayuscMinusc, InStr(1, RTB.Text, Palabra), InStr(1, UCase$(RTB.Text), UCase$(Palabra)))
  Do While Pos > 0
    RTB.SelStart = Pos - 1
    RTB.SelLength = Len(Palabra)
    RTB.SelColor = Color
    Pos = IIf(DiferenciarEntreMayuscMinusc, InStr(Pos + 1, RTB.Text, Palabra), InStr(Pos + 1, UCase$(RTB.Text), UCase$(Palabra)))
  Loop
End Sub
 
Private Sub Form_Load()
  Me.Show
  RichTextBox1.Text = "<html>" & vbCrLf & _
"<head></head>" & vbCrLf & _
"<body>" & vbCrLf & _
"</body>" & vbCrLf & _
"</html>"
End Sub
 
Private Sub RichTextBox1_Change()
  Dim Pos As Long
  RichTextBox1.Visible = False
  Pos = RichTextBox1.SelStart
  CambiaColor "<html>", vbBlue, RichTextBox1
  CambiaColor "</html>", vbBlue, RichTextBox1
  CambiaColor "<head>", vbRed, RichTextBox1
  CambiaColor "</head>", vbRed, RichTextBox1
  CambiaColor "<body>", vbGreen, RichTextBox1
  CambiaColor "</bodY>", vbGreen, RichTextBox1
  RichTextBox1.SelStart = Pos
  RichTextBox1.Visible = True
  RichTextBox1.SetFocus ' hay que enfocar porque al ponerlo invisible pierde el foco
End Sub

Suerte

PD: Como no he puesto control de errores, este ejemplo da error al arrancar, ya que en el load se modifica el texto y al querer enfocarlo no puede porque el form aun no es visible.
Añado una línea en el Load que evita el error.

#3 (**permalink**) 09/12/2009, 20:54

Hola pkj,

Impresionante, estas en todos lados, ¿Cómo haces?

Gracias por el ejemplo, funciona bien, la tienes muy clara.

Sobre este tema, ¿Te puedo pedir un pequeño favor?

Mira esto:
http://www.forosdelweb.com/f69/reto-...tivo-758699/#8

Me gustaría colorear también, este tema de los mensajes rotativos, porque la verdad, estaría muy bueno...

¡Mil gracias! De verdad... ya estaba sacando chispas con esto de colorear...

Un saludo,
Hugui

PD: Sí, sobre el error no quería decirte nada, porque me parecía un error menor... GRACIAS