以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码点击控件+刷新页面  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172558)

--  作者:工匠
--  发布时间:2021/10/19 13:58:00
--  [求助]代码点击控件+刷新页面
老师好:
请教一下,现在窗口加入网页控件,刷新显示本地HTML内容,原来刷新实现是:1.鼠标点击网页控件 2.按F5刷新页面内容

备注:必须要先点击网页控件区域,在按F5才会生效

需要实现:窗口加个按钮,执行刷新显示最新的内容,这代码怎么写
尝试:forms("测试").Controls("浏览器控件").Select \'(只能能定位到浏览器控件)

备注:只要代码实现1.鼠标点击网页控件事件+ 2.按F5刷新页面内容事件,
不是重新执行打开文件代码

谢谢老师!






--  作者:有点蓝
--  发布时间:2021/10/19 14:25:00
--  
窗口刷新按钮

Dim web = e.Form.Controls("WebBrowser1").basecontrol
web.refresh()

或者
web.Document.ExecCommand("Refresh",false,nothing)

--  作者:工匠
--  发布时间:2021/10/19 15:34:00
--  
谢谢老师,现在执行代码单击按钮浏览器页面刷新一次了,数据没有更新。
需要2个动作代码:1.用代码实现 代替鼠标点击了一下窗口里指定控件 “网页面”(不是执行一次按钮代码:forms("窗口").Controls("控件").PerformClick) 2.用代码实现 代替手动 按了一下键盘 F5键

谢谢老师!

--  作者:有点蓝
--  发布时间:2021/10/19 15:48:00
--  
如果2楼代码执行页面刷新,而没有刷新数据,那是页面设计的问题

1、如果要在窗口使用代码控制WebBrowser里的页面有的麻烦,自行学习一下:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49278
2、2楼就是刷新页面的用法