我有以下三种形式: 1.输入端口号(表格2) 2.输入IP地址(表格3) 3.启动客户端套接字(表格1)
端口号已成功传递,我可以移动表格2。但是,单击“确定”按钮后表格2出现错误:
System.Net.Sockets.SocketException(0x80004005):请求的地址 在以下上下文中无效127.0.0.0:0 System.Net.Sockets.TcpClient..ctor(字符串主机名,Int32端口)
端口表单“确定”按钮处理程序(表单2)
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
Dim OBJ As New Form3
OBJ.Port = txtSend.Text
OBJ.Show()
Me.Hide()
End Sub
IP地址表单“确定”按钮处理程序(表单3)
Public Property Port As String
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
Dim OBJ As New Form1
OBJ.IP = txtSend.Text
OBJ.Show()
Me.Hide()
End Sub
应该传递IP地址和端口号的功能(表格1)
Public Property Port As String
Public Property IP As String
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
mobjClient = New TcpClient(IP,CInt(Port))
DisplayText("Connected to host" & vbCrLf)
mobjClient.GetStream.BeginRead(marData,1024,AddressOf DoRead,Nothing)
Send("New client online")
End Sub