Link naar internetsite

[Radjesh Klauke]

Plaats code in een Form

Code: Selecteer alles

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 Sub Command1_Click()
    ShellExecute 0, vbNullString, "http://office.webforums.nl/forum/index.php", vbNullString, vbNullString, vbNormalFocus
End Sub

[Radjesh Klauke]

Code in een formulier plaatsen:

Code: Selecteer alles

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 URLGoTo(ByVal hWnd As Long, ByVal URL As String)
  Screen.MousePointer = 11
  Call ShellExecute(hWnd, "Open", URL, "", "", 1)
  Screen.MousePointer = 0
End Sub

Voorbeeld:
Private Sub Command1_Click()
URLGoTo Me.hWnd, "http://office.webforums.nl/forum/viewtopic.php?t=15967"
End Sub