VB2010 - StackOverflow beim Beenden des Forms

[VBl00seR (Gast)]

Hi Leute! Ich habe mir hier ein kleines Programm in VB2010 geschriben, 
um auf den COM-Port zuzugreifen. Das ganze ist mehr oder weniger ein Mix 
aus sämtlichen Tutorials von Youtube. Habe jetzt das erste Mal mit VB 
gearbeitet.

Mein Problem ist, dass sich beim Beenden des Programms eine 
StackOverflowException ergibt. Und zwar geht es um die letzte Anweisung 
ganz unten "Me.Close()":

        Else
            Me.Close()
        End If

Nehme ich das Close hier heraus, so ist kein Problem da. Ich verstehe es 
aber nun leider nicht. Warum kann das Programm hier nicht problemlosd 
beendet werden?

Hier noch der ganze Code:

Public Class Form1

    Dim StrBufferOut As String
    Dim StrBufferIn As String

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Exit_Program()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tb_Status.Text = "Nicht verbunden"
        StrBufferOut = ""
        StrBufferIn = ""
        btn_Connect.Enabled = False
        btn_SendData.Enabled = False
        tmr_Timer.Enabled = False
        cbo_Ports.Enabled = False
        cbo_BaudRate.Enabled = False
        tb_BufferOut.Enabled = False
        tb_BufferIn.Enabled = False
    End Sub

    Private Sub btn_GetPorts_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_GetPorts.Click
        cbo_Ports.Items.Clear()

        For Each FreePorts As String In My.Computer.Ports.SerialPortNames
            cbo_Ports.Items.Add(FreePorts)
        Next

        If cbo_Ports.Items.Count > 0 Then
            tb_Status.Text = "Mindestens ein freier Port verfügbar"
            btn_Connect.Enabled = True
            cbo_Ports.Text = cbo_Ports.Items(0)
            cbo_BaudRate.Text = cbo_BaudRate.Items(5)
            cbo_Ports.Enabled = True
            cbo_BaudRate.Enabled = True
        Else
            tb_Status.Text = "Kein Port verfügbar"
            cbo_Ports.Items.Clear()
            btn_Connect.Enabled = False
            btn_SendData.Enabled = False
            cbo_Ports.Enabled = False
            cbo_BaudRate.Enabled = False
            tb_BufferOut.Enabled = False
            tb_BufferIn.Enabled = False
        End If
    End Sub

    Private Sub btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Connect.Click
        If btn_Connect.Text = "Verbinden" Then
            Try
                sp_SerialPort.PortName = cbo_Ports.Text
                sp_SerialPort.BaudRate = cbo_BaudRate.Text
                sp_SerialPort.Open()
                tmr_Timer.Enabled = True
                btn_SendData.Enabled = True
                btn_Connect.Text = "Trennen"
                btn_GetPorts.Enabled = False
                cbo_Ports.Enabled = False
                cbo_BaudRate.Enabled = False
                tb_BufferOut.Enabled = True
                tb_BufferIn.Enabled = True
                tb_Status.Text = "Verbindung mit " & cbo_Ports.Text & " hergestellt. Übertragungsrate: " & cbo_BaudRate.Text & " Baud"
            Catch ex As Exception
                tb_Status.Text = "Die Verbindung konnte nicht hergestellt werden"
            End Try
        ElseIf btn_Connect.Text = "Trennen" Then
            tb_Status.Text = "Verbindung getrennt"
            sp_SerialPort.Close()
            tmr_Timer.Enabled = False
            btn_SendData.Enabled = False
            btn_Connect.Text = "Verbinden"
            btn_GetPorts.Enabled = True
            cbo_Ports.Enabled = True
            cbo_BaudRate.Enabled = True
            tb_BufferOut.Enabled = False
            tb_BufferIn.Enabled = False
        End If
    End Sub

    Private Sub btn_SendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SendData.Click
        sp_SerialPort.DiscardOutBuffer()
        StrBufferOut = tb_BufferOut.Text
        sp_SerialPort.Write(StrBufferOut)
    End Sub

    Private Sub tmr_Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_Timer.Tick
        StrBufferIn = sp_SerialPort.ReadExisting

        If StrBufferIn <> "" Then
            tb_BufferIn.Text = StrBufferIn
            sp_SerialPort.DiscardInBuffer()
        End If
    End Sub

    Private Sub btn_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Exit.Click
        Exit_Program()
    End Sub

    Private Sub Exit_Program()
        If sp_SerialPort.IsOpen = True Then
            Dim Message As String = "Es besteht eine aktive Verbindung mit " & cbo_Ports.Text & ". Trotzdem beenden?"
            Dim Caption As String = "Aktive Verbindung"
            Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNo
            Dim Result As DialogResult
            Result = MessageBox.Show(Message, Caption, Buttons)

            If Result = DialogResult.Yes Then
                tmr_Timer.Enabled = False
                sp_SerialPort.Close()
                Me.Close()
            End If
        Else
            Me.Close()
        End If
    End Sub

End Class

Für jegliche andere Tips bin ich natürlich auch dankbar!

Gruß, VBl00seR

[Peter II (Gast)]

vermutlich ruft Me.Close() wieder Exit_Program() auf.

Warum verwendet nieman einene Debugger? Setze eine Breakpoint auf 
Me.Close() und schau wie oft er vorbei kommt.

[VBl00seR (Gast)]

Peter II schrieb:
> vermutlich ruft Me.Close() wieder Exit_Program()

Also die Exit_Program-Routine habe ich ja selber ins Leben gerufen. 
Me.Close() gehört zu VB. Das seltsame ist, dass das Me.Close() darüber, 
also wenn ein Port offen war, problemlos funktioniert. Nur wenn kein 
Port geöffnet ist, dann kommt der StackOverflow.

[Peter II (Gast)]

VBl00seR schrieb:
> Nur wenn kein
> Port geöffnet ist, dann kommt der StackOverflow.

und was soll uns das jetzt sagen?

Nutzte den debugger!

[VBl00seR (Gast)]

Jaja, mach ich ja.

Habe aber eine Vermutung: Da ich in FormClosing die Sub aufrufe, könnte 
das Übel hier vergraben sein.

[Simon K. (simon)]

FormClosing ruft in deinem Programm wieder Me.Close() auf. Das wird das 
Problem sein.