Hi all,
I want to have 3 webbrowsers on the one form. Web1 will act as my parent browser, Web2 control pop-ups from Web1 and Web3 will control pop-ups from Web2. I can pass the URL information from Web1 to Web2 and from Web2 to Web3. However, how do I pass control back to my parent browser? I have tried using the NavigateComplete event but this doesn't work.
Thanking you in advance.
I want to have 3 webbrowsers on the one form. Web1 will act as my parent browser, Web2 control pop-ups from Web1 and Web3 will control pop-ups from Web2. I can pass the URL information from Web1 to Web2 and from Web2 to Web3. However, how do I pass control back to my parent browser? I have tried using the NavigateComplete event but this doesn't work.
Code:
Private WithEvents NewWebBrowserWindowHandler As SHDocVwCtl.WebBrowser_V1
Private WithEvents NewWebBrowserWindowHandler2 As SHDocVwCtl.WebBrowser_V1
Private WithEvents NewWebBrowserWindowHandler3 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
Me.WindowState = vbMaximized
Set NewWebBrowserWindowHandler = WebBrowser1.object
Set NewWebBrowserWindowHandler2 = WebBrowser2.object
Set NewWebBrowserWindowHandler3 = WebBrowser3.object
WebBrowser1.Navigate "http://localhost/v33/login_action.asp?username=demo&password=demo"
End Sub
Private Sub NewWebBrowserWindowHandler_NewWindow(ByVal URL As String, ByVal FLAGS As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
'Passes URL information from Web1 to Web2
WebBrowser2.Navigate URL
Processed = True
End Sub
Private Sub NewWebBrowserWindowHandler2_NewWindow(ByVal URL As String, ByVal FLAGS As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
WebBrowser3.Navigate URL
Processed = True
End Sub