計(jì)時(shí)器(timer)這個(gè)控件的應(yīng)用重點(diǎn)是它的Interval屬性和timer事件。本文來(lái)補(bǔ)充一個(gè)例子，運(yùn)行時(shí)在計(jì)時(shí)器控件的timer事件中控制label控件的位置形成動(dòng)畫效果，如下圖：

本例通過(guò)在timer事件中操作標(biāo)簽控件的top屬性來(lái)實(shí)現(xiàn)標(biāo)簽上下移動(dòng)的動(dòng)畫。如果要制作左右移動(dòng)的動(dòng)畫，原理是一樣的，在timer事件中操作標(biāo)簽控件的left屬性即可。

本例制作過(guò)程：

1、新建表單，width屬性值設(shè)為290，height屬性值設(shè)為160，caption屬性值設(shè)為“編程入門網(wǎng)-用timer實(shí)現(xiàn)動(dòng)畫”，AutoCenter屬性值設(shè)為.t.，保存為“動(dòng)畫.scx”。

2、向表單上添加一個(gè)label控件，caption屬性值設(shè)為“編程入門網(wǎng)”，fontsize屬性值設(shè)為12，forecolor屬性值設(shè)為“255,0,0”。

3、向表單上添加一個(gè)timer控件，interval屬性值設(shè)為50。

4、添加事件代碼：

timer控件的timer事件代碼：

if thisform.label1.top<0 &&成立說(shuō)明label已經(jīng)移出了表單的上邊界，則重置它的位置   thisform.label1.top=300   thisform.label1.top=thisform.label1.top-5 &&向上移動(dòng)5像素else   thisform.label1.top=thisform.label1.top-5 endif

5、運(yùn)行“動(dòng)畫.scx”。

本例代碼在Win2003+VFP6.0環(huán)境下調(diào)試通過(guò)。