我该如何解决这个错误？

Question

所以，我在我的WebBrowser

这个错误，即使我有这样的代码：

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

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

Answer 1

由于yts/bin文件夹中的http://s.ytimg.com服务器上的JavaScript文件（www-home-vflVATumV.js）出现错误，或者发现了其所尝试对象的LENGTH属性发生动态错误评估。

Answer 2

如果您正在动态创建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()可言。