六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

如何做旋轉的光盤動畫

[摘要]在播放器的主界面放置一個能隨音樂的播放而旋轉的光盤是不是很誘人?如若你對此感興趣又不知從何下手,請往下看。先準備幾幅圖,格式不論,但Icon圖標最理想。圖的數量將是光盤旋轉效果的決定因素之一,一般八張比較合適。這八幅圖必須是光盤處于0度、45度、90度……315度時的實際模樣。下一步:給工程添加三...
在播放器的主界面放置一個能隨音樂的播放而旋轉的光盤是不是很誘人?如若你對此感興趣又不知從何下手,請往下看。

先準備幾幅圖,格式不論,但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

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


主站蜘蛛池模板: 视频二区 素人 欧美 日韩 | 青青草原伊人网 | 中文字幕一精品亚洲无线一区 | 婷婷中文在线 | 亚洲性久久 | 欧美一级一一特黄 | 日韩美女中文字幕 | 日本强不卡在线观看 | 日本综合久久 | 五月婷婷在线观看视频 | 在线中文字幕一区 | 天天干天天操天天爱 | 四虎成年永久免费网站 | 青青青青手机在线观看 | 午夜影院免费在线观看 | 色综合久久综合网欧美综合网 | 日本免费观看日本高清视频 | 婷婷丁香激情五月 | 亚洲精品网站日本xxxxxxx | 欧美亚洲不卡 | 五月激情视频 | 一区二区三区久久 | 亚洲免费二区 | 青草视频在线观看国产 | 亚洲国产青草 | 午夜在线观看视频在线播放版 | 天天做天天爱天天操 | 日本不卡高清免费v日本 | 欧美专区综合 | 日本高清免费在线观看 | 一级免费黄色 | 日韩三级欧美 | 最近手机中文字幕1页 | 日韩在线黄色 | 日韩一区国产一级 | 日本免费观看日本高清视频 | 一区在线看| 中文天堂 | 亚洲天天| 亚洲欧美日韩在线播放 | 色综合天天综一个色天天综合网 |