VB-Homepage Tipp 220

Standardbrowser mit Adresse starten

Wie Sie die Problematik mit dem Internetexplorer lösen, können Sie im Tipp Internet Explorer aus VB heraus aufrufen und Seite laden nachlesen, aber nicht alle nutzen den IE, was sollen die machen. Kein Problem mehr, hier folgt der Tipp der immer auf den gerade aktiven Standardbrowser zurück greift. Ein wenig Deklaration gehört aber schon dazu. Allgemein/Deklarationen Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Const SW_SHOWNORMAL = 1 Außerdem eine kleine Prozedur Allgemein/StartURL Public Function StartURL(URL As String) As Long Dim Scr_hDC As Long Scr_hDC = GetDesktopWindow() StartURL = ShellExecute(Scr_hDC, "Open", URL, "", "C:\", SW_SHOWNORMAL) End Function und der eigentliche Aufruf Call StartURL("http://www.vb-homepage.de") Mehr aber auch nicht.

Tipp-Download

Quelle :