How can I let the internet explorer start to navigate in the same windwo?

[husamal_ahmadi]

Hi everyBody:

I have this question which really drive me cruzy,
By using VB.Net:

How can I let the internet explorer navigate in the same window either
by using win32 API or by using Microsoft Internet Control refreance to
my project ?

some body toled me to use ShellExcute Function in API but I tried it
and it did not work and some body give me this code :

Option Explicit
Private MyExplorer As InternetExplore r

Private Sub Command1_Click( )
FirstExplorer.N avigate "www.google.com "
End Sub

Public Function FirstExplorer() As InternetExplore r
' REFERENCE Microsoft Internet Controls for:
Dim SW As ShellWindows
Dim IE As InternetExplore r

If MyExplorer Is Nothing Then

Set SW = New ShellWindows
For Each IE In SW
If TypeName(IE.Doc ument) = "HTMLDocume nt" Then
Set MyExplorer = IE
Exit For
End If
Next

If MyExplorer Is Nothing Then
' If there is no Explorer open, then what?
Set MyExplorer = New InternetExplore r
End If
End If

Set FirstExplorer = MyExplorer

End Function

and alos it did not work with me, and also I used the send function as
follwoing:

Sendmessage(hwn d,WM_SETTEXT,0, "http;//www.yahoo.com/" )

and I foucs that this message set the address bar of the internet
explorer to the url but it did not start to navigate .

So finally Any hlep will be appreciate to solve this problem

Regard's

Husam

[Cor Ligthert]

Husamal,

You mean simple this

\\\Needs a form with a button
Private Sub Form7_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim p As New Process
Dim pi As New ProcessStartInf o
pi.FileName = "http://www.Google.com"
p.StartInfo = pi
p.Start()
End Sub
Private Sub Button1_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button1.Click
Dim p As New Process
Dim pi As New ProcessStartInf o
pi.FileName = "http://msdn.microsoft. com"
p.StartInfo = pi
p.Start()
End Sub
///
I hope this helps,

Cor

[Herfried K. Wagner [MVP]]

"Cor Ligthert" <no************ @planet.nl> schrieb:

\\\Needs a form with a button
Private Sub Form7_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim p As New Process
Dim pi As New ProcessStartInf o
pi.FileName = "http://www.Google.com"
p.StartInfo = pi
p.Start()
End Sub
Private Sub Button1_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button1.Click
Dim p As New Process
Dim pi As New ProcessStartInf o
pi.FileName = "http://msdn.microsoft. com"
p.StartInfo = pi
p.Start()
End Sub
///

This will only work if Internet Explorer is configured to reuse existing
windows. Otherwise a new window will be opened.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Crouchie1998]

I agree with Herfried on that one, Cor

Crouchie1998
BA (HONS) MCP MCSE

[Cor Ligthert]

Crouchie,

Did I not, however when it is, than it works as asked.

:-)

Cor

[Herfried K. Wagner [MVP]]

<hu************ @yahoo.com> schrieb:

How can I let the internet explorer navigate in the same window either
by using win32 API or by using Microsoft Internet Control refreance to
my project ?

some body toled me to use ShellExcute Function in API but I tried it
and it did not work and some body give me this code :

Option Explicit
Private MyExplorer As InternetExplore r

Private Sub Command1_Click( )
FirstExplorer.N avigate "www.google.com "
End Sub

Public Function FirstExplorer() As InternetExplore r
' REFERENCE Microsoft Internet Controls for:
Dim SW As ShellWindows
Dim IE As InternetExplore r

If MyExplorer Is Nothing Then

Set SW = New ShellWindows
For Each IE In SW
If TypeName(IE.Doc ument) = "HTMLDocume nt" Then
Set MyExplorer = IE
Exit For
End If
Next

If MyExplorer Is Nothing Then
' If there is no Explorer open, then what?
Set MyExplorer = New InternetExplore r
End If
End If

Set FirstExplorer = MyExplorer

End Function

Add a reference to "Microsoft WebBrowser Control", then use this code
(tested on Windows XP SP2, IE6 SP2):

\\\
Imports SHDocVw
..
..
..
Private MyExplorer As InternetExplore r

Private Sub Form1_Load( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles MyBase.Load
FirstExplorer.N avigate("http://www.google.com/")
End Sub

Public Function FirstExplorer() As InternetExplore r
' REFERENCE Microsoft Internet Controls for:
Dim SW As ShellWindows
Dim IE As InternetExplore r
If MyExplorer Is Nothing Then
SW = New ShellWindows
For Each IE In SW
If TypeName(IE.Doc ument) = "HTMLDocume nt" Then
MyExplorer = IE
Exit For
End If
Next IE
If MyExplorer Is Nothing Then

' Window not yet opened, open new window.
MyExplorer = New InternetExplore r
MyExplorer.Visi ble = True
End If
End If
FirstExplorer = MyExplorer
End Function

Private Sub Button1_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles Button1.Click
FirstExplorer.N avigate("http://www.activevb.de/")
End Sub
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Cor Ligthert]

Crouchie,

However that is the default setting

When it is in another way and want it in the same window than you are
overiding user preferences. What is not right in my opinion.

When it has to be in a new window, it is easily to do, see for that the
answer in this message

http://groups-beta.google.com/group/...b84f389d055d2b

Cor

[Cor Ligthert]

Herfried,

Nice

:-)

Cor