Link to a web site

[gjm68]

I want to click on a button within a VB6 application, which opens the standard Internet Explorer browser and automatically navigates to a web site.

Can anyone please give me some help on how to do this with VB6

thanks

[dilettante]

Wow, this seems topical lately. Homework assignment?

This functionality is built into VB6. Any UserControl can do it.

This example uses a Label to be the Hyperlink, but one could easily make it a button:

Private Sub lblLink_Click()
    If Len(m_URL) > 0 Then
        HyperLink.NavigateTo m_URL, m_Bookmark
    End If
End Sub

See attached demo.

[lintz]

Here is another method.

'Put this in a module
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 Const SW_SHOWNORMAL = 1
 
 
'Put this in a form
 
Private Sub lblSite_Click()
ShellExecute Me.hWnd, vbNullString, "http://www.vbforums.com", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

[gjm68]

Wonderful,

thanks