如何做旋转的光盘动画
2018-06-17 17:12:42来源：未知 阅读 ()
在播放器的主界面放置一个能随音乐的播放而旋转的光盘是不是很诱人？如若你对此感兴趣又不知从何下手，请往下看。先准备几幅图，格式不论，但Icon图标最理想。图的数量将是光盘旋转效果的决定因素之一，一般八张比较合适。这八幅图必须是光盘处于0度、45度、90度……315度时的实际模样。
下一步：给工程添加三个控件，ImageList一个，Image一个，Timer一个。ImageList是用来装载图片的，请将准备好的图片按顺序一一添加到此控件中；Image控件则是显示旋转光盘的容器了，将其放到合适的位置即可，必要时给它加载一幅图片；Timer控件则用于控制光盘的旋转。
最后，编写代码：
OptionExplicit
DimiasInteger'图标索引变量
PrivateSubForm_Load()
Timer1.Enabled=True
Timer1.Interval=100'可根据需要作调整
i=0'图标索引变量初值
EndSub
PrivateSubTimer1_Timer()
i=i 1'随控时器变化每次加1
'若索引号大于图标总数则退回第一幅
Ifi>ImageList1.ListImages.CountTheni=1
'从ImageList控件中装载图标
Image1.Picture=ImageList1.ListImages(i).Picture
EndSub
短短几行代码，光盘就转动起来了！其实，你还可以略作改造，用旋转并移动的光盘动画来代替你的播放进度条，则会更有创意哦。->
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
下一篇：桌面屏幕翻转
- VB如何将DBgrid印出来 2018-06-17
- VB编程问与答 2018-06-17
- VB编程之路－如何让界面美化 2018-06-17
- 如何用VB在窗体中实现闪烁文字 2018-06-17
- 如何用TextBox打开和保存文件 2018-06-17
IDC资讯： 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营： 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程： Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术： Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧： 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作： FrontPages Dreamweaver Javascript css photoshop fireworks Flash
