标题:VFP控制IE问题,望大佬赐教!
只看楼主
qiuxingce
Rank: 2
等 级:论坛游民
帖 子:118
专家分:93
注 册:2014-1-17
结帖率:73.33%
 问题点数:0 回复次数:2 
VFP控制IE问题,望大佬赐教!
软件界面.visible=.f.
public pbWebBrowser
pbWebBrowser=CREATEOBJECT("InternetExplorer.Application")  
pbWebBrowser.Navigate("https://tjebook.)  
pbWebBrowser.Visible   =   .T.  
pbWebBrowser.FullScreen=.T.   &&全屏  
软件界面.visible=.T.


因为IE界面显示后并没有暂停,软件界面又显示出来了,能不能让IE界面显示后在用户关闭IE窗口之前不执行后面的命令(软件界面.VISIB
搜索更多相关主题的帖子: IE 显示 软件 VFP 界面 
2020-05-21 17:43
zhken
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:273
专家分:594
注 册:2012-9-21
得分:0 

&&以下代码存为temp.prg

of = CREATEOBJECT("WebForm")
of.show(1)
RETURN
DEFINE CLASS WebForm as Form
    ADD OBJECT WB as Olecontrol WITH OleClass="Shell.Explorer.2",Top=0,Left=0,Width=this.Width,Height=this.Height,Anchor=15,Visible=.T.
    PROCEDURE init
        fHTML = "WWW.BAIDU.COM"
        STRTOFILE("<PRE>VFP & WebBrowser<PRE>",fHTML)
        this.WB.navigate(fHTML, 0, NULL, NULL, NULL)
    ENDPROC
ENDDEFINE

在你要隐藏的表单上建一个按钮
thisform.visible=.f.
do temp.prg
然后在新表单关闭时 将原表单显出来。

2020-05-21 18:50
qiuxingce
Rank: 2
等 级:论坛游民
帖 子:118
专家分:93
注 册:2014-1-17
得分:0 
谢谢,受教了!
2020-05-21 20:38



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-501722-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.367820 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved