計時器(timer)這個控件的應用重點是它的Interval屬性和timer事件。本文來補充一個例子,運行時在計時器控件的timer事件中控制label控件的位置形成動畫效果,如下圖:
本例通過在timer事件中操作標簽控件的top屬性來實現標簽上下移動的動畫。如果要制作左右移動的動畫,原理是一樣的,在timer事件中操作標簽控件的left屬性即可。
本例制作過程:
1、新建表單,width屬性值設為290,height屬性值設為160,caption屬性值設為“編程入門網-用timer實現動畫”,AutoCenter屬性值設為.t.,保存為“動畫.scx”。
2、向表單上添加一個label控件,caption屬性值設為“編程入門網”,fontsize屬性值設為12,forecolor屬性值設為“255,0,0”。
3、向表單上添加一個timer控件,interval屬性值設為50。
4、添加事件代碼:
timer控件的timer事件代碼:
if thisform.label1.top<0 &&成立說明label已經移出了表單的上邊界,則重置它的位置 thisform.label1.top=300 thisform.label1.top=thisform.label1.top-5 &&向上移動5像素else thisform.label1.top=thisform.label1.top-5 endif
5、運行“動畫.scx”。
本例代碼在Win2003+VFP6.0環境下調試通過。
新聞熱點
疑難解答