Rubrik: Fenster & Forms | 15.04.02 |
Eine Form nur eine bestimmte Zeit einblenden II VB-Version: VB5, VB6 | ||
Views: 9.583 |
Wie man eine zusätzliche Form für kurze Zeit mittels des Timer-Steuerelements einblendet wurde schon beschrieben. Nun taucht die Frage auf: Und wie mach ich das, wenn ich - aus welchen Gründen auch immer - kein Timer-Steuerelement verwenden will? Geht das dann auch? Die Antwort ist: ja, das geht mit der Timer-Funktion. Und zwar so:
Erstellen Sie ein neues Projekt mit zwei Formen. Auf Form 1 setzen Sie noch einen CommandButton und dann kommt dieser Code in den Code-Teil der Form 1:
Private Sub Command1_Click() Dim vTime As Variant Load Form2 Form2.Show , Me Me.Enabled = False vTime = Timer Do While Int(Timer - vTime) < 5' Form für 5 Sekunden einblenden DoEvents Loop Unload Form2 Form1.Show End Sub