Problem mit else-Zweig nach Timer-Ablauf

[bolshi]

@Norbert
Dein Tipp hat echt geholfen. Die Felder sind verschwunden. Thanks a lot

Mit der Schleife passt es noch nicht. Anfangs hatte ich die Loop-Schleife. Hab dann gemerkt, dass die Bedingung oben stehen muss. Jetzt komme ich aus der Schleife nicht mehr raus.

        'Versuch mit DB verbinden, max. 10s
        While (ProgressBar1.Maximum <= 10)

            'Versuch DB-Verbindung
            Try
                Dim con As SqlConnection = New SqlConnection("Data Source=localhost;" & _
                                                             "Initial Catalog=pubs;Connect Timeout=10;" & _
                                                             "Trusted_Connection=yes")
                con.Open()
                MessageBox.Show("DB connection successfull!")

            Catch ex As Exception
                'Ausgabe der Fehlermeldung
                'ex.Message.ToString("Fehler beim DBVerbindungsaufbau")
            End Try

        End While

        'Beginn der manuellen DB-Verbindung
        MessageBox.Show("Beginn der manuellen Verbindung")

        fldTextBox_2.Visible = True
        fldTextBox_1.Visible = True
        fldComboBox_1.Visible = True

        MessageBox.Show("Bitte Zugangsdaten für DB-Verbindung eingeben")

Die Exception-Meldung macht auch mit dem ex. Theater, daher noch ausdokumentiert.

Müsste die Anwendung nicht weiterlaufen, sobald ProgressBar1.Maximum auf 10 steht?

 

[bolshi]

Bei Do -> Loop Until wird der Try-Catch-Block bis ProgressBar_1.Maximum abgearbeitet. Allerdings geht der Timerbalken erst genau danach an. Quasi zur selben Zeit wie die Meldung "Beginn der manuellen Verbindung" erscheint.