如何做旋轉的光盤動畫

領測軟件測試網 在播放器的主界面放置一個能隨音樂的播放而旋轉的光盤是不是很誘人？如若你對此感興趣又不知從何下手，請往下看。

先準備幾幅圖，格式不論，但Icon圖標最理想。圖的數量將是光盤旋轉效果的決定因素之一，一般八張比較合適。這八幅圖必須是光盤處于0度、45度、90度……315度時的實際模樣。

下一步：給工程添加三個控件，ImageList一個，Image一個，Timer一個。ImageList是用來裝載圖片的，請將準備好的圖片按順序一一添加到此控件中；Image控件則是顯示旋轉光盤的容器了，將其放到合適的位置即可，必要時給它加載一幅圖片；Timer控件則用于控制光盤的旋轉。

最后，編寫代碼：

Option Explicit

Dim i as Integer '圖標索引變量

Private Sub Form_Load()
Timer1.Enabled=True
Timer1.Interval=100 '可根據需要作調整
i=0 '圖標索引變量初值
End Sub

Private Sub Timer1_Timer()
i = i + 1 '隨控時器變化每次加1
'若索引號大于圖標總數則退回第一幅
If i > ImageList1.ListImages.Count Then i = 1
'從ImageList控件中裝載圖標
Image1.Picture = ImageList1.ListImages(i).Picture
End Sub

短短幾行代碼，光盤就轉動起來了！其實，你還可以略作改造，用旋轉并移動的光盤動畫來代替你的播放進度條，則會更有創意哦

文章來源于領測軟件測試網 http://www.kjueaiud.com/