主题：[求助]浏览器窗口

论坛的实例--模拟浏览器，我想分别单独打开（并列窗口模式）或者在父窗口内打开（独立窗口）。

这两种打开模式怎样共存？

请老师帮助看看newwindow的函数怎样修改？

谢谢！

 

Dim url = args(0)
Dim cancel = args(1)
Dim frm As winform.Form = Forms("网页浏览器并列")

Dim web As new windows.Forms.webbrowser
Dim tab = frm.controls("TabControl1")
Dim btab = frm.controls("TabControl1").BaseControl
Dim pname As String = "page" & tab.tabpages.count
Dim np = tab.tabpages.add(pname, "新页面")
web.Dock = 5
btab.tabpages(pname).controls.add(web)
tab.SelectedPage = np
web.ScriptErrorsSuppressed = True
AddHandler DirectCast(web.ActiveXInstance, SHDocVw.WebBrowser).NewWindow3, AddressOf NewWindow3
addhandler web.DocumentCompleted, addressof web_DocumentCompleted
addhandler web.NewWindow, addressof web_NewWindow
web.name = "web_" & pname
'cancel = True
web.navigate(url)

 

 

此主题相关图片如下：360截图20180726112217112.jpg

  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:模拟浏览器.table

 

没看懂你要做什么。

 

如果仅仅是希望执行不同的处理函数，你绑定不同的函数不就好了？

 

addhandler web.NewWindow, addressof web_NewWindow

甜老师，是这个意思：

在窗口管理里有个“网页浏览器并列”窗口，还有个“网页浏览器独立”窗口，这两个窗口只是窗口类型不同，其他代码全都一样。

现在以并列窗口模式打开“网页浏览器并列”窗口运行，没有问题；函数newwindow里涉及的窗口名称是Forms("网页浏览器并列")。

问题是，如果打开“网页浏览器独立”或者在父窗口打开它，就提示出错，错误指向函数newwindow。

我按照老师楼上的提示，新建立一个函数ddnewwindow，改动了加黑的两处代码，结果打开上述两种窗口都出错了。

该怎么改......

谢谢！

 

Dim url = args(0)
Dim cancel = args(1)
Dim frm As winform.Form = Forms("网页浏览器独立")

Dim web As new windows.Forms.webbrowser
Dim tab = frm.controls("TabControl1")
Dim btab = frm.controls("TabControl1").BaseControl
Dim pname As String = "page" & tab.tabpages.count
Dim np = tab.tabpages.add(pname, "新页面")
web.Dock = 5
btab.tabpages(pname).controls.add(web)
tab.SelectedPage = np
web.ScriptErrorsSuppressed = True
AddHandler DirectCast(web.ActiveXInstance, SHDocVw.WebBrowser).NewWindow3, AddressOf NewWindow3
addhandler web.DocumentCompleted, addressof web_DocumentCompleted
addhandler web.NewWindow, addressof web_ddNewWindow
web.name = "web_" & pname
'cancel = True
web.navigate(url)

 

这个意思？

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:模拟浏览器.table