| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2458 人关注过本帖
标题:这个算动态吗?
只看楼主 加入收藏
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用bccn201203在2012-9-24 11:09:29的发言:

TEXT1的值为空,程序肯定不让你退出
PROCEDURE DESTROY
CLEAR EVENTS
QUIT
ENDPROC

哈哈 把 VFP 主窗口也咔嚓掉了。。。

梅尚程荀
马谭杨奚







                                                       
2012-09-24 14:15
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
以下是引用有容就大在2012-9-24 14:15:10的发言:


哈哈 把 VFP 主窗口也咔嚓掉了。。。Procedure Destroy
        Clear Events
        QUIT &&退出VFP
    EndProc



程序代码:
Procedure Destroy
   Clear Events
   QUIT &&退出VFP
EndProc
2012-09-24 14:47
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用TonyDeng在2012-9-24 12:10:59的发言:

在Valid事件中检查合法性,最好不要强制不能离开,换一种方式出提示,不用默认的那个。

给个简单示例 被这个搞眩晕了。。

梅尚程荀
马谭杨奚







                                                       
2012-09-24 14:52
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
回复 62楼 bccn201203
我就是那么写的 加了    QUIT后 干掉了主窗口

梅尚程荀
马谭杨奚







                                                       
2012-09-24 14:56
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
以下是引用有容就大在2012-9-24 14:52:32的发言:


给个简单示例 被这个搞眩晕了。。
IF EMPTY(THIS.TEXT1.VALUE)
   MESSAGEBOX([数据不能为空])
   JS=JS+1 && JS 为全局变量
   RETURN IIF(JS=1,0,JS) && 第二次可以退出TEXT1
ENDIF

[ 本帖最后由 bccn201203 于 2012-9-24 15:00 编辑 ]
2012-09-24 14:58
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用bccn201203在2012-9-24 14:58:43的发言:

IF EMPTY(THIS.TEXT1.VALUE)
   MESSAGEBOX([数据不能为空])
   JS=JS+1 && JS 为全局变量
   RETURN IIF(JS=1,0,JS) && 第二次可以退出TEXT1
ENDIF

牛X 试了下 如果PUBLIC JS JS = 0 能在text为空的情况下关闭窗口
如果 JS初值 是N 那么光标很奇怪的会下移n个单位 为什么?
在TEXT数值不为空的情况下 怎么和JS发生联系的?貌似代码里没提到啊?

梅尚程荀
马谭杨奚







                                                       
2012-09-24 15:52
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
以下是引用有容就大在2012-9-24 15:52:41的发言:


牛X 试了下 如果PUBLIC JS JS = 0 能在text为空的情况下关闭窗口
如果 JS初值 是N 那么光标很奇怪的会下移n个单位 为什么?
在TEXT数值不为空的情况下 怎么和JS发生联系的?貌似代码里没提到啊?
在TEXT1的LOSTFOCUS 事件中
JS=0

你描述的这种情况,我过去在别的论坛上看到过,可以这样解释
RETURN -2 && 光标移至上二个控件
RETURN -1 && 光标移至上一个控件
RETURN 0 && 原地踏步走
RETURN 1 && 光标移至下一个控件
RETURN 2 && 光标移至下二个控件

你可以试试



[ 本帖最后由 bccn201203 于 2012-9-24 16:03 编辑 ]
2012-09-24 15:58
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
IF EMPTY(THIS.TEXT1.VALUE)
   MESSAGEBOX([数据不能为空])
   JS=JS+1 && JS 为全局变量
   RETURN IIF(JS=1,0,1) && 如果JS=2 光标移至下一个控件
ENDIF



[ 本帖最后由 bccn201203 于 2012-9-24 16:04 编辑 ]
2012-09-24 15:58
有容就大
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:东土大唐
等 级:版主
威 望:74
帖 子:9048
专家分:14309
注 册:2011-11-11
收藏
得分:0 
以下是引用bccn201203在2012-9-24 15:58:08的发言:

在TEXT1的LOSTFOCUS 事件中
JS=0

你描述的这种情况,我过去在别的论坛上看到过,可以这样解释
RETURN -2 && 光标移至上二个控件
RETURN -1 && 光标移至上一个控件
RETURN 0 && 原地踏步走
RETURN 1 && 光标移至下一个控件
RETURN 2 && 光标移至下二个控件

你可以试试

我的意思是 这个程序没出现LOSTFOCUS事件代码

程序代码:
    PROCEDURE TextBox1.Valid
    With This
        IF EMPTY(This.Value)
              JS = JS + 1
            RETURN IIF(JS = 1, 0, JS)
        EndIf
        EndWith
    EndProc
   
是文本框为空时 才会JS = JS + 1 而且 此时才会返回跳跃单位的数量 为什么在文本框不为空也就是else代码没出现的
情况下 程序会自动获取跳跃单位为全局变量JS? 那我在定义些全局变量HS SS CS ...那他认谁?

梅尚程荀
马谭杨奚







                                                       
2012-09-24 16:18
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:3 
以下是引用有容就大在2012-9-24 16:18:39的发言:


我的意思是 这个程序没出现LOSTFOCUS事件代码

    PROCEDURE TextBox1.Valid
    With This
        IF EMPTY(This.Value)
              JS = JS + 1
            RETURN IIF(JS = 1, 0, JS)
        EndIf
        EndWith
    EndProc
   是文本框为空时 才会JS = JS + 1 而且 此时才会返回跳跃单位的数量 为什么在文本框不为空也就是else代码没出现的
情况下 程序会自动获取跳跃单位为全局变量JS? 那我在定义些全局变量HS SS CS ...那他认谁?
IIF()匹配
IF
ELSE
ENDIF
那我在定义些全局变量HS SS CS ...那他认谁?

用到谁就认谁

LOSTFOCUS事件是TEXT1所有事件中的最后一个事件,在该事件中写入代码:
JS=0
恢复初始值


[ 本帖最后由 bccn201203 于 2012-9-24 16:43 编辑 ]
2012-09-24 16:39
快速回复:这个算动态吗?
数据加载中...
 
   



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

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