项目事件
计划管理
表事件
窗口表事件
窗口与控件事件
窗口1_Button1_Click
Dim client =
vars("client1")
If client IsNot
Nothing Then
client.receiveThread.Abort()
client.nStream.Close()
End If
vars("client1")
= new MyClient(e.Form.Controls("txtip").text,
e.Form.Controls("txtport").text)
窗口1_Button2_Click
Dim client =
vars("client1")
If client IsNot
Nothing Then
client.receiveThread.Abort()
client.nStream.Close()
End If
窗口1_Button3_Click
Dim client =
vars("client1")
Dim msg As String
= e.Form.Controls("TextBox3").text
Dim stream() As
Byte = Encoding.default.GetBytes(msg)
client.nStream.Write(stream,
0, stream.Length) '往服务器发送登录信息
自定义函数
全局代码
Default
Public socket As
MyClient
Public Class
MyClient
Public receiveThread As
System.Threading.Thread
Public nStream As
System.Net.Sockets.NetworkStream
Public tcp As System.Net.Sockets.TcpClient
Public Sub New(ByVal ip As String, ByVal
port As Integer)
Dim server As System.Net.IPAddress =
System.Net.IPAddress.Parse(ip)
tcp = New
System.Net.Sockets.TcpClient()
Try
tcp.Connect(ip, port)
Catch generatedExceptionName As
Exception
tcp = Nothing
End Try
If tcp Is Nothing Then
MsgBox("无法连接服务器,请重试")
Else
Dim netStream As
System.Net.Sockets.NetworkStream = tcp.GetStream()
nStream = netStream
receiveThread = New
System.Threading.Thread(New System.Threading.ThreadStart(AddressOf ReceiveMsg))
receiveThread.IsBackground=True
receiveThread.Start()
msgbox("登录成功")
End If
End Sub
Private Sub ReceiveMsg()
While True
Dim packet As Byte() = New
Byte(1024) {}
nStream.Read(packet, 0,
packet.Length)
Dim str As String =
Encoding.Default.GetString(packet)
Tables("表A").Current("第一列")
= str
Tables("表A").Position =
Tables("表A").Position + 1
Tables("表A").AddNew()
Dim txt = forms("窗口1").Controls("TextBox2")
txt.Text &= iif(txt.text >
"", vbcrlf, "") & str
End While
End Sub
End Class
菜单事件
加好友 
发短信
Post By：2017/11/28 14:33:00 [只看该作者]
