Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE | VB-Versionen: VB4, VB5, VB6 | 03.11.00 |
![]() Um den im System registrierten Standard-Browser in Verbindung mit einem HTML-Dokument zu öffnen, bedienen Sie sich einfach nachfolgender Prozedur. | ||
Autor: ![]() | Bewertung: ![]() ![]() ![]() ![]() ![]() | Views: 37.464 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 | ![]() |
Um den im System registrierten Standard-Browser in Verbindung mit einem HTML-Dokument zu öffnen, bedienen Sie sich einfach nachfolgender Prozedur.
' Hier die benötigten API-Deklarationen 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 ' Diese nachfolgende Prozedur aktiviert den im ' System registrierten Standard-Browser und lädt ' die durch URL angegebene Internetadresse Public Sub URLGoTo(ByVal hWnd As Long, ByVal URL As String) ' hWnd: Das Fensterhandle des ' aufrufenden Formulars Screen.MousePointer = 11 Call ShellExecute(hWnd, "Open", URL, "", "", 1) Screen.MousePointer = 0 End Sub
Beispiel:
URLGoTo Me.hWnd, "http://www.vbarchiv.de/"