[学院院刊]第十一期-QUI制作音乐播放器
QUI制作音乐播放器按键学院院刊介绍院刊是由工程师撰写或收录的围绕按键精灵电脑版知识点的文章,每一篇院刊知识...
院刊是由工程师撰写或收录的围绕按键精灵电脑版知识点的文章,每一篇院刊知识点各不相同,可以是脚本、源码或教程的分享,也有可能是工程师们在技术上的奇思妙想哦!
音乐播放器展示
效果图:
简单的音乐播放器这此!配上炫酷的Gif图片,楼主忍不住陶醉许久,QUI界面原来也是可以如此美腻的,哦吼吼~
我们肉眼看到的,这个播放器上只有按钮,进度条,列表框,标签,其实还有一个浏览框和按钮是隐藏的。
相关知识点介绍
我们先来了解下,listbox列表控件、BrowseBox1浏览框控件、ProgressBar1进度条控件。
上表格,今天会用到的属性会用红色字体标注出来。
ListBox 列表框●基本●位置:●其他:●方法:属性1,名称(Name)属性1,左边(Left)属性1,文字颜色(TextColor)方法1,返回列表行数数量(ListCount)属性2,显示(Visible)属性2,上边(Top)属性2,背景颜色(BackColor)方法2,新增列表项目(AddItem)属性3,有效(Enabled)属性3,宽度(Width)属性3,字体(Font)方法3,插入列表项目(InsertItem)属性4,列表内容(List)属性4,高度(Height)方法4,删除列表项目(RemoveItem)属性5,显示顺序(ZOrder)方法5,返回列表当前选中的行号(ListIndex)
BrowseBox 浏览框●基本●位置:●其他:属性1,名称(Name)属性1,左边(Left)属性1,文字颜色(TextColor)属性2,显示(Visible)属性2,上边(Top)属性2,背景颜色(BackColor)属性3,有效(Enabled)属性3,宽度(Width)属性3,字体(Font)属性4,路径(Path)属性4,高度(Height)属性4,浏览样式(Style)属性5,显示顺序(ZOrder)属性5,过滤条件(Filter)ProgressBar 进度条●基本●位置:●其他:属性1,名称(Name)属性1,左边(Left)属性1,方向(Orientation) 属性2,显示(Visible)属性2,上边(Top)隐藏属性:进度(Value)属性3,有效(Enabled)属性3,宽度(Width)属性4,高度(Height)属性5,显示顺序(ZOrder)
制作步骤说明
音乐播放器的实现步骤是十分简单的,来,咱们手牵手一起去看看是怎么实现的。
步骤:
1、把浏览框里的路径进行分割,把分割得到的歌曲名称添加到播放列表框。
代码:
If Form1.浏览框.Path
"" Then //判断打开的路径是否为空
SearchString = Form1.浏览框.Path //设置要搜索的字符串
SearchChar = "" //搜索
MyPos = InstrRev(SearchString, SearchChar) //搜索字符""在SearchString里面出现的从结尾计起的位置
l = Len(SearchString) //SearchString的长度
歌曲名字 = Right(SearchString, l - MyPos) //从字符串SearchString右边返回指定数目的字符,现在返回爱你一万年.mp3
Form1.播放列表.AddItem 歌曲名字 //添加歌曲名字到列表框
End If
2、播放按钮的默认背景图片设置为播放.jpg
,定义一个全局变量来记录播放按钮的点击次数,点击次数为奇数时,播放按钮的背景图片设置为暂停.jpg
,并且播放音乐,点击次数为偶数时,播放按钮的背景图片设置为播放.jpg,并且暂停音乐。
代码:
If js mod 2 Then
Form1.播放.Picture=".播放.jpg"
Call Plugin.Media.Stop()
Form1.显示播放状态.Caption = "停止"
Else
Form1.播放.Picture = ".暂停.jpg"
Call Plugin.Media.Play(myarray(hanghao)) //播放列表文件,使用相对路径
Form1.显示播放状态.Caption = "播放"
End If
js = js + 1
3、上一首按钮(下一首按钮)
,先停止当前播放的音乐,将播放列表框的listIndex (列表当前选中的行号)加一(下一首是减一),然后播放音乐。
代码:
If js mod 2 Then
Form1.播放.Picture=".播放.jpg"
Call Plugin.Media.Stop()
Form1.显示播放状态.Caption = "停止"
Else
Form1.播放.Picture = ".暂停.jpg"
Call Plugin.Media.Play(myarray(hanghao)) //播放列表文件,使用相对路径
Form1.显示播放状态.Caption = "播放"
End If
js = js + 1
4、音量添加按钮(音量减少按钮),每点击一次,声量控制进度条的值就增加10%,设置播放器的音量为当前进度条的值。
代码:
If Form1.播放列表.listIndex = 0 Then
//如果播放到最前一首,弹出提示框
MessageBox"已经是最前一首!"
Else
//首先停止上一首
Call Plugin.Media.Stop()
Delay 100
Form1.播放.Picture = ".暂停.jpg"
Call Plugin.Media.Play(myarray(hanghao - 1))
hanghao = hanghao - 1
Form1.播放列表.listIndex = Form1.播放列表.listIndex - 1
End If
5、控件背景颜色、字体调整等,这些视觉调整比较耗费时间,大家可以根据自己的喜好设置属于自己风格的界面。
下节预告
这样,就可以制作自己喜欢的播放器了,需要整个音乐播放器代码的同学,可以阅读原文获取哦,本节就讲到这里,下节将给大家带来:QUI界面也可以如此炫酷,请保持关注!
点击下方“阅读原文”获取完整代码哦。
↓↓↓
关注 按键精灵
微信扫一扫关注公众号