表格未通过IP地址

我有以下三种形式: 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
coffee3582 回答:表格未通过IP地址

只需在箭头所在的位置添加一行。

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.Port = Port '<<=====
    OBJ.Show()
    Me.Hide()
End Sub
本文链接:https://www.f2er.com/2993134.html

大家都在问