许杰辉 邰智源:VF 时间控件循环问题
来源:百度文库 编辑:高考问答 时间:2024/07/11 03:05:46
谢谢大家!这关系到我幸福!!
在第一页设三个文本框,一个时间控件,控件的Interval值为10,timer代码如下:
t=seconds() &&总秒数
h=int(t/3600) &&小时数
d=int((t-h*3600)/60) &&分钟数
s=int(t-h*3600-d*60) &&秒数
ms=int((t-int(t))*100) &&百分秒数
s2=alltrim(str(s))
if len(s2)=1
s2="0"+s2
endif
d2=alltrim(str(d))
if len(d2)=1
d2="0"+d2
endif
thisform.pageframe1.page1.text1.value=alltrim(str(h))+":"+d2+":"+s2+":"+alltrim(str(ms))
if s=0
s=60
endif
if d=0
d=60
endif
thisform.pageframe1.page1.text2.value=subs(dtos(date()),1,4)+"年"+subs(dtos(date()),5,2)+"月"+subs(dtos(date()),7,2)+"日"
e=cdow(date())
do case
case e="Sunday"
e="星 期 日"
case e="Monday"
e="星 期 一"
case e="Tuesday"
e="星 期 二"
case e="Wednesday"
e="星 期 三"
case e="Thursday"
e="星 期 四"
case e="Friday"
e="星 期 五"
case e="Saturday"
e="星 期 六"
endcase
thisform.pageframe1.page1.text3.value=e
第二页设一个标签控件,Autosize=.t.,caption="好好学习",再设一个时间控件,其Interval=3000,timer代码如下:
if thisform.pageframe1.page2.label1.caption="好好学习"
thisform.pageframe1.page2.label1.caption="天天向上"
else
thisform.pageframe1.page2.label1.caption="好好学习"
endif
thisform.refresh
做好即可运行。