Control.BeginInvoke가 TextBox.AppendText, Cross Threading과 함께 작동하지 않습니다.

Question

메시지를 상태 로그로 사용하여 텍스트 상자를 업데이트하는 방법을 드러내고 싶습니다. AppendText 메서드를 사용하고 싶습니다만, 그것을 사용할 때 이상한 멀티 스레딩 문제가 발생합니다. 연결을 통해 새 메시지를 추가 할 수 있습니다. 이 문제는 텍스트 상자가 표시되지 않는 것처럼 자체를 표시하고 폼을 닫을 때 크로스 스레드 액세스 오류가 표시됩니다.

작동하지만 추가 단계는 최후의 수단 인 촬영하지 않는에서는 AppendText을 좋아하지 :

Public Sub AddMessage2(ByVal newMessage As String) 
    If TextBoxStatus.InvokeRequired Then 
     TextBoxStatus.BeginInvoke(Sub() TextBoxStatus.Text = TextBoxStatus.Text & newMessage & ControlChars.CrLf) 
    Else 
     TextBoxStatus.Text = TextBoxStatus.Text & newMessage & ControlChars.CrLf 
    End If 
End Sub 

것은 내가 사용하고자하는 어떤하지만 작동하지 않습니다 : 다음의 예는 어떻게 작동하고 어떤 것은하지 않습니다 있습니다

Public Sub AddMessage(ByVal newMessage As String) 
    If TextBoxStatus.InvokeRequired Then 
     TextBoxStatus.BeginInvoke(Sub() TextBoxStatus.AppendText(newMessage)) 
    Else 
     TextBoxStatus.AppendText(newMessage) 
    End If 
End Sub 

추가 정보 및 업데이트 : 우선 내가 충분한 정보를 제공하지 않을 가능성에 대해 사과드립니다. 문제의

적어도 일부 형태의 인스턴스를 다음과 같은 코드가 작동하기 때문에 Show()를 호출하기 전에 AddMessage(newMessage)를 호출 할 것 같다

Public Sub AddMessage(ByVal newMessage As String) 
    If Me.Created Then 
     If TextBoxStatus.InvokeRequired Then 
      TextBoxStatus.BeginInvoke(Sub() TextBoxStatus.AppendText(newMessage)) 
     Else 
      TextBoxStatus.AppendText(newMessage) 
     End If 
    End If 
End Sub 

나는 항상 다음과 같은 것을 할 수 있지만 무엇을 내가 좋아하는 것 :)

Private backLog As String = "" 
Public Sub AddMessage(ByVal newMessage As String) 
    If Me.Created Then 
     If TextBoxStatus.InvokeRequired Then 
      TextBoxStatus.BeginInvoke(Sub() TextBoxStatus.AppendText(backLog & newMessage)) 
     Else 
      TextBoxStatus.AppendText(backLog & newMessage) 
     End If 
     backLog = "" 
    Else 
     backLog &= newMessage 
    End If 
End Sub 

에가는 것은 또한 내가 로그 크기 제한을 추가 할 특히 ...이 매우 우아하다고 생각하지 않습니다

Answer 1

나는 이것을 제안 할 것이다 :

Public Sub AddMessage(ByVal newMessage As String) 
    If TextBoxStatus.InvokeRequired Then 
     TextBoxStatus.BeginInvoke(New Action(Of String)(AddressOf AddMessage), newMessage) 
    Else 
     TextBoxStatus.AppendText(newMessage) 
    End If 
End Sub