vb做動畫...幫想程式碼

Question

用image的陣列做2張的交替動畫
一開始是
dim p as integer
在Timer裡
image1(p).visible=true
image1(1-p).visible=false
p=1-p
那3張和4張循環的程式碼該怎麼打

什麼叫多張圖檔載入.....又要怎麼做阿...麻煩詳解

Answer 1

Private Sub Timer1_Timer()        Dim I As Integer        Static N As Integer                '先把所有的Image1隱形        For I = 0 To Image1.Count - 1            Image1(I).Visible = False        Next        '再現出第N個        Image1(N).Visible = True        'N=N+1 若N超過Image1數目時歸零        N = (N + 1) Mod Image1.CountEnd Sub'多張圖檔載入:假設你有3張圖是放在C:\裡面,檔名為Test0.bmp,Test1.bmp,Test2.bmp,此時就無須用到Image陣列,直接以1個Image來顯示就可,當然這是在Image位置不變動的情況下會比較理想!Private Sub Timer1_Timer()        Static N As Integer                '直接載入Test & N 的圖檔到Image1        Image1.Picture = LoadPicture("C:\Test" & N & ".bmp")        'N=N+1 若N超過3時歸零        N = (N + 1) Mod 3End Sub

Answer 2

直接在Timer裡,對image元件作多張圖檔載入便可