我正在开发的应用程序是一个客户端/服务器监听器,我已经能够让客户端和服务器PC相互通信(通过MsgBox确认),但是我现在正努力在服务器上获取服务线程以附加文本到文本框,没有任何可变的发生.

我有一个名为testDebug的表单,它调用一个类(RemoteSupport),该类执行所有握手任务并使用连接数据更新文本框.

谁能确定我哪里出错了,并指出我正确的方向？

以下是我的代码：
表单有一个名为txtOutput的文本框,以下内容来自remoteSupport类

Dim outMessage As String = (encoder.GetString(message,bytesRead))
 MsgBox(outMessage,MsgBoxStyle.Information,"MEssage Received")
  If outMessage IsNot Nothing Then
    If testDebug.Invokerequired Then
        ' have the UI thread call this method for us
        testDebug.Invoke(New UpdateUIDelegate(AddressOf HandleClientComm),New Object() {outMessage})    '
    Else
       testDebug.txtOutput.AppendText(outMessage)
    End If

    'RaiseEvent MessageReceived(outMessage) // a prevIoUs attempt to use custom events
 End If

我不确定调用方法是否是理想的解决方案,或者如果自定义事件是,我花了一些时间试图让自定义事件工作,但这些也没有用.

// In the RemoteSupport class
 Public Delegate Sub MessageReceivedHandler(ByVal message As String)
 Public Shared Event MessageReceived As MessageReceivedHandler

// Located throughout the RemoteSupport class where debug information is required.
RaiseEvent MessageReceived(outMessage)

// Located in the code-behind of the form
Private Sub Message_Received(ByVal message As String)
testDebugOutput(message) // this is a function I have created 
                         // to append the text to the text Box
End Sub

提供的代码已被删除,所以如果您还有其他想要查看或有任何问题,请告诉我.

感谢你的协助.

编辑：我已经将两个VB文件(表单和类)上传到我的网站,如果有人可以查看它以帮助我识别UI不更新的问题,我将不胜感激.

我尝试过其他一些东西,但是一旦工作线程启动,似乎没有任何东西更新UI.

表格：mulholland.it/testDebug.vb.txt
分类：mulholland.it/remoteSupport.vb.txt

感谢你的协助.

马特