| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1316 人关注过本帖
标题:求助:刚学VFP,最近做练习时遇到一闪退出的问题
只看楼主 加入收藏
岳飞
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2008-7-13
收藏
 问题点数:0 回复次数:1 
求助:刚学VFP,最近做练习时遇到一闪退出的问题
最近刚刚学习VFP,用VFP6.0做了一个叫倒计时程序的练习。运行后闪了一下就退出程序了,想问一下应该怎么办呢?谢谢了。代码如下:

If This.Caption="开始(&B)"
   This.Caption="停止(&S)"
   ThisForm.Timer1.Enabled=.T.
   ThisForm.SpinHour.ReadOnly=.T.
   ThisForm.SpinMin.ReadOnly=.T.
   ThisForm.SpinSec.ReadOnly=.T.
Else
   This.Caption="开始(&B)"
   ThisForm.Timer1.Enabled=.F.
   ThisForm.SpinHour.ReadOnly=.F.
   ThisForm.SpinMin.ReadOnly=.F.
   ThisForm.SpinSec.ReadOnly=.F.
EndIf   

If(ThisForm.SpinHour.Value=0).And.(ThisForm.SpinMin.Value=0).And.(ThisForm.SpinSec.Value <= 1)
 ThisForm.SpinSec.Value=0
 开始(&B)"
 This.Enabled=.F.
 ThisForm.SpinHour.ReadOnly=.F.
 ThisForm.SpinMin.ReadOnly=.F.
 ThisForm.SpinSec.ReadOnly=.F.
Else
 If ThisForm.SpinSec.Value=0
   ThisForm.SpinSec.Vaule=59
   If ThisForm.SpinMin.Value=0
     ThisForm.SpinMin.Value=59
     ThisForm.SpinHour.Value=ThisForm.SpinHour.Value-1
   Else
     ThisForm.SpinMin.Value=ThisForm.SpinMin.Value-1
   EndIf  
Else
     ThisForm.SpinSec.Value=ThisFomr.SpinSec.Value-1
   EndIf
EndIf
搜索更多相关主题的帖子: VFP ThisForm ReadOnly 练习 Caption 
2008-07-13 21:48
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
要在适当的事件或过程中使用read event命令。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2008-07-14 14:53
快速回复:求助:刚学VFP,最近做练习时遇到一闪退出的问题
数据加载中...
 
   



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

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