| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付买域名,送MP3、MP4
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY买空间,免费送域名(厦门中资源)
共有 436 人关注过本帖
标题:求助:刚学VFP,最近做练习时遇到一闪退出的问题
收藏  订阅  推荐  打印 
岳飞
Rank: 1
等级:新手上路
帖子:12
积分:232
注册:2008-7-13
求助:刚学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
ThisForm.Command1.Caption="开始(&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-7-13 21:48
hu9jj
Rank: 12Rank: 12Rank: 12
来自:红土地
等级:贵宾
威望:15
帖子:1178
积分:12218
注册:2006-5-13

要在适当的事件或过程中使用read event命令。

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2008-7-14 14:53
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.049159 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved