vb.net 请问如何知道线程已经完成？谢谢
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Clickdim tmpThread as ThreadtmpThread = New Thread(AddressOf ReciveMsg) tmpThread.Start() Dim arrSendData() As Byte : ReDim arrSendData(0 To 1) arrSendData(0) = &H0 arrSendData(1) = &H0 tmpClientSocket.Send(arrSendData) '发送'-------------------------------------'-------------------------------------'请问如何知道线程已经完成？谢谢'-------------------------------------'-------------------------------------End subSub ReciveMsg() '接收消息 Dim bytes() As Byte = New Byte(23) {} Dim data As String = String.Empty While True Dim bytesRec As Integer = tmpClientSocket.Receive(bytes) Dim intI As Integer Dim strRec As String = "" For intI = 0 To bytes.Length - 1 strRec = strRec & Hex(bytes(intI)).PadLeft(2, "0") & " " Next data = strRec BeginInvoke(New EventHandler(AddressOf subAddInfo), data) 'Invoke保证线程安全 End While End Sub Sub subAddInfo(ByVal sender As System.Object, ByVal e As System.EventArgs) tmpStringBuilder.Append("<font color=green>" & Now & "---> " & "接收数据: " + sender.ToString & "</font><br>") Me.wbsContent.DocumentText = tmpStringBuilder.ToString End Sub