vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Oberfläche · Sonstiges   |   VB-Versionen: VB5, VB624.02.05
Perfekt genutzter Splash-Screen

Wozu ist ein Splash Screen da? Wie macht man einen und wie sollte man einen machen..?

Autor:   sXene SoftwareBewertung:     [ Jetzt bewerten ]Views:  16.518 
www.sxene.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Wir machen oft Programme, die über eine "Homepage"-Funktion verfügen. Wenn man darauf klickt, öffnet sich ein neues IE Explorer (oder Standartbrowser) Fenster mit der URL. Wenn man so etwas aber nicht macht, kann man auch schön eine neue Form hernehmen, diese frmHomepage nennen und auf darauf ein WebBrowser Control mit der gewünschten Internetseite einsetzen. Wenn man beim Hauptform (nennen Wir es frmMain) auf den "Homepage"-Button klickt, öffnet sich die Form mit der Internetseite... Leider nerft es immer wieder, dass das WebBrowser Control die Seite erstmal laden muss, und somit wertvolle Zeit für den Benutzer des Programms verschwendet.

Auf der frmMain fügen wir folgenden Code ein, außerdem einen Button namens cmdHomepage:

Private Sub Form_Load()
  cmdHomepage.Caption = "Homepage"
  lblBes.Caption = "Die Beschreibung eures Programmes..."
End Sub
 
Private Sub cmdHomepage_Click()
  frmHomepage.Show
End Sub

Die Form "frmHomepage" sieht folgendermaßen aus:

Private Sub Form_Load()
  ' Hier kommt eure Seite hin, zum Beispiel wurde unsere gewählt.
  WebBrowser1.Navigate "http://www.sXene.de" 
End Sub
 
Private Sub Form_Resize()
  If Me.WindowState <> vbMinimized Then
    ' Damit das WebBrowser Control sich auch immer anpasst...
    WebBrowser1.Move 0,0, ScaleWidth, ScaleHeight
  End If
End Sub

Nun wollen wir das Laden irgendwie unterdrücken. Da man dies aber nicht machen kann, und wir das Laden trotzdem unterbinden wollen, laden Wir die Seite einfach vorher. Also machen wir eine neue Form, und machen daraus einen Splash-Screen. Wir nennen die Form "frmSplash". Dieser SplashScreen wird ein paar Sekunden angezeigt. Währenddessen werden die Formen geladen.

Hier der Code von frmSplash:

Private Sub Form_Load()
  Load frmMain
  Load frmHomepage
  ' ... Hier kommen weitere Forms hin, die geladen werden.
End Sub

Außerdem kommt auf die Form "frmSplash" ein Timer namens tmrSplash. Dessen Intervall stellen Wir auf "2000". Damit die Form auch nach ein paar Sekunden wieder ausgeblendet wird, benutzen wir folgenden Code:

Private Sub tmrSplash_Timer()
  frmMain.Show     ' Hauptform wird angezeigt.
  Unload frmSplash ' frmSplash entladen.
End Sub

Starten Sie das Projekt und klicken auf "Homepage", dann sehen wir: Die Homepage ist schon geladen!
Man kann den SplashScreen noch mit einer ProgressBar dekorieren oder mit anderen Bildern, Labeln versehen.

Viel Spaß und experimentiert ruhig ein wenig mit dem Code herum ;)
 

Dieser Tipp wurde bereits 16.518 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel