Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打开网页后,出错退出


  共有5407人关注过本帖树形打印复制链接

主题：打开网页后,出错退出
帅哥哟，离线，有人找我吗？
飞狐
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：33 积分：289 威望：0 精华：0 注册：2012/9/5 10:06:00 		打开网页后,出错退出  发帖心情 Post By：2013/5/7 13:47:00 [只看该作者]

一个窗体,加载web后打开网页时,网页上有错误,窗体就会出错退出,如图:

网页错误提示:

此主题相关图片如下：01.jpg
按此在新窗口浏览图片

窗体提示错误:

此主题相关图片如下：02.jpg
按此在新窗口浏览图片

这是在web控件里面操作的,网页如果没有登录,会提示登录,登录完了,网页会提示错误,(用IE或别的浏览器打开是没有错误提示的),窗体也出错退出.
 回到顶部
帅哥哟，离线，有人找我吗？
飞狐
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：33 积分：289 威望：0 精华：0 注册：2012/9/5 10:06:00 		  发帖心情 Post By：2013/5/7 14:05:00 [只看该作者]

有些急,请各位老师帮帮忙,

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/7 14:06:00 [只看该作者]

e.Form.Controls("WebBrowser1").BaseControl.ScriptErrorsSuppressed=True
代码放到AlterLoad事件中去.
 回到顶部
帅哥哟，离线，有人找我吗？
飞狐
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：33 积分：289 威望：0 精华：0 注册：2012/9/5 10:06:00 		  发帖心情 Post By：2013/5/7 14:06:00 [只看该作者]

还有点忘说了,如果是全部关掉foxtable重新打开项目,第一次窗体不会退出,第二次就会出现上面的情况

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/7 14:14:00 [只看该作者]

以下是引用飞狐在2013-5-7 14:06:00的发言：
还有点忘说了,如果是全部关掉foxtable重新打开项目,第一次窗体不会退出,第二次就会出现上面的情况

按照我3楼给你的代码,应该不会再有问题的了.

 回到顶部
帅哥哟，离线，有人找我吗？
飞狐
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：33 积分：289 威望：0 精华：0 注册：2012/9/5 10:06:00 		  发帖心情 Post By：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)


如果加上三楼的代码,会在加载前提示找不到控件
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/7 14:46:00 [只看该作者]

那么就在生成代码后面加上那句代码.

 回到顶部
帅哥哟，离线，有人找我吗？
飞狐
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：33 积分：289 威望：0 精华：0 注册：2012/9/5 10:06:00 		  发帖心情 Post By：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
 
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/7 14:58:00 [只看该作者]

你声明的是 System.Windows.Forms.WebBrowser
那么连web .BaseControl.ScriptErrorsSuppressed=True 都可以去掉.
直接web.ScriptErrorsSuppressed=True
 回到顶部
总数 27 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询