'Frm client coding
Private Sub Cmd_Send_Click()
On Error GoTo Ex
If Len(Txt_Cli_Msg.Text) > 0 Then
'Txt_Show_Msg.Text = Txt_Show_Msg.Text + vbCrLf + Trim(Txt_Cli_Msg.Text)
TcpClient.SendData frmClient.Caption + " : " + Txt_Cli_Msg.Text
Txt_Cli_Msg.Text = ""
End If
Exit Sub
Ex:
MsgBox "Server is in offline"
End Sub
Private Sub Form_Load()
TcpClient.RemoteHost = "PAN1"
TcpClient.RemotePort = 1002
TcpClient.Connect
Unload frmLogin
End Sub<
Private Sub TcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
TcpClient.GetData strData
Txt_Show_Msg.Text = Txt_Show_Msg.Text + vbCrLf + strData
End Sub
Private Sub Txt_Cli_Msg_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call Cmd_Send_Click
End If
End Sub
'Frm Login Coding
Private Sub Cmd_Log_Click()
If Len(Txt_Usr.Text) > 0 Then
frmClient.Caption = Trim(Txt_Usr.Text)
frmClient.Show
Unload Me
Else
MsgBox "Enter User ...."
Txt_Usr.SetFocus
End If
End Sub
Messenger Client Coding
Messenger Client Coding
You might also like...
VB 6 forum discussion
-
CorelDRAW VBA: cdrTraceLineDrawing FAILS, producing single linear path instead of Centerline trace?
by dancemanj (0 replies)
-
client/server application using activex
by beautifulheart (0 replies)
-
System Error &H8007007E. The specifed module could not be found.
by swiftsafe (5 replies)
-
Invitation to take part in an academic research study
by researchlab (0 replies)
-
Send SMS with SMPP
by mmahmoud (0 replies)
VB 6 podcasts
-
Stack Overflow Podcast: Podcast #45 – Keeping it Sharp
Published 7 years ago, running time 0h54m
Our guest this week is Eric Lippert – language architect extraordinaire and famous for all his work at Microsoft in developing their languages Eric joined Microsoft right out of college and was originally working on VB It’s time for everyone’s favorite game: Name the Worst Feature of that Microso.
Comments