mensagens coloridas (Help)

[Densyy]

Bom pessoal estou criando um chat

já esta basicamente pronto

Porém eu quero que quando o cliente envie uma mensagem ao servidor

apareça no text1 dos dois o texto da cor verde

e quando o servidor enviar uma mensagem ao cliente

apareça no text1 dos dois o texto azul

Já tentei fazer isso porem ele troca a cor dos textos do servidor e do cliente e torna todos com a mesma cor

vou mostrar melhor como eu fiz aqui

Recebendo os dados

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim STR As String

Winsock1.GetData STR, vbString, bytesTotal

Text1.Text = Text1.Text & STR & vbNewLine

End Sub

Enviando os dados

Private Sub CommandButton3_Click()

If TextBox5.Text = "" Then

Else

Winsock1.SendData apelido & ": " & TextBox5.Text

Text1.Text = Text1.Text & apelido & ": " & TextBox5.Text & vbNewLine

End If

TextBox5.Text = ""

End Sub

Se alguém poder me ajudar

Ficarei Grato

[Matheus-vb6]

Boa noite

tente usar o componente RichText... ele permite controle de cores individual

Caso tenha dificuldades com ele poste aqui

Abraços

[Densyy]

Eae kara vlw pela ajuda

vi aqui que se usa a propriedade .SelColor

porem n estou sabendo usar

já vi um monte de tutoriais mais n deu certo

o que eu queria é algo mais ou menos assim

Winsock1.SendData (Texto) & (alguma coisa que defina ele de outra cor)

Winsock1.GetData (Texto) & (alguma coisa que defina ele de outra cor)

Não existe alguma propriedade que possa ser enviada por winsock e chegue ao outro lado normalmente?

e agora estou com outra duvida

Preciso que quando eu aperte a tecla ENTER

a mensagem seja enviada normalmente

porem isso n acontece

quando eu aperto a tecla ENTER automaticamente é selecionado o botão ENVIAR

sendo assim necessário apertar duas vezes a tecla ENTER

Se poder me ajudar

Ficarei muito grato

Edited December 19, 2011 by Densyy

[Danleonhart]

Em relação a enviar a mensagem ao pressionar a tecla "ENTER", basta configurar o código no evento KeyPress da TextBox...

sabendo que a tecla "ENTER" é equivalente a ao número inteiro "13" no padrão ASCII, use a variável "KeyAscii" para chamar o evento:

Private Sub txtMsg_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
 Case 13
  "Coloque o quê você quer que seja executado..."
End Select
End Sub

Quanto ao RichTextBox vou dá uma olhada no que tenho de informações...

[Densyy]

ai kara no meu caso o codigo q você passou ficou assim

Private Sub TextBox5_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 13

CommandButton1_Click

End Select

End Sub

porem quando eu vou compilar da erro

nessa linha

Private Sub TextBox5_KeyPress(KeyAscii As Integer)

e diz assim:

Procedure declaration does not match description of event or procedure having the same name

Tradução:

Declaração do procedimento não corresponde à descrição do evento ou procedimento com o mesmo nome

Não sei o que fazer mais notei q o erro é somente nessa parte "(KeyAscii As Integer)"

quando eu substituo por

(KeyAscii As MSForms.ReturnInteger)

n da erro porém n cumpri n da certo

n tenho mais ideia do que fazer

[Danleonhart]

Só pode dá erro...um evento dentro de outro evento... :blink:

o correto seria você colocar todo o código que está no CommandButton, na linha onde eu citei no exemplo (coloque aqui...)...

mas para ficar mais simples faça o seguinte:

Private Sub txtMsg_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
  CommandButton1.SetFocus
  SendKeys ("{ENTER}")
End Select
End Sub

O script "SendKeys ("{ENTER}")" simula o clique do botão "ENTER"...

MSN: dannleonhart@hotmail.com

[Densyy]

Kara n deu certo

continuou com o mesmo erro

o erro ocorre nesta linha

Private Sub Textbox5_KeyPress(KeyAscii As Integer)

o codigo esta assim

Private Sub Textbox5_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 13

CommandButton1.SetFocus

SendKeys ("{ENTER}")

End Select

End Sub

Te add no MSN quando se costuma entrar?

[Densyy]

já Resolvi kara

Eu descobri o erro

isso estava ocorrendo por q eu estava usando uma

Textbox e não uma Text

ai estava ocorrendo esse problema

vlw pela ajuda mano

agora se poder me ajudar com o richtextbox com as mensagens coloridas agradeço muito

[Danleonhart]

Densyy

Cara, foi o melhor que pude fazer... :mellow:

Estou corrigindo um projeto e passei uns três dias (mas não direto, claro :) ) bolando uma maneira...e com uma ajudinha de um amigo, fiz este exemplo...

Projeto:

http://www.4shared.com/zip/CxjHchEH/RichTextBox-Testes.html

Espero que ajude em algo !

FUI !

[Densyy]

Po kara vlw mesmo

Ficou perfeito

Agora vou dar uma estudada nele

[Densyy]

Kara deu tudo certinho aqui até a hora de enviar a mensagem

Cai na mesma duvida

como eu enviaria por winsock ?

dim pacotes As String

pacote = Parametros_RTB Text1.Text, Cor, RichTextBox1, Apelido

Winsock1.SendData pacote

Tentei de um bilhão de jeitos mais n consegui nada

acontece um erro na seguinte palavra = Parametros_RTB Text1.Text, Cor, RichTextBox1, Apelido

Copile Error:

Expected: end of statement

Edited December 22, 2011 by Densyy

[Danleonhart]

Você tem de usar a Sub onde a mensagem está chegando...

EX:

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)

Dim StrDados As String
Wsk.GetData StrDados

Parametros_RTB StrDados, vbRed, Rtb1

End Sub

No exemplo coloquei para a mensagem que chegar ficar na cor vermelha

[Densyy]

vou te mandar o projeto acho melhor ok?

Ai você podera ver minha duvida

Download?

Ve se você consegue corrigir o erro

Edited December 23, 2011 by Densyy