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 Diese Seite wurde bereits 9.590 mal aufgerufen. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |