帮忙用表单编写一个数字时钟计时器
有五个按钮
复位 文本框中全是000000
计时 文本框开始计时
停止 显示文本框停止时的时间
时钟 显示系统时间
关闭 关闭表单
谢谢！ 好难做了好久都没出来!忘高手帮帮忙！

不会连关闭表单的按钮都做不出来吧？
建议楼主将达不到需要的代码贴出来，人家才好分析讨论。如果整个表单都要求人帮忙，对自己的学习使用VFP有何益处呢？

我知道关闭 复位 时钟 这几个怎么写的 ，但是我觉得这有几种表达的方式，所以就全写出来了。红土地， 你会做吗？

这个问题不难。2楼 hu9jj 已经说的很清楚了。

计时器表单中的控件：一个文本框控件、五个按钮控件、一个计时器控件

表单的 Load 事件代码
PUBLIC HH,MM,SS
STORE 0 TO HH,MM,SS

表单的 Init 事件代码
this.timer1.Interval = 1000
this.text1.Value = "00:00:00"

复位按钮的 Click 事件代码
thisform.timer1.Enabled = .f.
thisform.timer1.Reset
STORE 0 TO HH,MM,SS
thisform.text1.Value = "00:00:00"

计时按钮的 Click 事件代码
thisform.timer1.Enabled = .t.

停止按钮的 Click 事件代码
thisform.timer1.Enabled = .f.

时钟按钮的 Click 事件代码
HH=HOUR(DATETIME( ))
MM=MINUTE(DATETIME( ))
SS=SEC(DATETIME( ))
thisform.timer1.Enabled=.t.

退出按钮的 Click 事件代码
thisform.Release

计时器的 Timer 事件代码
SS=SS+1
IF SS>59
SS=0
MM=MM+1
IF MM>59
HH=HH+1
MM=0
ENDIF
ENDIF
cStr=CHRTRAN(STR(HH,2)," ","0")+":"+CHRTRAN(STR(MM,2),"  
","0")+":"+CHRTRAN(STR(SS,2)," ","0")
thisform.text1.Value=cStr

proc tmr1.init
     thisform.caption =" 计时器"
     thisform.lb1.caption ="00:00:00:000"
     set seco on
     publ tmrun,tmsec
proc tmr1.timer
     thisform.cmdx.caption =ttoc(datetime(),2)
     if tmrun=.t.
        ls =seco()-tmsec
        ls整秒 =int(ls)
        thisform.lb1.caption =padl(int(ls整秒/3600),2,"0")+":" +padl(int((ls整秒%3600)/60),2,"0")+":";
                             +padl(ls整秒%60,2,"0")+":" +righ(str(ls,12,3),3)
     endif
proc cmd.click
     para ls
     do case
     case "开始"$this.caption
          thisform.tmr1.reset
          tmrun =.t.
          tmsec =seco()
     case "停止"$this.caption
          tmrun =.f.
     case "复位"$this.caption
          thisform.lb1.caption ="00:00:00:000"
          tmrun =.f.
     case "退出"$this.caption
          thisform.release
     endcase                              
enddefine

　
　
测试及效果图：