以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  网页浏览器的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=100410)

--  作者:jick0526
--  发布时间:2017/5/11 3:23:00
--  网页浏览器的问题
老师,请问下,窗口的网页浏览器能不能改成在菜单上做个按钮来实现,代码该怎么写
--  作者:有点色
--  发布时间:2017/5/11 9:47:00
--  

 你要实现什么?点击设置网址?

 

http://www.foxtable.com/webhelp/scr/1480.htm

 


--  作者:jick0526
--  发布时间:2017/5/11 12:47:00
--  
就是在功能区加个按钮,点击按钮,就会在表A的主窗口打开网站
--  作者:有点蓝
--  发布时间:2017/5/11 14:25:00
--  
按钮代码:

Dim brw As WinForm.WebBrowser = Forms("窗口1").Controls("WebBrowser1")
brw.Address = 
"http://www.foxtable.com/"

--  作者:jick0526
--  发布时间:2017/5/11 17:51:00
--  
老师,上面的代码能帮我加个自动打开吗,比如我现在是在表B的主窗口,只要我点下菜单的按钮,就会自动打开表A的主窗口并打开网站
--  作者:jick0526
--  发布时间:2017/5/11 18:08:00
--  
老师,又出现个问题,打开网站时提示“当前页面的脚本发生错误 
--  作者:有点色
--  发布时间:2017/5/11 18:10:00
--  

Dim brw As WinForm.WebBrowser = Forms("窗口1").Controls("WebBrowser1")

Dim web As System.Windows.Forms.WebBrowser = brw.basecontrol
web.ScriptErrorsSuppressed = True

brw.Address = "http://www.foxtable.com/"