vf表单“暂停:按钮和”继续“按钮的代码??急用 5
我制作一个时钟的表单,需要有暂停和继续这两个命令按钮,但是我不会代码,请把这两个按钮的代码这给我,谢谢...
我制作一个时钟的表单,需要有暂停和继续这两个命令按钮,但是我不会代码,请把这两个按钮的代码这给我,谢谢
展开
1个回答
展开全部
添加一个timer控件到表单中,再添加一个label控件来显示时间,在表单的init事件中加上:
rq=date()
yy=year(rq)
mm=month(rq)
dd=day(rq)
thisform.label1.caption=alltrim(str(yy))+"年"+alltrim(str(mm))+"月"+alltrim(str(dd))+"日"+" "+time()
再在timer控件的timer事件中加上代码:
rq=date()
yy=year(rq)
mm=month(rq)
dd=day(rq)
thisform.label1.caption=alltrim(str(yy))+"年"+alltrim(str(mm))+"月"+alltrim(str(dd))+"日"+" "+time()
最后将timer控件的interval属性设置为500(表示刷新频率,单位毫秒,1000就表示1秒钟刷新一次)
rq=date()
yy=year(rq)
mm=month(rq)
dd=day(rq)
thisform.label1.caption=alltrim(str(yy))+"年"+alltrim(str(mm))+"月"+alltrim(str(dd))+"日"+" "+time()
再在timer控件的timer事件中加上代码:
rq=date()
yy=year(rq)
mm=month(rq)
dd=day(rq)
thisform.label1.caption=alltrim(str(yy))+"年"+alltrim(str(mm))+"月"+alltrim(str(dd))+"日"+" "+time()
最后将timer控件的interval属性设置为500(表示刷新频率,单位毫秒,1000就表示1秒钟刷新一次)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询