[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 177
  • Last Modified:

Opening Browser

Can I able to open a html page in internet explorer on click on a button in vb application? I am able to open the page with web browser control which is opening the in that vb application in a form there is no addressbar, menubar, statusbar etc. But I want to open the page in internet explorer 6.0. I have installed vb6.0.
0
alak
Asked:
alak
1 Solution
 
priya_pbkCommented:
yes you can open an htm page in an IE thru VB application. Here it is :

'declare at the start of the module
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

Sub command1_click()
'whatever page ie from the net or from local drive,
'just write the path of the htm file
Call Shell("C:/Program Files/Plus!/Microsoft Internet/iexplore.exe http://1.1.1.1/project/htmpreview.htm", vbMaximizedFocus)
End Sub

Write the path of the iexplorer whereever it exists.I hope this helps

-priya


0
 
HeN_da_MaNCommented:
Set a reference to "Microsoft Internet Controls"

Private Sub Command1_Click()
Dim objBrowser As InternetExplorer

    Set objBrowser = New InternetExplorer
    objBrowser.Navigate2 "http://www.whatever.com"
    objBrowser.Visible = True
   
End Sub

Where the declaration could be global  or like this in the function

cheers

hen
0
 
Nitin SontakkeDeveloperCommented:
I don't know how reliable it is, but you can also give following shell command:

Call Shell("Start " & htmlFileName)

If filename has .htm or .html extension, Start will workout which program to invoke and will show page in IE, provided, of course, it is a default browser.
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
Nitin SontakkeDeveloperCommented:
Here is the tested code...

Private Sub Command1_Click()
    Call Shell("Cmd /cStart " & htmlFileName)
End Sub
0
 
Mohammed NasmanSoftware DeveloperCommented:
Hello
 
  Using the ShellExecute API is the better way I use for that, it's only need the path

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


Private Sub Command1_Click()
 Dim I As Long
 I = ShellExecute(0, "Open", "www.google.com", "", "", 1)
End Sub
0
 
alakAuthor Commented:
Thank you very much for helping. It is working fine.
0
 
Nitin SontakkeDeveloperCommented:
Thanks.

But, let me be honest here.

As stated earlier, i am not sure how reliable it is. The reason to say this is given below. However, it all depends on you target platforms. If they are all same, it really doesn't matter. However, if not, then....

I am not too sure, but some environments have "Command" command to invoke the command interpreter and some have "Cmd". As i guess it, the NT based OS such as NT, XP, Win2K Advanced Server have "CMD", and Win9x have "Command" command.

If you are attempting to target Win9x OS, i will suggest that you test your app on these OS before any commercial deployment.

With this revelations, i wouldn't mind if take back my point and reopen the question, if you want.

Thanks again.
0
 
Nitin SontakkeDeveloperCommented:
In line with what is said above, the following might help.

Private Sub Command1_Click()
    If Environ("OS") = "Windows_NT" Then
       Call Shell("Cmd /cStart " & htmlFileName)
    Else
       Call Shell("Command /cStart " & htmlFileName)
    End If
End Sub

0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now