你遇到的问题本质是跨线程+跨组件的方法调用，DLL的后台线程需要触发外部窗体的方法，核心解决思路是通过委托让外部窗体把自己的方法“注册”到DLL中，这样DLL线程收到数据时就能直接调用这个委托，完全不需要依赖虚拟窗体。

步骤1：在DLL中定义委托并添加回调机制 #

首先修改你的DLL代码，去掉虚拟窗体相关逻辑，换成委托回调模式：

Public Class PipeCommunication
    ' 1. 定义委托类型，签名要和你期望的外部窗体NotifyClient方法完全一致
    Public Delegate Sub NotifyClientDelegate(ByVal notification As String)
    
    ' 2. 保存外部传入的回调委托和窗体引用（用于跨线程UI调用）
    Private _notifyCallback As NotifyClientDelegate
    Private _ownerForm As Form
    ' 保留你原来的其他字段（比如ByteSize、ClientPipeName等）
    
    ' 3. 构造函数：让外部窗体在实例化时传入自身和回调方法
    Public Sub New(ByVal ownerForm As Form, ByVal notifyCallback As NotifyClientDelegate)
        _ownerForm = ownerForm
        _notifyCallback = notifyCallback
    End Sub
    
    ' 可选：如果需要动态修改回调，添加一个设置方法
    Public Sub UpdateNotifyCallback(ByVal newCallback As NotifyClientDelegate)
        _notifyCallback = newCallback
    End Sub
    
    Public Sub Receive()
        Dim RequestBytes(ByteSize) As Byte
        Dim RequestByteCount As Integer = 0
        Try
            ClientReceive = New NamedPipeServerStream(ClientPipeName, PipeDirection.In, 1, PipeTransmissionMode.Message, PipeOptions.Asynchronous)
            ClientReceiveActive = True
            
            While EndOfService = False
                ClientReceive.WaitForConnection()
                RequestByteCount = ClientReceive.Read(RequestBytes, 0, ByteSize)
                
                ' 处理字节数据（保留你原来的逻辑）
                Array.Resize(RequestBytes, RequestByteCount - 2)
                If RequestByteCount > 0 Then
                    ServerReturn = Encoding.ASCII.GetString(RequestBytes)
                End If
                Array.Resize(RequestBytes, ByteSize)
                
                If ServerReturn.ToUpper.IndexOf("!") <> -1 Then
                    ' 处理通知内容（去掉!）
                    Dim cleanNotification = ServerReturn.Replace("!", String.Empty)
                    
                    ' 4. 调用外部窗体的回调方法，处理跨线程
                    If _notifyCallback IsNot Nothing AndAlso _ownerForm IsNot Nothing Then
                        If _ownerForm.InvokeRequired Then
                            ' 后台线程不能直接操作UI，用窗体的Invoke切换到UI线程
                            _ownerForm.Invoke(_notifyCallback, cleanNotification)
                        Else
                            ' 已经在UI线程，直接调用
                            _notifyCallback(cleanNotification)
                        End If
                    End If
                    
                    ServerReturnValid = False
                Else
                    ServerReturnValid = True
                End If
                
                ClientReceive.Disconnect()
            End While
        Catch ex As ThreadAbortException
            Thread.ResetAbort()
            ClientReceive?.Close()
            Err.Clear()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "ClientPipe Receive")
            Err.Clear()
        End Try
        ClientReceiveActive = False
    End Sub
    
    ' 原来的NotifyClient方法可以删除了，现在用外部窗体的方法
End Class

步骤2：在外部窗体中注册回调方法 #

在你的应用程序窗体中，定义自己的通知处理方法，并在实例化DLL类时传入这个方法：

Public Class MainForm
    Private _pipeComm As PipeCommunication
    
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 实例化DLL的管道通信类，传入当前窗体和自己的通知处理方法
        _pipeComm = New PipeCommunication(Me, AddressOf HandlePipeNotification)
        
        ' 启动你的接收线程（假设你有启动线程的逻辑，比如：）
        ' Dim receiveThread As New Thread(AddressOf _pipeComm.Receive)
        ' receiveThread.IsBackground = True
        ' receiveThread.Start()
    End Sub
    
    ' 你自己的通知处理方法，签名必须和DLL中的委托一致
    Public Sub HandlePipeNotification(ByVal notification As String)
        ' 在这里处理收到的通知，比如更新UI、记录日志等
        MessageBox.Show($"收到管道通知：{notification}", "通知")
        ' 示例：更新窗体上的标签
        ' lblNotification.Text = notification
    End Sub
    
    ' 窗体关闭时清理资源（可选但推荐）
    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        ' 停止DLL的服务线程（假设你有EndOfService的设置逻辑）
        ' _pipeComm.EndOfService = True
        ' 释放委托引用避免内存泄漏
        ' _pipeComm.UpdateNotifyCallback(Nothing)
    End Sub
End Class

为什么这个方案可行？ #

• 解耦：DLL不需要知道外部窗体的具体类型，只要方法签名和委托匹配就能调用，符合组件设计的原则。
• 跨线程安全：通过外部窗体的InvokeRequired和Invoke方法，确保回调方法在UI线程执行，避免线程安全问题。
• 灵活性：你可以随时动态修改回调方法（通过UpdateNotifyCallback），不需要修改DLL的核心逻辑。

注意事项 #

1. 确保委托签名和外部方法完全一致（参数类型、数量、返回值都要匹配），否则会编译错误。
2. 如果外部窗体可能被提前销毁，记得在销毁前取消委托引用（比如设置为Nothing），避免调用已释放的对象。
3. 线程安全：如果多个线程同时修改_notifyCallback，建议用SyncLock加锁保护。

内容的提问来源于stack exchange，提问作者Tony