• Home
 · 
• Internet/HTML
 · 
• An easy to use class module for launching the browser. You should write the URL, say whether the wi

An easy to use class module for launching the browser. You should write the URL, say whether the wi

An easy to use class module for launching the browser. You should write the URL, say whether the window should be maximized, etc., and call

API Declarations



'Local variables
Private mstrURL As String
Private mlngMax As Long
Private mlngMin As Long
Private mlngNormal As Long

'Function needed to launch the browser
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

'Window constants
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWNORMAL = 1



Rate An easy to use class module for launching the browser. You should write the URL, say whether the wi

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'parameters - URL/mailto, Maximized or Minimized or Normal,
'Example :
'
'Private Sub cmdLaunch_Click()
'   Dim Hlink As New Hlink
'   Hlink.URL = "http://www.someurl.com"   'write the email address if you want to send an email
'   Hlink.Maximized = True
'   Hlink.OpenURL
'End Sub

Property Let URL(strURL As String)
    mstrURL = strURL
End Property

Property Let Maximized(bMax As Boolean)
    If bMax Then
        mlngMax = SW_SHOWMAXIMIZED
    End If
End Property

Property Let Minimized(bMin As Boolean)
    If bMin Then
        mlngMin = SW_SHOWMINIMIZED
    End If
End Property

Property Let Normal(bNormal As Boolean)
    If bNormal Then
        mlngNormal = SW_SHOWNORMAL
    End If
End Property

Public Sub OpenURL()
    
    Call ShellExecute(0&, vbNullString, mstrURL, _
                vbNullString, "C:\", mlngMax Or mlngMin Or mlngNormal)
End Sub

Public Sub Mail()
    
    Call ShellExecute(0&, vbNullString, "mailto:" & mstrURL, _
                vbNullString, "C:\", mlngMax Or mlngMin Or mlngNormal)
End Sub