- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 增加网页窗口报错？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145126)
-- 发布时间：2020/1/9 10:36:00
-- 增加网页窗口报错？
咨询一下，增加网页窗口，预览的时候，报错，我已经关闭报错提醒了，怎么还是报错呢？
此主题相关图片如下：网页窗口的报错.png
-- 发布时间：2020/1/9 11:15:00
--
没有关闭吧，什么事件写了什么代码？
-- 发布时间：2020/1/9 14:55:00
-- 回复：（有点蓝）没有关闭吧，什么事件写了什么代码？...
网页窗口afterload 里面写的以下代码
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True \'关闭脚本错误提示
-- 发布时间：2020/1/9 15:16:00
--
再上面的代码之后再设置address，不要在窗口设计里指定网址
-- 发布时间：2020/1/9 16:33:00
-- 回复：（有点蓝）再上面的代码之后再设置address，不要...
哦，好的，谢谢。
-- 发布时间：2020/1/10 9:04:00
-- 回复：（有点蓝）再上面的代码之后再设置address，不要...
我在里面写了以下代码，还是报错的，能解决吗？
此主题相关图片如下：微信截图_20200110090032.png
：
此主题相关图片如下：微信截图_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")
-- 发布时间：2020/1/10 9:14:00
--
能用的属性都在这里
Dim webCtl As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim webb = webCtl.BaseControl
webb.ScrollBarsEnabled = False \'禁止滚动条
webb.ScriptErrorsSuppressed = True \'禁止js错误提示
webb.IsWebBrowserContextMenuEnabled = False ‘禁止快捷菜单
webb.WebBrowserShortcutsEnabled = False ‘禁止快捷键