讓三維動畫在VFP表單中動起來

首先,請將作出的動畫(背景為白色)以BMP圖象格式逐幀存放在所建項目的子目錄下,
    本例為title1.bmp,title2.bmp,......,title25.bmp.
    然后,在表單里增加一個圖象類對象,名為Image1,將BackStyle屬性改為"透明";并在其Picture屬性中填入第一幀圖象的文件名,本例為title1.bmp.
    接著,在增加一個計時器對象,在其Interval屬性中填入100(每秒10幀,改動該值可控制動畫顯示速度),并在Timer Event事件中填入如下代碼:
    a=Thisform.Image1.Picture
    s=5 's為圖象文件名前綴的英文字符個數(shù),本例為5
    zs=25 'zs為圖象的幀數(shù),本例為25幀
    b=subst(a,Rat('',a)+1+s)
    n=Val(b)
    n=Iif(n=zs,1,n+1)
    Thisform.Image1.Picture=strtran(a,b,alt(str(n)+'.bmp')
    最后,按下"運行"按鈕,圖象動起來了.
    記住把所有bmp文件添加到項目管理器的"其他文件"里,這樣在編譯成exe文件時,VFP會將所有BMP文件數(shù)據(jù)嵌入exe文件中并自動調用,運行時只需拷一個exe文件即可.