热使用更多插座？

Question

我有一个名为 frmmsg 的表单。 当我打开一个新的 frmmsg 时，我收到以下警告：

每个套接字地址（协议/网络地址/端口）只能使用一次 通常是允许的。

如何使用更多套接字打开表单？

这是我正在使用的代码：

Imports System.IO
Imports System.Threading
Imports System.Net.Sockets
Public Class frmmsg
    Dim listener As New TcpListener(8000)
    Dim client As TcpClient
    Dim message As String

    Private Sub frmmsg_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim thread As New Thread(New ThreadStart(AddressOf Listening))
        listener.Start()
    End Sub

    Private Sub listening()
        listener.Start()
    End Sub

    Private Sub btnnewform_Click(sender As Object, e As EventArgs) Handles btnnewform.Click
        Dim fnew As New frmmsg
        fnew.Show()
    End Sub
End Class

问题出在哪里，我该如何解决？

Answer 1

从消息中可以看出，每个端口只能打开一个侦听套接字（通常）。

因此，您必须确保同时只有一个TcpListener(8000) 实例。如果要同时打开多个表单，则需要引用此对象，而不是从表单实例中。也许使用静态/共享变量。