Foro de elhacker.net

Te refieres a cambiar el color del user usando el control RTF de VB o editar el codigo RTF para cambiar el color del user?

Lo que quiero es que al servidor recibir los datos, si el usuario que envio el mensaje es digamos de rango 1 pues el color de su user sera de color Gris pero si es 2 seria de color rojo y haci sucesivamente, entonces quiero que el servidor envie a todos los chats el color del usuario mas su mensaje, ejemplo:

brian1511 : Este es mi mensaje!!

Gracias por responder tan rapido ;)

Entiendo lo que quieres, pero no me queda claro cómo lo quieres hacer.

De todas formas, para hacerlo sencillo, podrías generar el código RTF sólo para el texto que envías.
Siguiendo tu ejemplo, el color del texto es negro y el del usuario seria rojo (ojo, texto rojo, no backcolor).
El codigo RTF seria:


En RTF primero defines los colores que se usarán en el texto con una tabla. Fíjate que definí 2 colores: negro y rojo (RGB: 0x000000 y 0xFF0000).
Luego, en el texto, antepones \cfX, donde X es el índice del color a usar para pintar el texto. En el ejemplo \cf1 dice que lo que sigue se pintará usando el color 1 de la tabla de colores. Con \cf0 se sigue pintando usando el color en el indice 0.

Como dato extra, para resaltar (backcolor) debes usar lo mismo, pero con el keyword "\highlight". Entonces, \highlight0 resaltaría con fondo negro, \highlight1 con rojo, y así sucesivamente.

Espero sea lo que quieres.

Saludos!

Bueno eso es lo que se me envia a los 2 chats el del Servidor y al del Cliente un codigo parecido a ese!,

Este es el codigo que ise para hacer lo de los colores pero no me funciona:

[spoiler]

Public Sub Global_Chat(Level As String, User As String, Msg As String)
Dim Color As Long
Dim Text As String
 
Select Case Level
 
Case "0":
Color = RGB(0, 0, 0)
Case "1":
Color = RGB(128, 128, 128)
Case "2":
Color = RGB(30, 144, 255)
Case "3":
Color = RGB(255, 69, 0)
Case "4":
Color = RGB(0, 128, 0)
Case "5":
Color = RGB(255, 255, 0)
End Select
 
frmServer.txtRTF.Text = User & " : " & Msg
 
With frmServer.txtRTF
    'Selecciona todo
    .SelStart = .Find(User)
    .SelLength = Len(User)
    .SelColor = Color
    .Font.Bold = True
End With
 
frmServer.txtChat.TextRTF = frmServer.txtChat.TextRTF & frmServer.txtRTF.TextRTF & vbNewLine
 
For i% = 1 To frmServer.Winsock1().UBound
        Select Case frmServer.Winsock1(i%).State
            Case Is = sckConnected
                frmServer.Winsock1(i%).SendData "GCHAT||" & frmServer.txtChat.TextRTF
                DoEvents%
            Case Else
        End Select
    Next i%
 
End Sub
 

[/spoiler]

Y lo que resivo es un codigo del color que se supone que deberia de ir solo el user y el mensaje :(