学会用按键精灵制作脚本之界面教程：制作音乐播放器

《学会用按键精灵制作脚本之界面教程：制作音乐播放器》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、学会用按键精灵制作脚本之QUI界面教程：制作音乐播放器                                   来源：按键学院【按键精灵】配上炫酷的Gif图片，简单的音乐播放器就算完成了。楼主忍不住陶醉许久，QUI界面原来也是可以如此美腻的，哦吼吼~~最终效果图：我们肉眼看到的，这个播放器上只有按钮，进度条，列表框，标签，其实还有一个浏览框和按钮是隐藏的。我们先来了解下，listbox列表控件、BrowseBox1浏览框控件、ProgressBar1进度条控件。上表格~今天会用到的属性会用红色字体标注出来。ListBox列表框●基本●位置：●其他：●方法：属性1，

2、名称（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浏览

3、框●基本：●位置：●其他：属性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，显示（Vi

4、sible）属性2，上边（Top）隐藏属性：进度（Value）属性3，有效（Enabled）属性3，宽度（Width）属性4，高度（Height）属性5，显示顺序（ZOrder）音乐播放器的实现步骤是十分简单的，来，咱们手牵手一起去看看是怎么实现的。步骤：1、把浏览框里的路径进行分割，把分割得到的歌曲名称添加到播放列表框。  2014-9-2214:54上传下载附件(12.4KB)2014-9-2214:54上传下载附件(6.49KB)代码：IfForm1.浏览框.Path<>""Then  //判断打开的路径是否为空      SearchString=Form1.浏览框.

5、Path  //设置要搜索的字符串      SearchChar=""  //搜索      MyPos=InstrRev(SearchString,SearchChar)  //搜索字符""在SearchString里面出现的从结尾计起的位置      l=Len(SearchString)  //SearchString的长度      歌曲名字=Right(SearchString,l-MyPos)  //从字符串SearchString右边返回指定数目的字符，现在返回爱你一万年.mp3      Form1.播放列表.AddItem歌曲名字  //添加歌曲名字

6、到列表框EndIf1、播放按钮的默认背景图片设置为播放.jpg2014-9-2214:59上传下载附件(1.27KB)定义一个全局变量来记录播放按钮的点击次数，点击次数为奇数时，播放按钮的背景图片设置为暂停.jpg,并且播放音乐，点击次数为偶数时，播放按钮的背景图片设置为播放.jpg,并且暂停音乐。代码：Ifjsmod2  Then      Form1.播放.Picture=".播放.jpg"      CallPlugin.Media.Stop()      Form1.显示播放状态.Caption="停止"  Else      Form1.播放.Picture=".

7、暂停.jpg"      CallPlugin.Media.Play(myarray(hanghao))  //播放列表文件，使用相对路径      Form1.显示播放状态.Caption="播放"  EndIfjs=js+11、上一首按钮（下一首按钮）2014-9-2215:01上传下载附件(1.66KB)先停止当前播放的音乐，将播放列表框的listIndex（列表当前选中的行号）加一（下一首是减一），然后播放音乐。代码：IfForm1.播放列表.listIndex=0Then      //如果