甜老师,是这个意思:
在窗口管理里有个“网页浏览器并列”窗口,还有个“网页浏览器独立”窗口,这两个窗口只是窗口类型不同,其他代码全都一样。
现在以并列窗口模式打开“网页浏览器并列”窗口运行,没有问题;函数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)