Zitat:

Hallo! Du greifst per "Form1" offenbar auf die Defaultinstanz des Formulars zu. Allem Anschein nach ist das nicht die Instanz der Form-Klasse, deren Textbox Du ansprechen möchtest. Es gibt diverse Grundregeln im OOP. Eine lautet sinngemäß, daß Klassen per Methodenaufruf mit untergeordneten Klassen kommunizieren und die untergeordneten Klassen Ereignisse verwenden, um Informationen zu liefern. Man sollte NIE von außen auf Controls eines Formulars zugreifen.

    Public Shared _serialPort As SerialPort
 
    Public Function OpenCom() As Boolean                              ' 
    ' Schnittstelle öffnen
 
        _serialPort = New SerialPort()          
        _serialPort.PortName = "COM5"
        _serialPort.BaudRate = 115200
        _serialPort.Parity = 0
        _serialPort.DataBits = 8
        _serialPort.StopBits = 1
        _serialPort.RtsEnable = True
        _serialPort.DtrEnable = True
        _serialPort.Handshake = 0
        _serialPort.ReadTimeout = 500           
        _serialPort.WriteTimeout = 500
        _serialPort.Encoding = System.Text.Encoding.Default 'Standard ist  
        ' ASCII 7-Bit
 
        AddHandler _serialPort.DataReceived, AddressOf DataReceivedHandler
 
        Try
            _serialPort.Open()
        Catch ex As Exception
            MsgBox("Comport " & Form1.Comport & " konnte nicht geöffnet werden")
            Return False
        End Try
 
        If _serialPort.IsOpen Then
            Form1.TextBox2.Text = "open" 
            Return True
        Else
            Return False
        End If
 
    End Function
 
    Public Sub WriteCom(message)
        _serialPort.Write(message)
    End Sub
 
    Public Function CloseCom() As Boolean
        _serialPort.Close()
        Form1.TextBox2.Text = "closed"
        Return True
    End Function
 
    Public Shared Sub DataReceivedHandler(sender As Object, e As _
      SerialDataReceivedEventArgs)
        Dim sp As SerialPort = CType(sender, SerialPort)
        Dim indata As String = sp.ReadExisting()
 
        Console.Write("RXX: ")
        Console.WriteLine(indata)
 
        Form1.TextBox2.Text = indata 
 
    End Sub
 
End Class

   Private Sub TextBox2_TextChanged(sender As System.Object, e As _
     System.EventArgs) Handles TextBox2.TextChanged
        Dim h As String
        h = TextBox2.Text
    End Sub