Es dauert lange, bis ein großes Anwendungssystem gestartet und ausgeführt wird. Die Zeit hängt von der Anzahl der erforderlichen Initialisierungen und der Geschwindigkeit des Benutzersystems ab. Daher sollte vor der Anzeige des Hauptfensters ein Initialisierungsfenster angezeigt werden Dadurch sieht die Anwendung attraktiver aus, da dem Benutzer beim Laden des Programms kontinuierlich einige Informationen angezeigt und schöne visuelle Effekte erzeugt werden können. Beispielsweise zeigen sowohl VB als auch Delphi beim Start ein Splash-Fenster vor der Hauptoberfläche an.
----1. Das Folgende ist eine einfache Möglichkeit, einen Flash-Screensplash (Slogan) anzuzeigen:
optionexplizit
PRivatesubform_load()
'Hauptfenster anzeigen
me.show
'Begrüßungsfenster anzeigen
frmsplash.show
doevents
'Anwendungsinitialisierung durchführen
initialisieren
'Splash-Fenster schließen
entladenspalsh
Endsub
----Dieser Prozedurcode sollte im Startformular der Anwendung platziert werden. Die erste Show-Methode ermöglicht es Windows, das Hauptformular auf dem Bildschirm anzuzeigen, und die nächste Show-Methode zeigt den blinkenden Bildschirm an, bei dem es sich um ein von Ihnen entworfenes Formular mit dem Namen frmsplash handelt. Verwenden Sie nach Verwendung der Show-Methode die Funktion Doevents, um sicherzustellen, dass alle Elemente blinken Die Bildschirmmaske wird sofort gezeichnet. Die Initialisierungsfunktion führt zeitaufwändige Aufgaben aus, die beim Start der Anwendung ausgeführt werden müssen, z. B. das Laden von Daten aus Dateien, das Laden von Formularen in den Speicher usw. Zu diesem Zeitpunkt ist alles fertig.
----2. Flash-Formularvorlage
----VisualBasic enthält viele Vorlagenformulare, darunter der Flash-Bildschirm. Um dem Projekt ein SplashScreen-Formular hinzuzufügen, wählen Sie im Projektmenü das SplashScreen-Symbol auf der Registerkarte „Neu“ und klicken Sie auf „Öffnen“.
----Der folgende Code zeigt ein Beispiel für die Anpassung der SplashScreen-Formularvorlage:
optionexplizit
privatesubform_load()
frmsplash.lbllicenseto=app.legaltrademarks
frmsplash.lblcompanyproduct=app.productname
frmsplash.lblplatform="window98"
frmsplash.lblcopyright=app.legalcopyright
frmsplash.lblcompany=app.companyname
frmsplash.lblwarning="Warnung: Dieses Programm ist geschützt"&_
„nach Urheberrecht, also nicht kopieren“
frmsplash.show
doevents
initialisieren
entladenfrmsplash
Endsub
----Beachten Sie, dass hier das App-Objekt verwendet wird, das auf Informationen zu Ihrer Anwendung zugreifen kann.
----Der Code des Splashscreen-Formularvorlagen-Codemoduls lautet wie folgt:
PrivateSubForm_keypress(keyasciiasinteger)
entlade mich
Endsub
Privatesubform_load()
lblversion.caption="version"&app.major&".
"app.minor"."app.revision
lblproductname.caption=app.title
Endsub
privatesubframe1_click()
entlade mich
EndSub->