在播放器的主界面放置一個(gè)能隨音樂(lè)的播放而旋轉(zhuǎn)的光盤是不是很誘人？如若你對(duì)此感興趣又不知從何下手，請(qǐng)往下看。

先準(zhǔn)備幾幅圖，格式不論，但I(xiàn)con圖標(biāo)最理想。圖的數(shù)量將是光盤旋轉(zhuǎn)效果的決定因素之一，一般八張比較合適。這八幅圖必須是光盤處于0度、45度、90度……315度時(shí)的實(shí)際模樣。

下一步：給工程添加三個(gè)控件，ImageList一個(gè)，Image一個(gè)，Timer一個(gè)。ImageList是用來(lái)裝載圖片的，請(qǐng)將準(zhǔn)備好的圖片按順序一一添加到此控件中；Image控件則是顯示旋轉(zhuǎn)光盤的容器了，將其放到合適的位置即可，必要時(shí)給它加載一幅圖片；Timer控件則用于控制光盤的旋轉(zhuǎn)。

最后，編寫(xiě)代碼：

Option Explicit

Dim i as Integer '圖標(biāo)索引變量

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

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

短短幾行代碼，光盤就轉(zhuǎn)動(dòng)起來(lái)了！其實(shí)，你還可以略作改造，用旋轉(zhuǎn)并移動(dòng)的光盤動(dòng)畫(huà)來(lái)代替你的播放進(jìn)度條，則會(huì)更有創(chuàng)意哦