Test Foro de elhacker.net SMF 2.1

Podria alguien decirme por favor, como hago para hacer que una RTB sea autoeditable con el evento CHANGE en VB?
si hay alguna palabra que la coloree enn azul que se yo...
gracias por su ayuda

explicate mejor, porque si ni vos sabes lo que queres diciendo "que se yo" los demas no vamos a poder ayudarte.

eso exactamente lo que hiciste tu con la palabra "que se yo" que se puso en verde pero de forma automatica, cuando puse "que se yo", me referia a X color o a X palabra, constante o expresion...
voy a hacer un editor que cuando termine de escribir la palabra "HOLA", esta se ponga en verde(no HOLAS, ni HOLAL, solo HOLA), y cuando ponga ADIOS, se haga en negritas(no ADIOSES,ni ADIOSO,solo ADIOS), repito: "automaticamente!!!"
Nomas no me dejen tirado con esto no?"!!!

Este es un codigo cree para un chat bot, se utiliza:

AddChat Form.RitchTextBox, vbGreen, "Hola!! ", vbBlue, "Como estas!!?"

esto te daria de resultado:

Hola!! Como estas!!?


Public Sub AddChat(rtbChat As Control, ParamArray saElements() As Variant)
    Dim i as integer

    For i = LBound(saElements) To UBound(saElements) Step 2
        With rtbChat
            .SelStart = Len(.Text)
            .SelLength = 0
            .SelColor = saElements(i)
            .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
            .SelStart = Len(.Text)
            Data = Data & saElements(i + 1)
        End With
    Next i
End Sub


pues no lo calare todavia pues no tengo VB aqui pero de entrada muchas gracias carnal, de veras llevaba varios meses preguntando y buscando y nada...


y el cursor donde queda?

El cursor queda al final del documento:

.SelStart = Len(.Text)

La seleccion se queda al final porque la funcion Len devuelve la cantidad de caracteres de rtbChat

Hace mucho tiempo que no respondia, pero no se como hacer funcionar tu funcion(pleonasmo), y si se da el caso de que en mi editor quiero escribir una palabra a la mitad de lo que habia escrito, el cursor deberia quedar al final de la palabra que acabo de escribir y no al final del documento...

O podes hacer mas facil y usar scintilla

http://www.scintilla.org/

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

Busca eso del RTB en psc http://www.planet-source-code.com (http://www.planet-source-code.com)

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

hola, proba con esto:


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.

Cita de: ignorantev1.1 en 14 Mayo 2008, 20:31 PM
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+    

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.