chéo hoạt động chủ đề không hợp lệ

Question

im cố gắng để truy cập vào một textbox giàu trên một hình thức im sử dụng đoạn mã sau để làm như vậy:

Private Delegate Sub StringDelegateChat(text As String, window As ChatWindow) 
    Private Sub AppendTextChatWindows(text As String, window As ChatWindow) 
     Try    
      If window.RichTextBox1.InvokeRequired Then 
       window.Invoke(New StringDelegateChat(AddressOf AppendTextChatWindows), text, window) 
      Else 
       window.RichTextBox1.AppendText(text) 
       window.RichTextBox1.SelectionStart = window.RichTextBox1.Text.Length 
       window.RichTextBox1.ScrollToCaret() 
      End If 
     Catch ex As Exception 
      MessageBox.Show(ex.ToString) 
     End Try 
    End Sub 

nhưng tôi nhận được hoạt động chủ đề xuyên báo lỗi không hợp lệ, tôi nghĩ rằng nó thực hiện điều này bởi vì nó bỏ lỡ phần window.invoke của câu lệnh if. tôi cũng đã thử thay thế If window.RichTextBox1.InvokeRequired Then thành If InvokeRequired Then nhưng nó bị bắt trong vòng lặp tiếp tục và lỗi tràn ngăn xếp được ném.

Cảm ơn Houlahan

Answer 1

Tôi tin rằng, trên dòng 5, window.Invoke nên được thay đổi để window.RichTextBox1.Invoke.

Private Delegate Sub StringDelegateChat(text As String, window As ChatWindow) 
Private Sub AppendTextChatWindows(text As String, window As ChatWindow) 
    Try 
     If window.RichTextBox1.InvokeRequired Then 
      window.RichTextBox1.Invoke(New StringDelegateChat(AddressOf AppendTextChatWindows), text, window) 
     Else 
      window.RichTextBox1.AppendText(text) 
      window.RichTextBox1.SelectionStart = window.RichTextBox1.Text.Length 
      window.RichTextBox1.ScrollToCaret() 
     End If 
    Catch ex As Exception 
     MessageBox.Show(ex.ToString) 
    End Try 
End Sub 

Answer 2

Tôi không thể thấy bất kỳ lỗi nào trong mã của bạn. Bạn có thể muốn kiểm tra bất kỳ sự kiện nào được kích hoạt khi cập nhật RichTextbox. Họ có thể gây ra một luồng chéo.

Như một giải pháp cho vấn đề của bạn, làm việc với các đối tượng, bạn ít có khả năng gặp phải vấn đề về luồng chéo.

Answer 3

Các bạn đã thử:

Private Sub AppendTextChatWindows(text As String, window As ChatWindow) 
     Try    
      If window.RichTextBox1.InvokeRequired Then 
       window.RichTextBox1.BeginInvoke(New StringDelegateChat(AddressOf AppendTextChatWindows), text, window) 
       Exit Sub 
      Else 
       window.RichTextBox1.AppendText(text) 
       window.RichTextBox1.SelectionStart = window.RichTextBox1.Text.Length 
       window.RichTextBox1.ScrollToCaret() 
      End If 
     Catch ex As Exception 
      MessageBox.Show(ex.ToString) 
     End Try 
    End Sub 

Về cơ bản, tôi đang hỏi về BeginInvoke hơn là Invoke. Mặc dù tôi mong đợi, như một áp phích khác được đề cập, rằng bạn nên sử dụng cùng một điều bạn kiểm tra yêu cầu chống lại để gọi. (tức là cả window.invokeRequired & window.BeginInvoke hoặc điều khiển)