Foxtable(狐表)用户栏目专家坐堂 → 增加网页窗口报错?


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

主题:增加网页窗口报错?

帅哥哟,离线,有人找我吗?
wukang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:53 积分:427 威望:0 精华:0 注册:2019/8/7 17:05:00
增加网页窗口报错?  发帖心情 Post By:2020/1/9 10:36:00 [显示全部帖子]

咨询一下,增加网页窗口,预览的时候,报错,我已经关闭报错提醒了,怎么还是报错呢?

图片点击可在新窗口打开查看此主题相关图片如下:网页窗口的报错.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
wukang
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:53 积分:427 威望:0 精华:0 注册:2019/8/7 17:05:00
回复:(有点蓝)没有关闭吧,什么事件写了什么代码?...  发帖心情 Post By:2020/1/9 14:55:00 [显示全部帖子]

网页窗口afterload 里面写的以下代码

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True '关闭脚本错误提示

 回到顶部
帅哥哟,离线,有人找我吗?
wukang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:53 积分:427 威望:0 精华:0 注册:2019/8/7 17:05:00
回复:(有点蓝)再上面的代码之后再设置address,不要...  发帖心情 Post By:2020/1/9 16:33:00 [显示全部帖子]

哦,好的,谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
wukang
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:53 积分:427 威望:0 精华:0 注册:2019/8/7 17:05:00
回复:(有点蓝)再上面的代码之后再设置address,不要...  发帖心情 Post By:2020/1/10 9:04:00 [显示全部帖子]

我在里面写了以下代码,还是报错的,能解决吗?
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200110090032.png
图片点击可在新窗口打开查看
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True '关闭脚本错误提示
web.navigate("https://wx.zsxq.com/dweb2/login")


Dim ie As Object = CreateObject("InternetExplorer.Application")
vars("ie") = ie
ie.menubar=0 '不显示IE对象菜单栏
ie.AddressBar=0 '不显示IE对象地址栏
ie.ToolBar=0 '不显示IE对象工具栏
ie.StatusBar=0 '不显示IE对象状态栏
'ie.FullScreen=1 '全屏化IE对象
ie.Width=e.Form.Controls("WebBrowser1").width '设置IE对象宽度
ie.Height=e.Form.Controls("WebBrowser1").height '设置IE对象高度
ie.left = 0
ie.Top = 0
ie.Resizable=1 '设置IE对象大小是否可以被改动
ie.Navigate("https://wx.zsxq.com/dweb2/login")

 回到顶部