Rich Text Box Autoeditable en VB 6.0

Iniciado por ignorantev1.1, 8 Marzo 2008, 03:38 AM

0 Miembros y 1 Visitante están viendo este tema.

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

Sancho.Mazorka

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


Sancho.Mazorka    :¬¬
Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html



ignorantev1.1

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?"!!!

UKWN

#3
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

ignorantev1.1

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?

Sancho.Mazorka

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


Sancho.Mazorka    :¬¬
Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html



ignorantev1.1

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

cobein

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

ignorantev1.1

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

naderST