当前位置: 网学 > 设计下载 > ASP.NET类别 > 正文

基于VB显示歌词MP3播放器的设计与实现

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 佚名 来源: 网络 发布时间: 13/05/17

以下是网学网为您推荐的ASP.NET类别-基于VB显示歌词MP3播放器的设计与实现,希望本篇文章对您学习有所帮助。

QQ交谈客服咨询,网学网竭诚为您服务,本站永久域名:myeducs.cn

 

3.4.1向列表中添加单首MP3文件
向播放列表中添加媒体文件,都是在系统的播放列表窗口界面上进行操作的。在这个窗口上有6个按钮,其中的第一个“添加歌曲”按钮就是向播放列表中添加单首MP3文件的功能按钮,当然也可以是其他格式的媒体文件。同时,这一操作还可以通过列表窗口上的菜单进行相同的操作,以添加单首MP3文件。具体的添加过程是:当系统获取了一个添加媒体文件的命令时,会弹出一个文件对话框,等待用户选择媒体文件,这时,用户可以选择一个MP3文件。当用户点击文件对话框上的打开按钮以后,用户所选择的MP3文件就会被添加到播放列表中供用户查看和控制。添加歌曲的代码如下所示。
Dim mp3name As String
CommonDialog1.Filter = "mp3(*.mp3)|*.mp3|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
mp3name = CommonDialog1.FileName
mp3name = Format(List1.ListCount + 1, "000:") + mp3name
List1.AddItem mp3name
在该过程中,首先定义一个字符串变量用来存放文件名和地址,然后设置打开对话框能显示的文件类型,设置对话框类型为打开类型;当获取到文件信息后,将其格式化成为数字3编号开头的一个字符串并添加到播放列表中。
3.4.2向列表中添加目录中所有MP3文件
在向播放列表中添加MP3文件时,有时会需要将一个文件夹,包括其子文件下的所有MP3文件,全部都添加到播放列表中。播放列表窗口上的第二个按钮“添加目录”就是实现此功能的,同样此功能也可以通过菜单项实现。注意,这个按钮只能添加MP3格式的媒体文件,不能添加其他格式的媒体文件。
具体过程是:当用户点击添加目录按钮时,系统弹出一个Drive控件和一个Dir控件,用户选择好硬盘分区和文件夹后点击确定按钮,系统就会调用一个使用递归算法的、添加MP3到播放列表的函数,将该文件夹及其子文件夹下所有MP3格式的媒体文件都添加到播放列表中。添加目录中的MP3到播放列表函数如下所示
Fuction FindFile(fd As Folder)
Dim sfd As Folder, f As File
Dim abc As String
''第一部分:查找该文件夹的所有文件
For Each f In fd.Files
    If f.Name Like "*.mp3" Or f.Name Like "*.MP3" Then
        abc = Format(List1.ListCount + 1, "000:") + f.Path
        List1.AddItem abc
    End If
    ''DoEvents
Next
''第二部分:循环查找所有子文件夹
For Each sfd In fd.SubFolders
    FindFile sfd ''循环查找
Next
End Fuction
在函数中,fd为传递到函数中的所选文件夹路径,定义一个文件变量f,一个文件夹变量sfd和一个字符串abc;在函数的第一部分,使用for each f in fd.Files …Next循环结构将fd文件夹下的所有文件检查一便是否是MP3文件,如果是就加上编号后添加到播放列表中;在函数的第二部分,对所选文件夹下的所有子文件夹递归调用该函数添加所有MP3文件到播放列表。
本站发布的计算机毕业设计均是完整无错的全套作品,包含开题报告+程序+论文+源代码+翻译+答辩稿PPT

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介,如需了解更多详情请咨询本站客服!QQ交谈QQ3710167

  • 上一篇资讯: 基于C#采购管理系统
  • 下一篇资讯: C#人事管理
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号