Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Dim msg As String = Me.myComPort.ReadExisting
 
        While (msg.Contains(Chr(0)))
            'die nachricht ist komplett
            Dim tmp = msg.Substring(0, msg.IndexOf(Chr(0)))
            ShowText(msg)
            msg = ""
        End While
 
        ShowText(msg)
    End Sub
 
    Private Sub ShowText(ByVal text As String)
 
        If lblMeldungstext.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ShowText)
            Me.Invoke(d, New Object() {text})
        Else
            lblMeldungstext.Text = text
            Debug.Print(text)
        End If
    End Sub

    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As      _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Me.Invoke(Sub() lblMeldungstext.Text = myComPort.ReadLine)
 
    End Sub

Beitrag wurde zuletzt am 27.11.15 um 16:50:57 editiert.