标题:求助:刚学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
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:0 
要在适当的事件或过程中使用read event命令。

活到老,学到老! http://www. E-mail:hu-jj@
2008-07-14 14:53



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-223761-1-1.html




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

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