Crear un highlight en VB 6.0

[Allowski]

Primero quiero decirles que ya tengo algo de experiencia en Visual Basic, pero se me hace difícil en este tema...
Tengo un richtextbox donde el usuario ingresara un texto, formateado en BBCode, lo que quiero es que al ingresar un Corchete, este cambie de color automáticamente, hé provado ya varias formas, Instr("RichTextBox1", 0, "["), pero nada, tambien intente por matrices y vectores, pero tampoco me soluciono, por que consume muchos recursos y es lento...
Tambien hé utilizado el control cEdit pero es una mierda....


Espero que puedan ayudarme...

[erbuson]

Creo que esto, puede ser una idea, para empezar, pero no es mas que un simple ejemplo, el resto depende de ti, con imaginación e ingenio será facil ya ves que no importa complicarse mucho la vida.

Código vb:

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
  If Chr$(KeyAscii) = "[" Or Chr$(KeyAscii) = "]" Then
    RichTextBox1.SelColor = vbBlue
  Else
    RichTextBox1.SelColor = vbBlack
  End If
End Sub
 

Saludos

[erbuson]

Una posibilidad mas y diferente.

Código vb:

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
  Static ColorNegro As Boolean
  If ColorNegro Then
    ' Si recibió un caracter de Cierre, activa antes color Negro
    RichTextBox1.SelColor = vbBlack
    ColorNegro = False
  End If
  Select Case Chr$(KeyAscii)
    Case Is = "[": RichTextBox1.SelColor = vbBlue
    Case Is = "(": RichTextBox1.SelColor = vbRed
    Case Is = "{": RichTextBox1.SelColor = vbGreen
    Case Is = "<": RichTextBox1.SelColor = vbMagenta
    Case Is = "¿": RichTextBox1.SelColor = vbCyan
    Case Is = "]", ")", "}", ">", "?"
      ColorNegro = True
      ' Cambiará color justo antes de la próxima pulsacion
  End Select
End Sub
 

Solo necesitas un RichTextBox para probarlo

[Allowski]

Muchas gracias señores...
Me han ayudado bastante...