|
Hallo,
das ist recht einfach mit der API-Funktion "ShellExecute": Lesestoff: dbwiki.net
Beispiel:
Option Explicit
'Konstanten für den Parameter "nshowcmd"
Public Const SW_HIDE = 0 'Alternative: vbHide, Fenster versteckt öffnen
Public Const SW_MAXIMIZE = 3 'Alternative: vbMaximizedFocus, Fenster maximiert öffnen
Public Const SW_MINIMIZE = 6 'Alternative: vbMinimizedNoFocus, Fenster minimiert öffnen
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2 'Alternative: vbMinimizedFocus
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4 'Alternative: vbNormalNoFocus
Public Const SW_SHOWNORMAL = 1 'Alternative: vbNormalFocus
'Quelle: www.dbwiki.net oder www.dbwiki.de
Public 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
Public Sub openUrl()
Call ShellExecute(0, "open", "https://jansesoft.de/blog", "", "", SW_SHOWNORMAL)
End Sub
Viele Grüße
|