Private Sub Form_Load() RichTextBox1.Text = "(Reverse engineering). La ingeniería inversa es el proceso de descubrir los principios tecnológicos de un dispositivo, objeto o sistema, a través de razonamiento abductivo de su estructura, función y operación." RichTextBox1.SelStart = Len(RichTextBox1.Text) End Sub
Private Sub RichTextBox1_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then '---> Si presiono la tecla Espacio CambiarColor ' ---> Llama al procedimiento CambiarColor End If End Sub
Public Sub CambiarColor() With RichTextBox1 .SelStart = 0 '---> Comienza desde el principio Do x = .Find("hola", .SelStart, , rtfWholeWord Or rtfMatchCase)'---> Busca la palabra .SelColor = vbRed '---> Establece el color .SelStart = .SelStart + 1 '---> Incrementa en 1 Loop Until x = -1 .SelStart = Len(.Text) '---> Se posiciona al final de todo End With End Sub
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) RichTextBox1.SelColor = vbBlue '---> Tipea de color azul End Sub
Hola,busca en Planet Source Code(lo pongo entero porque si pongo PSC despues ni saben que es..)ahi hay codigos he visto para colorear palabras que vos definis desde codigo que deben tener color que quieras...