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