- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打开网页后,出错退出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32735)
-- 发布时间：2013/5/7 13:47:00
-- 打开网页后,出错退出
一个窗体,加载web后打开网页时,网页上有错误,窗体就会出错退出,如图:
网页错误提示:
此主题相关图片如下：01.jpg
窗体提示错误:
此主题相关图片如下：02.jpg
这是在web控件里面操作的,网页如果没有登录,会提示登录,登录完了,网页会提示错误,(用IE或别的浏览器打开是没有错误提示的),窗体也出错退出.
-- 发布时间：2013/5/7 14:05:00
--
有些急,请各位老师帮帮忙,
-- 发布时间：2013/5/7 14:06:00
--
e.Form.Controls("WebBrowser1").BaseControl.ScriptErrorsSuppressed=True
代码放到AlterLoad事件中去.
-- 发布时间：2013/5/7 14:06:00
--
还有点忘说了,如果是全部关掉foxtable重新打开项目,第一次窗体不会退出,第二次就会出现上面的情况
-- 发布时间：2013/5/7 14:14:00
--
以下是引用飞狐在2013-5-7 14:06:00的发言：
还有点忘说了,如果是全部关掉foxtable重新打开项目,第一次窗体不会退出,第二次就会出现上面的情况
按照我3楼给你的代码,应该不会再有问题的了.
还有点忘说了,如果是全部关掉foxtable重新打开项目,第一次窗体不会退出,第二次就会出现上面的情况
-- 发布时间：2013/5/7 14:32:00
--
bin: web控件是在窗体加载时生成的.
在打开按钮里代码:
Dim web As System.Windows.Forms.WebBrowser = e.Form.panel.controls(e.Form.panel.controls.count - 1)
web.Navigate("网址")
在After Load事件里代码:
Dim web As New System.Windows.Forms.WebBrowser
web.width = 800
web.height = 550
web.left = 10
web.Top = 50
e.Form.panel.controls.add(web)
如果加上三楼的代码,会在加载前提示找不到控件
-- 发布时间：2013/5/7 14:46:00
--
那么就在生成代码后面加上那句代码.
-- 发布时间：2013/5/7 14:54:00
--
afterload里面这样加入,也是找不到的,毕竟自动生成的控件不是知道名字.
Dim web As New System.Windows.Forms.WebBrowser
web.width = 800
web.height = 550
web.left = 10
web.Top = 50
e.Form.panel.controls.add(web)
e.Form.Controls("WebBrowser1").BaseControl.ScriptErrorsSuppressed=True
-- 发布时间：2013/5/7 14:56:00
--
不需要知道名字.在这里.
你不要生搬硬套啊.
Dim web As New System.Windows.Forms.WebBrowser \'你这里才声明的何必要去找它?
web.width = 800
web.height = 550
web.left = 10
web.Top = 50
e.Form.panel.controls.add(web)
web .BaseControl.ScriptErrorsSuppressed=True
-- 发布时间：2013/5/7 14:58:00
--
你声明的是 System.Windows.Forms.WebBrowser
那么连web .BaseControl.ScriptErrorsSuppressed=True 都可以去掉.
直接web.ScriptErrorsSuppressed=True