線程中的VB.NET RaiseEvent

Question

當我在我的線程中引發事件時，線程不再在循環中運行。

Public Sub readStream() 
    Dim netStream As NetworkStream = Me.client.GetStream() 
    Do 
     Try 
      Dim inStream As Byte() = New Byte(20000) {} 

      netStream.Read(inStream, 0, CInt(Me.client.ReceiveBufferSize)) 
      Console.WriteLine("Received something") 
      RaiseEvent rsh(Me, New ReceiveStreamEvent(System.Text.Encoding.ASCII.GetString(inStream))) 
      Console.WriteLine("I am still alive") 
     Catch ex As Exception 
      Console.WriteLine("ReadStream Error: " & ex.Message.ToString()) 
     End Try 
     Thread.Sleep(100) 
    Loop 
End Sub 

你可以看到，「我還活着」永遠不會發生。我的確在C＃相同的代碼，我沒有它這個問題。所以當RaiseEvent被調用時，線程將不會繼續。我沒有錯誤，沒有消息。

下面是完整的類：

Imports System.Collections.Generic 
Imports System.Linq 
Imports System.Text 
Imports System.Net.Sockets 
Imports System.Threading 

Public Delegate Sub ReceiveStreamHandler(source As Object, e As ReceiveStreamEvent) 

Public Class ReceiveStreamEvent 
    Inherits EventArgs 
    Private stream As String 
    Public Sub New(stream As String) 
     Me.stream = stream 
    End Sub 
    Public Function getStream() As String 
     Return Me.stream 
    End Function 
End Class 

Public Class server 
    Private client As TcpClient 
    Private readThread As Thread 
    Public Event rsh As ReceiveStreamHandler 


    Public Sub New() 
     Try 
      Me.client = New TcpClient("172.16.26.56", 8000) 
      Me.readThread = New Thread(AddressOf readStream) 
      Me.readThread.Start() 
      Me.readThread.Priority = ThreadPriority.Highest 

     Catch ex As Exception 
      Console.WriteLine("TCP conn error: " & ex.Message.ToString()) 
     End Try 
    End Sub 

    Public Sub disconnect() 
     Try 
      Me.readThread.Abort() 
      Me.client.Close() 
     Catch ex As Exception 
      Console.WriteLine("TCP disc error: " & ex.Message.ToString()) 
     End Try 
    End Sub 

    Public Sub readStream() 
     Dim netStream As NetworkStream = Me.client.GetStream() 
     Do 
      Try 
       Dim inStream As Byte() = New Byte(20000) {} 

       netStream.Read(inStream, 0, CInt(Me.client.ReceiveBufferSize)) 
       Console.WriteLine("Received something") 
       RaiseEvent rsh(Me, New ReceiveStreamEvent(System.Text.Encoding.ASCII.GetString(inStream))) 
       Console.WriteLine("I am still alive") 
      Catch ex As Exception 
       Console.WriteLine("ReadStream Error: " & ex.Message.ToString()) 
      End Try 
      ' Thread.Sleep(100) 
     Loop 
    End Sub 

    Public Sub writeStream(message As String) 
     Dim netStream As NetworkStream = Me.client.GetStream() 
     Dim outStream As Byte() = System.Text.Encoding.ASCII.GetBytes(message) 
     netStream.Write(outStream, 0, outStream.Length) 
     netStream.Flush() 
    End Sub 
End Class 

Answer 1

它更多的是分辨率比一個答案，但下面的代碼顯示了我的子處理事件。在e.getStream（）上使用Console.WriteLine時，它會顯示一次結果，然後代碼的其餘部分不會被查找，也不會顯示線程。我把它放在評論中，現在一切正常。即使我在其他地方使用e.getStream（），也是如此。這種情況真的讓我對VB.NET生氣，即使C＃略微「相同」，它就更清晰，更容易理解。我仍然沒有回答這個消費Console.WriteLine，如果這裏的一些朋友可以考慮一下，我會很高興。因爲這裏的東西很晦澀難懂。

Private Sub receiveData(source As Object, e As ReceiveStreamEvent) Handles apiServer.rsh 
     Try 
      ' Me.richTextBox_DATA.Invoke(New MethodInvoker(Sub() Me.richTextBox_DATA.Text = Me.richTextBox_DATA.Text + e.getStream())) 
      '  Console.WriteLine(e.getStream()) 

      Dim list As String() = e.getStream().Split(New String() {vbLf, vbCr & vbLf}, StringSplitOptions.RemoveEmptyEntries) 
      For Each str As String In list 
       If str.StartsWith("RESP") Then 
        Me.parseResp(str) 
       End If 
       If str.StartsWith("LOGOUT") Then 
        Me.parseLogout(str) 
       End If 
       If str.StartsWith("LOGIN") Then 
        Me.parseLogin(str) 
       End If 
       If str.StartsWith("GPS") Then 
        Console.WriteLine("GPSGPS") 
       End If 
      Next 
     Catch ex As Exception 
      Console.WriteLine(ex.Message) 
     End Try 

    End Sub