Private Sub sckClient_ConnectEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles sckClient.ConnectEvent txtChatLog.AppendText("Connected to " & sckClient.RemoteHost & vbCrLf) txtChatLog.AppendText("Socket State is " & sckClient.SocketHandle & vbCrLf) End Sub
Private Sub sckClient_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles sckClient.DataArrival Dim objData As Object sckClient.GetData(objData, vbString) txtChatLog.AppendText("Server: " & CStr(objData) & vbCrLf) End Sub
#End Region
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load sckClient.RemoteHost = "127.0.0.1" sckClient.RemotePort = 1000 sckClient.Bind(8000) txtChatLog.AppendText("Bind to local Port 8000 and remote port 1000" & vbCrLf) End Sub
Private Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click If txtSaid.Text.Trim = "" Then MsgBox("Please input the chat the contents", MsgBoxStyle.OKOnly, "UDPChat-Client") Exit Sub End If Try txtChatLog.AppendText("Client: " & txtSaid.Text & vbCrLf) sckClient.SendData(CType(txtSaid.Text, Object)) txtSaid.Text = "" Catch MsgBox("Error Occured " & Err.Description & vbCrLf & Err.Number, MsgBoxStyle.OKOnly, "UDPChat-Client") End Try End Sub
Private Sub txtSaid_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSaid.KeyPress If (e.KeyChar = Chr(13)) Then btnSend_Click(sender, New System.EventArgs()) End If End Sub End Class
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
