Rubrik: Datum/Zeit und Timer · Timer | VB-Versionen: VB.NET | 05.06.02 |
Timergesteurter SplashScreen unter VB.NET Realisierung eines timergesteurten Splash- oder Intro-Screens unter Visual Basic .NET | ||
Autor: Dieter Otter | Bewertung: | Views: 34.583 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
So, nun haben Sie endlich das neue Visual Basic .NET auf Ihrer Platte installiert und möchten zum Einsteig ein einfaches "Progrämmchen" erstellen. Das Projekt soll aus einer Splash-Form und einer Hauptform bestehen. Beim Starten soll zunächst der Splash-Screen mit ein paar wichtigen Programm-Infos angezeigt werden. Nach 3 Sekunden soll die Hauptform geladen und angezeigt werden.
Unter VB5 oder VB6 haben Sie das wahrscheinlich so gemacht:
- frmSplash mit einem Timer-Steuerelement und Interval-Eigenschaft von 3000
- frmMain
- Start-Objekt (Projekt-Eigenschaften): frmSplash
VB5 / Vb6-Code
' Code frmSplash Private Sub Timer1_Timer() Timer1.Enabled = False Load frmMain frmMain.Show Unload Me End Sub
Und wie geht so etwas unter Visual Basic .NET ?
Ein wenig anders
- frmSplash mit Timer-Steuerelement und Interval-Eigenschaft von 3000
- frmMain
- Modul mit einer "Public Sub Main"
- Start-Objekt (Projekt-Eigenschaften): Sub Main aus Module1
VB.NET Code
Module Module1 Public frmMain As New frmMain() Public Sub Main() ' Startform anzeigen Dim frmSplash As New frmSplash() frmSplash.ShowDialog() ' MainForm anzeigen Application.Run(New frmMain) End Sub End Module
' Code frmSplash Private Sub Timer1_Elapsed(ByVal sender As Object, _ ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed ' Jetzt Form schließen Timer1.Enabled = False DialogResult = DialogResult.OK Me.Hide() End Sub
Wichtig!
Unter VB.NET gibt es kein "Load Formular" mehr. Ein Formular wird jetzt über die Methode Show() oder ShowDialog() einer entsprechend deklarierten Objekt-Variable angezeigt!