Msgbox schließen

[ratze79]

Hallo ich möchte in der Zeit wo Daten aus einer DB gesucht werden einen Msgbox als "Wartedialog" einblenden. Im Netz habe ich schon eine Lösung gefunden die nicht ganz bei mir klappt

 Private Sub btnAnwenden_Click(ByVal sender As System.Object,.....

           Dim thread1 As New Threading.Thread(AddressOf Meldung)
            thread1.Start()

           '  Hier Datenbankabfrage


thread1.Abort()

end sub

Private Sub Meldung()
        MessageBox.Show("Bitte Warten")
    End Sub

Wenn ich auf den Button klicke "popt" die Msgbox auf, geht aber leider nicht weg wenn die Daten angezeigt werden. Wenn ich mir thread1.IsAlive nach dem Abort() ausgeben lasse wird True zurückgegeben.

Danke im voraus

Gruß Ratze

 

[Nico Graichen]

Wieso nutzt du nicht einen eigenen Dialog anstatt der MessageBox?

 

[Konstantin Denerz]

Hallo,

Wieso lagerst du deine Datenbankabfrage nicht in einen eigenen Thread aus? Starte den Thread dann und direkt danach öffnest du die MessageBox bzw. deinen Dialog.

Gruß Konstantin