| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 696 人关注过本帖
标题:表单是否打开
只看楼主 加入收藏
nmhfs
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2012-11-8
结帖率:71.43%
收藏
已结贴  问题点数:3 回复次数:8 
表单是否打开
如何判断表单是否打开
搜索更多相关主题的帖子: 表单 如何 
2012-11-26 21:30
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 

?type(你的表单名)="O"  && Open首字符


2012-11-26 21:57
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
请参考:http://bbs.

相互学习,互相交流,共同提高。
2012-11-26 22:14
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用茵梦湖在2012-11-26 21:57:49的发言:


?type(你的表单名)="O"  && Open首字符
少了""
?type("你的表单名")="O"
2012-11-26 22:26
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
用WEXIST()函数检测窗口是否存在。下面是帮助文件中的内容:

检测所指定的用户自定义窗口是否存在。

 
WEXIST(WindowName)
 

参数
WindowName

指定用户自定义窗口的名称。也可以指定 Visual FoxPro 系统窗口的名称(如“命令”窗口、“数据工作期”窗口、“浏览”窗口等),在 Visual FoxPro 中,还可以指定工具栏的名称。如果所指定的系统窗口或工具栏可见或隐藏,则 WEXIST( ) 函数返回“真”(.T.)。如果所指定的系统窗口或工具栏已关闭,则返回“假”(.F.)。“命令”窗口和“调试”窗口是两个例外。在 WEXIST( ) 中包含“命令”窗口 的名称时,总是返回“真”(.T.)。如果曾经打开过“调试”窗口,即使被关闭,WEXIST( ) 函数仍返回“真”(.T.)。
返回值
逻辑型

说明
如果所指定的用户自定义窗口已经用 DEFINE WINDOW 命令创建,则 WEXIST( ) 函数返回“真”(.T.);否则 WEXIST( ) 返回“假”(.

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2012-11-27 08:41
月沐庭轩
Rank: 9Rank: 9Rank: 9
来 自:京城
等 级:贵宾
威 望:17
帖 子:393
专家分:1106
注 册:2011-7-24
收藏
得分:0 
程序代码:
*!*    自定义函数isrunform,判断某一个表单是否运行
*!*    用法:?isrunform("myform1")
*!*    如果运行,则显示.t.,如果没有运行,则显示.f.
FUNCTION isrunform( runformfilename)
ifrunform=.F.
FOR m.formindex = 1 TO _SCREEN.FORMCOUNT
    IF  JUSTSTEM(SYS(1271,_SCREEN.FORMS(m.formindex)))==runformfilename
        ifrunform=.T.
        EXIT
    ENDIF
ENDFOR
RETURN  ifrunform
ENDFUNC
收到的鲜花
  • qjbzjp2012-11-27 15:13 送鲜花  10朵   附言:好文章

坚持学习vfp,QQ:306805680
2012-11-27 10:00
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
留足,需要时好找些。谢

只求每天有一丁点儿的进步就可以了
2012-11-27 13:20
nmhfs
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2012-11-8
收藏
得分:0 
刚找到一个测试成功,与大家分享一下:
do RunForm with "表单名","表单引用名"
程序代码:
*cFormName 表单的文件名;mFormName 表单引用名;cPublic 表单名的全局宏替换公式*

 Function runform                       
    Para cFormName,mFormName
    cPublic="Public "+mFormName
    &cPublic
    If !(Type("&mFormName.")="O" and !Isnull(&mFormName.))
        Do Form &cFormName Name &mFormName
    Else
        If &mFormName..WindowState=1
            &mFormName..WindowState=0
        Endif
        &mFormName..Show
    ENDIF
ENDFUNC

 
2012-11-28 19:59
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用nmhfs在2012-11-28 19:59:35的发言:

刚找到一个测试成功,与大家分享一下:
do RunForm with "表单名","表单引用名" *cFormName 表单的文件名;mFormName 表单引用名;cPublic 表单名的全局宏替换公式*
 Function runform                        
    Para cFormName,mFormName
    cPublic="Public "+mFormName
    &cPublic
    If !(Type("&mFormName.")="O" and !Isnull(&mFormName.))
        Do Form &cFormName Name &mFormName
    Else
        If &mFormName..WindowState=1
            &mFormName..WindowState=0
        Endif
        &mFormName..Show
    ENDIF
ENDFUNC
 
图片附件: 游客没有浏览图片的权限,请 登录注册
2012-11-28 20:22
快速回复:表单是否打开
数据加载中...
 
   



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

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