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! Viel Spaß und experimentiert ruhig ein wenig mit dem Code herum ;) Dieser Tipp wurde bereits 16.549 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. 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 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |