可以讲一下如何用Microsoft Visual FoxPro 6.0制作一个五一节的倒计时程序和需要表单的详细步骤吗？
设计的表单和相关代码：
1）设计的表单
2）运行时的效果
3）相关代码：
（1）表单的init事件
thisform.Caption = "倒计时" &&窗体标题
thisform.label3.Caption = "" &&当前计数值
thisform.label3.FontBold = .T. &&计数值加粗
thisform.label3.FontSize = 48 &&计数值字体大小
thisform.text1.InputMask = "99999" &&设置文本框的只能输入数字
thisform.command2.Enabled = .F. &&屏蔽“暂停”按钮
thisform.timer1.Interval = 0 &&取消定时器
PUBLIC oper as Boolean
oper = .F.
（2）“开始”按钮的单击click事件
n = VAL(ALLTRIM(thisform.label3.Caption)) &&当前计数值
IF oper = .F. THEN &&第一次按“开始”按钮
n = VAL(ALLTRIM(thisform.text1.Value)) &&取得计数的初值
ENDIF
IF n>0 THEN
thisform.label3.Caption = ALLTRIM(STR(INT(n))) &&显示计数的初值
thisform.timer1.Interval = 1000 &&打开定时器
this.Enabled = .F. &&屏蔽“开始”按钮
thisform.command2.Enabled = .T. &&打开“暂停”按钮
thisform.text1.ReadOnly = .T. &&文本框只读
oper = .T.
ELSE
MESSAGEBOX("计数值未输入或错误！",0+48,"提示")
thisform.text1.SetFocus
ENDIF
（3）“暂停”按钮的单击click事件
thisform.timer1.Interval = 0 &&取消定时器
this.Enabled = .F. &&屏蔽“暂停”按钮
thisform.command1.Enabled = .T. &&打开“开始”按钮
（4）“重置”按钮的单击click事件
thisform.text1.Value = "" &&清空文本框
thisform.label3.Caption = "" &&清空计数值
thisform.timer1.Interval = 0 &&结束计数
thisform.command1.Enabled = .T. &&打开“开始”按钮
thisform.command2.Enabled = .F. &&屏蔽“暂停”按钮
thisform.text1.ReadOnly = .F. &&取消文本框只读
oper = .F.
（5）定时器的Timer事件
n = VAL(ALLTRIM(thisform.label3.Caption)) &&取得当前计数值
n = n-1
IF n=0 THEN
thisform.timer1.Interval = 0 &&结束计数
thisform.command1.Enabled = .T.
thisform.command2.Enabled = .F.
oper = .F.
ENDIF
thisform.label3.Caption = ALLTRIM(STR(INT(n)))
thisform.Refresh
博思aippt
2024-07-20 广告
