我该如何解决这个错误？

Question

所以，我的WebBrowser

中有这个错误

即使我有这段代码：

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ScriptErrorsSuppressed = True

为什么我得到这个以及如何摆脱它？

Answer 1

如果您是动态创建Webbrowser组件，我建议您在此时设置ScriptErrorsSurpressed = True。

Dim wb as New WebBrowser
wb.ScriptErrorsSurpressed = True
'Other declarations...

如果它不是动态创建的，那么我建议您转到控件并在设计视图中手动将设置更改为True。

如果这不起作用，请参阅我对原始帖子的请求/评论。

编辑1

这是你的代码：

Dim Browser As New WebBrowser 
TabControl1.TabPages.Add("New Page") 
Browser.Name = "Web Browser" 
Browser.Dock = DockStyle.Fill 
TabControl1.SelectedTab.Controls.Add(Browser) 
AddHandler Browser.ProgressChanged, AddressOf Loading 
AddHandler Browser.DocumentCompleted, AddressOf Done 
int = int + 1 
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ScriptErrorsSuppressed = True

这就是我写它的方式：

Dim Browser As New WebBrowser 
Browser.Name = "Web Browser" 
Browser.Dock = DockStyle.Fill 
AddHandler Browser.ProgressChanged, AddressOf Loading 
AddHandler Browser.DocumentCompleted, AddressOf Done 
TabControl1.TabPages.Add("New Page") 
TabControl1.SelectedTab.Controls.Add(Browser)
int = int + 1 
Browser.GoHome()
Browser.ScriptErrorsSurpressed = True

我认为根本不需要CType()。

Answer 2

您收到错误是因为yts / bin文件夹中http://s.ytimg.com服务器上的javascript文件（www-home-vflVATumV.js）出错，或者发现任何对象的LENGTH属性存在动态错误它试图评估。