你没有再用时钟取吧~
.子程序 _启动子程序, 整数型, , '本子程序在程序启动后最先执行
载入 (窗口1, , 真)
返回 (0)
.子程序 _窗口1_创建完毕, , , '更改标签的字体及文本颜色
标签1.字体.字体名称 = "微软雅黑"
标签1.字体.字体大小 = 15
标签1.文本颜色 = #天蓝
.子程序 _时钟1_周期事件, , , '定时器子程序
.如果真 (取现行时间 () ≠ 到时间 (标签1.标题))
' 如果现行时间不等于标签1内显示的时间为真
标签1.标题 = 到文本 (取现行时间 ())
.如果真结束