Visual Basic Programming Code Examples

Visual Basic > Internet Web Mail Stuff Code Examples

Start browser with URL



Start browser with URL

#If Win32 Then
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

#Else
    private Declare Function ShellExecute Lib _
    "shell.dll" alias "ShellExecute" _
    (ByVal hwnd As Integer, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _

ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Integer) As Integer
#End If

Private Const SW_SHOWNORMAL = 1

And for the object to click add this:

Dim iret As Long
    iret = ShellExecute(Me.hwnd, _
        vbNullString, _
        "http://www.google.com", _
        vbNullString, _
        "c:\", _
        SW_SHOWNORMAL)


Return