Webseite immer in neuem Fenster öffnen Ein kleiner Trick, und eine Webseite wird immer in einem neuen Browser-Fenster geöffnet - programmgesteuert.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  20.443
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie man den Standard-Browser öffnet und darin ein HTML-Dokument oder auch eine Internetseite anzeigt, das weiss wohl mittlerweile fast jeder. Nur leider wird die Seite dann immer in einem der bereits geöffneten Browser-Fenster angezeigt - und nicht in einem "Neuen".

Mit einem kleinen Trick lässt sich aber auch das "machen". Wird nämlich als Dateiname/URL about:blank angegeben, so wird automatisch ein neues leeres Browser-Fenster geöffnet (zumindest, wenn der IE der Standard-Browser ist). Und wenn man jetzt den Öffnen-Befehl mit dem Dokumentname bzw. der URL erneut aufruft, dann erscheint die gewünschte Webseite/HTML-Dokument im zuletzt aktiven Browser-Fenster - das "leere Fenster" eben.

Und hier der Code

' 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
 
' Die 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:

' Leeres Browser-Fenster öffnen
URLGoTo Me.hWnd, "about:blank"
 
' Jetzt gewünschte Webseite laden
URLGoTo Me.hWnd, "http://www.vbarchiv.de/"