Foxtable(狐表)用户栏目专家坐堂 → [求助]代码点击控件+刷新页面


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

主题:[求助]代码点击控件+刷新页面

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


加好友 发短信
等级:二尾狐 帖子:543 积分:4865 威望:0 精华:0 注册:2017/4/20 11:08:00
[求助]代码点击控件+刷新页面  发帖心情 Post By:2021/10/19 13:58:00 [只看该作者]

老师好:
请教一下,现在窗口加入网页控件,刷新显示本地HTML内容,原来刷新实现是:1.鼠标点击网页控件 2.按F5刷新页面内容

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

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

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

谢谢老师!






 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107035 积分:544406 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/19 14:25:00 [只看该作者]

窗口刷新按钮

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

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

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


加好友 发短信
等级:二尾狐 帖子:543 积分:4865 威望:0 精华:0 注册:2017/4/20 11:08:00
  发帖心情 Post By:2021/10/19 15:34:00 [只看该作者]

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

谢谢老师!

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107035 积分:544406 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/19 15:48:00 [只看该作者]

如果2楼代码执行页面刷新,而没有刷新数据,那是页面设计的问题

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

 回到顶部