|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：土人 日期：2005-8-4 11:33:15 |
|
|
在播放器的主界面放置一个能随音乐的播放而旋转的光盘是不是很诱人？如若你对此感兴趣又不知从何下手，请往下看。
先准备几幅图，格式不论，但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
短短几行代码，光盘就转动起来了！其实，你还可以略作改造，用旋转并移动的光盘动画来代替你的播放进度条，则会更有创意哦。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 土人 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:15 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]