国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開(kāi)發(fā)設(shè)計(jì) > 正文

如何做旋轉(zhuǎn)的光盤(pán)動(dòng)畫(huà)

2019-11-18 17:37:51
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
在播放器的主界面放置一個(gè)能隨音樂(lè)的播放而旋轉(zhuǎn)的光盤(pán)是不是很誘人？如若你對(duì)此感興趣又不知從何下手，請(qǐng)往下看。

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

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

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

OptionExplicit

DimiasInteger'圖標(biāo)索引變量

EndSub

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

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

發(fā)表評(píng)論 共有條評(píng)論
用戶(hù)名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 栾城县| 德清县| 将乐县| 安达市| 红桥区| 武山县| 梨树县| 淳化县| 镇安县| 安达市| 鹤庆县| 苗栗县| 津市市| 荔波县| 蕉岭县| 北海市| 安陆市| 道真| 拉萨市| 宣威市| 肥城市| 佛山市| 斗六市| 安阳县| 乌苏市| 眉山市| 永康市| 澎湖县| 绿春县| 济南市| 衡阳市| 海南省| 怀集县| 若尔盖县| 龙山县| 潞城市| 敦煌市| 灵丘县| 珲春市| 阿荣旗| 任丘市|