讓三維動(dòng)畫在VFP表單中動(dòng)起來

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