VB/WinAPI, How to launch webbrowser from VB6?

E.J.
#1 / 5

How to launch webbrowser from VB6?

How do I launch my webbrowser from VB6? In VB3 the following function worked
just fine, but not under VB6.

Declare Function ShellExecute Lib "shell.dll" (ByVal hWnd As Integer, ByVal
Options As Long, ByVal FileName As String, ByVal Params As Long, ByVal
DefaultDir As String, ByVal ShowCmd As Integer) As Integer

Sub ConnectToWebPage(WebPage As String)

Dim rtn As Integer, MyDir As String

MyDir = CurDir$

rtn = ShellExecute(Screen.ActiveForm.hWnd, 0, WebPage, 0, MyDir,
SW_SHOWMAXIMIZED)
If Not rtn > 32 Then
Msg = "Connection failed."
MsgBox (Msg), 16, "nO Connection"

End If

End Sub
--
Eric J. van Dorp

Van Dorp Educatieve Programmatuur

Postbox 268
2990 AG Barendrecht
The Netherlands

Sat, 22 Dec 2001 03:00:00 GMT

crazyALE
#2 / 5

How to launch webbrowser from VB6?

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
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()

ShellExecute Me.hwnd, vbNullString, "xxx.com, vbNullString, "C:\",
SW_SHOWNORMAL

End Sub

best regards

Alex

--

Dim Life as Boolean

Life = True

http://www.crazyALEX.notrix.de

ich wnsche noch nen bug-freien Tag!
i'll wish you a bug-free day!

Quote:

>How do I launch my webbrowser from VB6? In VB3 the following function
worked
>just fine, but not under VB6.

>Declare Function ShellExecute Lib "shell.dll" (ByVal hWnd As Integer, ByVal
>Options As Long, ByVal FileName As String, ByVal Params As Long, ByVal
>DefaultDir As String, ByVal ShowCmd As Integer) As Integer

>Sub ConnectToWebPage(WebPage As String)

> Dim rtn As Integer, MyDir As String

> MyDir = CurDir$

> rtn = ShellExecute(Screen.ActiveForm.hWnd, 0, WebPage, 0, MyDir,
>SW_SHOWMAXIMIZED)
> If Not rtn > 32 Then
> Msg = "Connection failed."
> MsgBox (Msg), 16, "nO Connection"

> End If

>End Sub
>--
>Eric J. van Dorp

>Van Dorp Educatieve Programmatuur

>Postbox 268
>2990 AG Barendrecht
>The Netherlands

Sat, 22 Dec 2001 03:00:00 GMT

zima
#3 / 5

How to launch webbrowser from VB6?

or try this... Shell("start http://nextsite.com", vbNormal)

Quote:

> How do I launch my webbrowser from VB6? In VB3 the following function
worked
> just fine, but not under VB6.

> Declare Function ShellExecute Lib "shell.dll" (ByVal hWnd As Integer,
ByVal
> Options As Long, ByVal FileName As String, ByVal Params As Long, ByVal
> DefaultDir As String, ByVal ShowCmd As Integer) As Integer

> Sub ConnectToWebPage(WebPage As String)

> Dim rtn As Integer, MyDir As String

> MyDir = CurDir$

> rtn = ShellExecute(Screen.ActiveForm.hWnd, 0, WebPage, 0, MyDir,
> SW_SHOWMAXIMIZED)
> If Not rtn > 32 Then
> Msg = "Connection failed."
> MsgBox (Msg), 16, "nO Connection"

> End If

> End Sub
> --
> Eric J. van Dorp

> Van Dorp Educatieve Programmatuur

> Postbox 268
> 2990 AG Barendrecht
> The Netherlands

Sun, 23 Dec 2001 03:00:00 GMT

Mike Sloa
#4 / 5

How to launch webbrowser from VB6?

Alternative approach...

Include the Microsoft Internet Controls library in the References of your
Project and...

Dim MyBrowser As SHDocVw.InternetExplorer

Set MyBrowser = New SHDocVw.InternetExplorer
MyBrowser.Visible = True
MyBrowser.Navigate "http://www.whereyouwanttogo.com

Sun, 23 Dec 2001 03:00:00 GMT

LONG
#5 / 5

How to launch webbrowser from VB6?

E.J.
Very Simply, you need to create and instance of the application, like:

dim o as objects

set o = createobject("explorer.application") 'Check name in registry

That's it, your ready to use the object for whatever!

Quote:

>How do I launch my webbrowser from VB6? In VB3 the following function
worked
>just fine, but not under VB6.

>Declare Function ShellExecute Lib "shell.dll" (ByVal hWnd As Integer, ByVal
>Options As Long, ByVal FileName As String, ByVal Params As Long, ByVal
>DefaultDir As String, ByVal ShowCmd As Integer) As Integer

>Sub ConnectToWebPage(WebPage As String)

> Dim rtn As Integer, MyDir As String

> MyDir = CurDir$

> rtn = ShellExecute(Screen.ActiveForm.hWnd, 0, WebPage, 0, MyDir,
>SW_SHOWMAXIMIZED)
> If Not rtn > 32 Then
> Msg = "Connection failed."
> MsgBox (Msg), 16, "nO Connection"

> End If

>End Sub
>--
>Eric J. van Dorp

>Van Dorp Educatieve Programmatuur

>Postbox 268
>2990 AG Barendrecht
>The Netherlands

Sun, 23 Dec 2001 03:00:00 GMT