| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1834 人关注过本帖, 1 人收藏
标题:一个表单在运行时,怎么禁止其它表单运行。
只看楼主 加入收藏
vfp60菜鸟
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2017-1-11
结帖率:82.35%
收藏(1)
已结贴  问题点数:20 回复次数:10 
一个表单在运行时,怎么禁止其它表单运行。
如题
2017-02-24 11:18
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:7 
把你正在运行的这个表单设置为模式表单,如在表单的INIT上写
this.WindowType = 1
应该就没问题了,如果还不行,就再把表单设置为顶层表单。(你自己测试1下)
2017-02-24 11:27
cxzbzgz
Rank: 8Rank: 8
来 自:云南楚雄
等 级:贵宾
威 望:24
帖 子:298
专家分:808
注 册:2012-6-15
收藏
得分:7 
把该表单设置为顶层表单,即:
This.WindowType = 1

学习交流VFP,QQ:248561326。
2017-02-24 14:37
vfp60菜鸟
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2017-1-11
收藏
得分:0 
不行啊,我用的是下拉菜单,执行了一个表单,点其他菜单项,也能运行命令里的表单。
2017-02-24 17:16
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
以下是引用vfp60菜鸟在2017-2-24 17:16:09的发言:

不行啊,我用的是下拉菜单,执行了一个表单,点其他菜单项,也能运行命令里的表单。
把表单的 ShowWindow = 1 &&在顶层表单中
把表单的 WindowType = 1 &&模式表单
2017-02-24 21:50
vfp60菜鸟
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2017-1-11
收藏
得分:0 
试了,不行,还有办法没?
2017-02-25 14:55
vfp60菜鸟
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2017-1-11
收藏
得分:0 
好了,谢谢大家!
2017-02-25 15:48
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用vfp60菜鸟在2017-2-25 15:48:48的发言:

好了,谢谢大家!

 解决办法?
2017-02-25 18:19
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:7 
以下是引用tlliqi在2017-2-25 18:19:22的发言:


 解决办法?

模式表单就行。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2017-02-26 09:03
vfp60菜鸟
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2017-1-11
收藏
得分:0 
菜单过程里添加如下
IF  _SCREEN.FORMCOUNT>0
    MESSAGEBOX('请先退出当前表单界面!',64,'提示')
ELSE
    WAIT WINDOW('正在搜集資料,请稍候 . . .    ') NOCLEA NOWAIT
    DO FORM gysqhx.scx
    WAIT CLEA
ENDIF
2017-02-27 08:27
快速回复:一个表单在运行时,怎么禁止其它表单运行。
数据加载中...
 
   



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

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