none
Fenster nach zeitbegrenzun schließen RRS feed

  • Frage

  • Hallo,

    ich möchte folgendes tun:

    ich habe ein fenster das will ich schließne... mit diesem code:

    form2.close

    was mus ich dazuschreiben, dass sich das fenster erst nach 20 sek. schließt
    Donnerstag, 18. Juni 2009 15:01

Antworten

  • Hallo ikazuuyr,

    1.     Auf Form2 ziehst du eine Timer Kontrolle und stellst die Interval Eigenschaft des Timer auf 20000 (das bedeutet 20 Sek.).

    2.     Auf den FormClosing Ereignis lasst man nicht die Form schließen weil die Cancel Eigenschaft True ist (das kommt so vom Load Ereignis) und startet man den Timer.

    3.     Wan der Teimer abläuft (nach 20 Sek.) man stellt im ab, und nach dem wir die Variabel myflag auf False (das ist die Cancel Eigenschaft) setzten, rufen wir wieder das Schließen der Form. Jetzt verschwindet die Form gleich.

    Siehe den folgenden Beispiel Code der das macht:

    Public Class Form2
        Dim myflag As Boolean
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Timer1.Enabled = False
            myflag = False
            Me.Close()
        End Sub
    
        Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
            e.Cancel = myflag
            Timer1.Enabled = True
        End Sub
    
        Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            myflag = True
        End Sub
    End Class


    Grüße und Erfolg !

    Donnerstag, 18. Juni 2009 15:50
    Moderator