WinSock - Tvorba Chatu
S tím, co jsem zatím vytvořili za aplikaci Vás pravděpodobně napadá jediná věta: Já chci chat ! Co je vlastně chat aplikace ? To samé, co jsme již vytvořili, jenom jsou zobrazovány zároveň zprávy Vaše i připojeného uživatele. Takže, chutě do toho:
Použijte aplikaci, kterou jste vytvořili v předchozím kroku. Přidejte ještě jeden TextBox do formuláře, jménu mu zadejte txtChatLog, barvu popředí třeba na fialovou, Locked = True a Multiline na True.
Přidejte následující
proceduru:
Public Sub
AddToChatBox(Speaker As String, Sentence As String)
txtChatLog.Text = txtChatLog.Text & _
(Speaker & ": "
& vbTab & "" & Sentence) & _
vbCrLf
End Sub
Na událost
WinSock1.DataArival zapište:
AddToChatBox "Remote", strIncoming
Do kódu tlačítka, za příkaz
SendData zapište:
AddToChatBox "You", strOutgoingMessage.Text
A je tu primitivní Chat !!!