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.520 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. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |