Opening a web browser from vb

[zggs90]

I am writing a VB program that is required to open the web browser and display a site that is selected from a drop down list. I use the code below, where strName is the name from the dropdown list:

Dim strURL
Dim strName

strName = "

http://www.yahoo.com/"

strURL = Shell("C:\Program Files\Internet Explorer\" _
& "Iexplore.exe " & strName)

When I execute the program the browser opens but is minimised - how do I maximise the browser automatically?

 

[jebenson]

The Shell function has an optional second parameter WindowStyle. Set this parameter to vbMaximizedFocus:

strURL = Shell("C:\Program Files\Internet Explorer\" _
& "Iexplore.exe " & strName, vbMaximizedFocus)

I used to rock and roll every night and party every day. Then it was every other day. Now I'm lucky if I can find 30 minutes a week in which to get funky. - Homer Simpson

 

[BobRodes]

Another way to do it is to use the dll that's intended for this purpose, shdocvw.dll. You get a great deal of control over the instance of IE if you use this. Set a reference in VB to Microsoft Interenet Controls. The essential code is:

Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Navigate "[URL unfurl="true"]www.microsoft.com"[/URL]
ie.Visible = True

You'll find that there are lots of other methods and properties to control what shows and what doesn't. For example, ie.StatusBar = False will prevent the status bar from showing.

Bob

 

[zggs90]

Many thanks for both your help.

 

[zggs90]

Bob, thanks for your help.

But I get an error on the line "Set ie = New InternetExplorer"

Error is "Class does not support Automation or does not support expected interface"

Any advice please

Thanks

 

[dtrinowitz]

Here is the easiest was of solving your problem.


General
Public ie As Integer
_______________________________________
Private Sub Command1_Click()
ie = Shell("c:\programme\internet explorer\iexplore.exe

http://www.google.de",

vbMaximizedFocus)

End Sub

just change the address as desired. Instead of cmd buttom u can use various things(timers ect)

 

[dtrinowitz]

Another Info:
Dont forget to change directoy name urs will be program files.

 

[strongm]

SO that'll be the solution jebenson posted?

 

[dtrinowitz]

If you take a closer look at it its not the same. you don't have to define strName nor do u have to insert the &strName etc. its to complicated. This is the Easiest way. no xtras just write the desired url right after the file you want to open.

 

[llmclaughlin]

This is how I do it, hope it helps.

Private Declare Function ShellExecute Lib "shell32" 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 cmdTransfer_Click()
Dim l_lngRetVal As Long

Const SW_SHOWNORMAL = 1
l_lngRetVal = ShellExecute(0&, vbNullString, "

http://www.anywho.com/",

vbNullString, _
"C:\", SW_SHOWNORMAL)

 

[BobRodes]

I dunno, that's what I do, and it works for me. Maybe the way the other folks are showing you will work better for you.

Bob

 

[CubeE101]

try...

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "[URL unfurl="true"]http://www.yahoo.com/"("InternetExplorer.Application")[/URL]

;-)

Visit My Site
PROGRAMMER: Red-eyed, mumbling mammal capable of conversing with inanimate objects.

 

[CubeE101]

AND to go one step further ;-)

Sub OpenURL(URL As String)
  Dim IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate URL
End Sub

Oops... (there was a typo in the above code as well )

Visit My Site
PROGRAMMER: Red-eyed, mumbling mammal capable of conversing with inanimate objects.

 

[johnwm]

The simple solution that runs on the default browser:

Shell "RUNDLL32.EXE URL.DLL, FileProtocolHandler [URL unfurl="true"]www.essexsteam.co.uk"[/URL] , vbNormalFocus

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

http://www.essexsteam.co.uk

for steam enthusiasts