Ayudenme con esto porfavor tengo lo siguiente:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
'num = Len(datos)
Select Case Left(datos, 4)
Case "Rojo"
RichTextBox1.SelColor = &HFF& '=rojo
RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
Case "Azul"
RichTextBox1.SelColor = vbBlue
RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos + vbCrLf)
Case "Verd"
RichTextBox1.SelColor = vbGreen
RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
Case "Amar"
RichTextBox1.SelColor = vbYellow
RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
Case "none"
RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
Case Else
'RichTextBox1.SelColor = &HFF& '=rojo
RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
End Select
End Sub
de esta manera recibo los datos del otro lado y puedo cambiarles de color .
y de esta manera los envio.
Private Sub Command1_Click()
On Error Resume Next
Dim enviar As String
Dim color As String
enviar = Text1.Text
color = Combo1.Text
Winsock1.SendData color + enviar
End Sub
Si se pueden dar cuenta envio el color junto con el texto pero.
en el comobo tengo esta lista.
Rojo
Azul
verd
Amar
none
si me paso al poner mas de 4 carcateres me falla por que al recibir lo tengo solo con 4 y al recibir el mensaje me sal esto.
servidor diceRojo hola como estas
y la idea es que no salga la palabra rojo nose si alguien me puede ayudar a mejorar este codigo porfavor.