A Tough WebBrowser Problem

I am using Win98, IE6 and VB6.

I have a webbrowser on a form. I do not want a new window to open up, so this is what I did:

' ---------- Start code ------------

Dim WithEvents Web_VI As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
   Set Web_VI = WebBrowser1.Object
End Sub

Private Sub Web_VI_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
   Processed = True
   WebBrowser1.Navigate2 URL
End Sub

' --------- End code ----------------

Whenever a new window tries to open, it does not, and the current window opens to the URL that was supposed to be in the new window.  Everything seems to work, except that after the Web_VI_NewWindow procedure, the form (along with textboxes) and the webbrowser cannot receive keyboard inputs!

What am I doing wrong?  Please help!

limvaAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
ComTechConnect With a Mentor Commented:
This question will be placed in PAQ, and points refunded.

Regards,

ComTech
Community Support Administrator  
Experts-Exchange  


Thanks for your help Richie.
0
 
ventondCommented:
If you have a WebBrowser control on your form, why do you create another one in code?

Why not just:

Private Sub Form_Load()
  WebBrowser1.Navigate2 URL
End Sub


0
 
limvaAuthor Commented:
I made my code according to the instructions given here: http://support.microsoft.com/default.aspx?scid=kb;en-us;Q185538
0
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
limvaAuthor Commented:
Hi ventond, I found my answer!
I solved my problem by setting ppDisp to the Webbrowser object:

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Set ppDisp = WebBrowser1.Object
End Sub

Now my next problem is, how do I delete this question?

0
 
Richie_SimonettiIT OperationsCommented:
Ask to Community support not to delete but PAQ with 0 points. It will no cost you a penny.
Cheers
0
 
limvaAuthor Commented:
Thanks Richie.  But my problem returned.

After I set ppDisp to Webbrowser.object, my webbrowser would not go to the link that wants to open a new window!

HELP Please!

0
 
limvaAuthor Commented:
Sorry, my code actually works!
0
 
Richie_SimonettiIT OperationsCommented:
Good.
0
 
Richie_SimonettiIT OperationsCommented:
Thanks to both of you. This question has valuable info itself.
I saw this question posted several times so it is nice to put in EE's db.
Cheers
PS: Sorry for extra work, Comp.
And special thanks to limva who shares his knowledge with others for free. ;)
0
 
ComTechCommented:
You have never been a bother to me or any of the Mods, that is part of what we do.  The pleasure is all mine.

Thanks again,

CT  :)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.