VFP表单中的webbrowser 显示一个网页时，如何控制缩放 - 编程论坛

#2

吹水佬2021-12-06 19:51

thisform.webbrowser1.ExecWB(63, 2, 75, 0) && 缩放75%
thisform.webbrowser1.ExecWB(63, 2, 150, 0) && 缩放150%

#3

easyppt2021-12-06 22:26

谢谢吹版！
webbrowser1 的INIT里这样写，运行时报错误：trying to revoke a drop target that has not been registered
this.Navigate2("code.htm")
This.ExecWB(63, 2, 75, 0) && 缩放75%

但如果INIT只加载：this.Navigate2("code.htm") ，然后再放一个按钮，click 代码里写 This.ExecWB(63, 2, 75, 0) && 缩放75%，就正常，不知道什么情况

我是想表单运行就按照缩放比例显示，而并非按钮点击调节。

[此贴子已经被作者于2021-12-6 22:28编辑过]

#4

吹水佬2021-12-06 22:55

回复 3楼 easyppt

是缩放网页的嘛，当然要网页完全打开后才有缩放的。

#5

吹水佬2021-12-06 22:58

有网页载入事件，载入完执行缩放代码

#6

reakal2021-12-06 23:22

以下是引用吹水佬在2021-12-6 22:58:54的发言：

有网页载入事件，载入完执行缩放代码

把缩放放在 DocumentComplete 里，就可以了。

学习学习！

#7

吹水佬2021-12-15 12:01

在form的init事件执行一次应该就可以
thisform.webbrowser1.navigate2("about:blank")
INKEY(0.1)
thisform.webbrowser1.ExecWB(63, 2, 75, 0) && 缩放75%