Rich Text Box Autoeditable en VB 6.0

[ignorantev1.1]

Pues, la verdad, baje varios codigos de RTB, quisiera que uno fuera, muchas gracias por la pagina es muuy buena

[((( SPAWN )))]

hola, proba con esto:

Código [Seleccionar] Expandir


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


Saludos.

[cobein]

Y eso que tiene que ver?, no se que es eso!!!!, Publicidad?

Si te tomaras 1 segundo para leer no harias este tipo de comentarios.

A free source code editing component for Win32 and GTK+    

[seba123neo]

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...

saludos.