主要内容：
可播放编制一个 Windows 下的多媒体播放器，可播放 Mp3、wav、avi 等格式的音频及视频文件。可播放 Flash文件。
一、实现目标：
（A）音频及视频文件播放器要求：
（1）指示播放的文件名、播放的时间和进度。
（2）音频播放时要求可以选择播放的曲目、制作帮助信息。能实现循环播放。
（B）Flash文件的播放器要求：
（1）在界面上要有一个播放列表框，可以把许多 flash 文件加入到该列表中，在播放时，可以
连续播放列表中文件。
（2） Flash播放器也属于多媒体播放器的一类，所以应包括完整的播放控制功能：播放、暂停、停止、
（3）重播、后退一帧、前进一帧、最后一帧、快退、快进，循环播放和全屏幕播放。由于 Flash 动画是
（4）矢量动画，针对此特点还得有缩放和质量调节的功能。
（6）文件的打开、播放控制要由相应的菜单实现。
（7）菜单结构如下：主菜单包括文件 、查看两项，文件下拉菜单中包括打开、退出；查看下拉菜
（8）单中包括质量、循环播放、连续播放、全屏播放；在质量的级联菜单中包括高、中、低三项。
主要还是记得把源代码和界面还有论文发送过来！！！！！
以下是引用的我很欣赏的VB老程序员CBM666的源代码
'添加 Command1
Private Sub Command1_Click()
Dim ObjShell As Object
Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.Run "C:\test.mp3"
Set ObjShell = Nothing
End Sub
'*********************************************** 副程序调用 添加 Command1
Option Explicit
Dim songnm$
Private Sub Command1_Click()
songnm = "c:\test.mp3"
Call playmusic(songnm)
End Sub
Public Sub playmusic(Snm As String)
Dim ObjShell As Object
Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.Run Snm
Set ObjShell = Nothing
End Sub
'添加 Command1
Private Sub Command1_Click()
Dim ObjShell As Object
Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.Run "C:\test.mp3"
Set ObjShell = Nothing
End Sub
'*********************************************** 副程序调用 添加 Command1
Option Explicit
Dim songnm$
Private Sub Command1_Click()
songnm = "c:\test.mp3"
Call playmusic(songnm)
End Sub
Public Sub playmusic(Snm As String)
Dim ObjShell As Object
Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.Run Snm
Set ObjShell = Nothing
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-03-23
你留下邮箱，我发给你我做的，觉得好的话给你源文件。
本人技术有限，做的比较简陋的
本人技术有限，做的比较简陋的
第2个回答 2009-03-23
到枕善居下载一下源文件吧,非常好的代码网
蓝海音乐盒是一款免费开源的音乐软件,除了有普通音乐盒的在线播放功能以外,还有很酷的网络收音机功能,你可以在千里之外收听家乡的广播,蓝海音乐盒的炫动效果,是一种炫酷的可视化效果,支持播放各地网络电台，可以在线搜索音乐、MTV的软件。可以自动更新电台库及升级系统文件。软件功能不错，和QQ音乐有点类似。还有更多语言不好描述,用户自己去体验吧!
蓝海音乐盒带有完整的源代码,在这里感谢作者的发布
蓝海音乐盒是一款免费开源的音乐软件,除了有普通音乐盒的在线播放功能以外,还有很酷的网络收音机功能,你可以在千里之外收听家乡的广播,蓝海音乐盒的炫动效果,是一种炫酷的可视化效果,支持播放各地网络电台，可以在线搜索音乐、MTV的软件。可以自动更新电台库及升级系统文件。软件功能不错，和QQ音乐有点类似。还有更多语言不好描述,用户自己去体验吧!
蓝海音乐盒带有完整的源代码,在这里感谢作者的发布
参考资料：
第3个回答 2009-03-30
告诉你一个高手的名字——百度
