标题:求助:刚学VFP,最近做练习时遇到一闪退出的问题
取消只看楼主
岳飞
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2008-7-13
 问题点数:0 回复次数:0 
求助:刚学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



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




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

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