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.569 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. |
||||||||||
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. |