Question

vfp习题中，怎么把label控件的标签内容设置为“时间”啊？求详细些

Answer 1

在label的属性设置窗口，将caption属性改成 时间 ，回车或点击旁边的对勾就行了。

Answer 2

PUBLIC fm
fm = CREATEOBJECT('theForm')
fm.show

DEFINE CLASS theForm as Form
top = 100
left = 100
width = 300
height = 160
caption = 'theform'
ADD OBJECT 'label1' as lb
ADD OBJECT 'tm' as tm
ENDDEFINE

DEFINE CLASS tm as Timer
Interval = 600

PROCEDURE Timer
this.Parent.label1.caption = TIME()
this.Interval = 600
ENDPROC
ENDDEFINE
DEFINE CLASS lb as Label
top = 10
left = 10
autosize = .t.
caption = ''
ENDDEFINE
***************************是要这样的动态效果吗 每秒钟更新一次