Δημήτρης Σακελλαρίου: Φυσικά με BeginInvoke και delegete δουλεύω
Συγνώμη αν κάτι δεν έχω καταλάβει καλά αλλά μιας και εσύ αναφέρεις κάτι για Delegate δεν κάνεις τη δουλειά σου με κάτι τέτοιο;
Delegate Sub UpdateLabel(ByVal WithString As String)
Private Sub UpdateLabel1(ByVal xString As String)
If Me.Label1.InvokeRequired Then
Dim Temp As New UpdateLabel(AddressOf UpdateLabel1)
Me.Label1.Invoke(Temp, New Object() {xString})
Else
Me.Label1.Text = xString
End If
End Sub
Οπότε στο OnDataReceived καλείς την UpdateLabel1("Your Text Here"), όπου βέβαια αντί για "Your Text Here" βάζεις το Text που θέλεις να βάλεις στο Label σου.