Solved

Opening Browser

Posted on 2002-06-09
8
173 Views
Last Modified: 2010-05-02
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
Comment
Question by:alak
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
8 Comments
 
LVL 2

Expert Comment

by:priya_pbk
ID: 7066288
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
 

Expert Comment

by:HeN_da_MaN
ID: 7066347
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
 
LVL 9

Expert Comment

by:Nitin Sontakke
ID: 7066405
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
MS Dynamics Made Instantly Simpler

Make Your Microsoft Dynamics Investment Count  & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.

 
LVL 9

Accepted Solution

by:
Nitin Sontakke earned 100 total points
ID: 7066409
Here is the tested code...

Private Sub Command1_Click()
    Call Shell("Cmd /cStart " & htmlFileName)
End Sub
0
 
LVL 22

Expert Comment

by:Mohammed Nasman
ID: 7066558
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
 

Author Comment

by:alak
ID: 7068993
Thank you very much for helping. It is working fine.
0
 
LVL 9

Expert Comment

by:Nitin Sontakke
ID: 7069348
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
 
LVL 9

Expert Comment

by:Nitin Sontakke
ID: 7069354
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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses
Course of the Month10 days, 19 hours left to enroll

632 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question