|
Zur Anzeige einer Webseite im Standard-Browser eines Systems können Sie auf ein Angebot des Betriebssystems (genauer gesagt, der Shell) zurückgreifen. Sie können der API-Funktion ShellExecute anstelle eines Dateipfades die gewünschte URL übergeben (genau genommen ist eine URL ja ein Netzwerkpfad).
Der folgenden Funktion, die den Aufruf ein wenig vereinfacht, übergeben Sie die betreffende URL und geben im zweiten optionalen Parameter ShowMode gegebenenfalls an, wie das Browserfenster angezeigt werden soll (Voreinstellung swNormal). Sie können hierbei aus der Liste der Enumerations-Konstanten OpenUrlShowCommands auswählen.
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
Public Enum OpenUrlShowConstants
swHide = 0
swNormal = 1
swShowMaximized = 3
swShowMinimized = 2
swShowMinNoAcive = 7
End Enum
Public Sub OpenURL(URL As String, _
Optional ByVal ShowMode As OpenUrlShowConstants = swNormal)
ShellExecute GetDesktopWindow(), "Open", URL, "", "", ShowMode
End Sub
In dem kleinen Beispielprojekt zu diesem Artikel finden Sie die Cursor-Datei (hand.cur) für den oben gezeigten Mauszeiger, den Sie etwa bei einem Label dessen MouseIcon-Eigenschaft zuweisen können (Eigenschaft-MousePointer des Labels dazu auf "99 - Benutzerdefiniert" setzen).
|