| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1011 人关注过本帖
标题:请教,顶层表单Visble=.t.时如何自动到最前面
只看楼主 加入收藏
laibinhua
Rank: 2
等 级:论坛游民
威 望:1
帖 子:293
专家分:38
注 册:2010-12-23
结帖率:58.75%
收藏
已结贴  问题点数:20 回复次数:2 
请教,顶层表单Visble=.t.时如何自动到最前面
请教,顶层表单Visble=.t.时如何自动到最前面,顶层表是2-As Top-Level Form 软件一开始将它设置成不可见 Visible=.f.  但我发如下命令让它显示出来时,它一直出现在软件的后面,要用光标在任务点它一下才会到最前面来,有什么办法可以用命令让它到最前面来
For lnFor=1 to _VFP.Forms.Count
    if  _VFP.Forms(lnFor).name='后台服务'
        pform=lnFor
        exit
    ELSE
        pform=0
    ENDIF
ENDFOR

IF pform>0
   _VFP.Forms(pform).visible=not _VFP.Forms(pform).visible
   IF _VFP.Forms(pform).visible=.t.
      _VFP.Forms(pform).activate()  &&我用这个命令来做,不行。。。请问有什么办法
   ENDIF
ENDIF

[此贴子已经被作者于2020-3-16 15:18编辑过]

搜索更多相关主题的帖子: 表单 最前面 自动 命令 Forms 
2020-03-16 15:14
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:20 
AlwaysOnTop = .T.
2020-03-16 16:24
laibinhua
Rank: 2
等 级:论坛游民
威 望:1
帖 子:293
专家分:38
注 册:2010-12-23
收藏
得分:0 
回复 2楼 吹水佬
谢谢版主,用你的解决了
2020-03-17 09:41
快速回复:请教,顶层表单Visble=.t.时如何自动到最前面
数据加载中...
 
   



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

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