Question

哪位高手帮忙教一下如何用VB制作一个媒体播放器啊

主要内容：
可播放编制一个 Windows 下的多媒体播放器，可播放 Mp3、wav、avi 等格式的音频及视频文件。可播放 Flash文件。
一、实现目标：
（A）音频及视频文件播放器要求：
（1）指示播放的文件名、播放的时间和进度。
（2）音频播放时要求可以选择播放的曲目、制作帮助信息。能实现循环播放。
（B）Flash文件的播放器要求：
（1）在界面上要有一个播放列表框，可以把许多 flash 文件加入到该列表中，在播放时，可以
连续播放列表中文件。
（2） Flash播放器也属于多媒体播放器的一类，所以应包括完整的播放控制功能：播放、暂停、停止、

（3）重播、后退一帧、前进一帧、最后一帧、快退、快进，循环播放和全屏幕播放。由于 Flash 动画是
（4）矢量动画，针对此特点还得有缩放和质量调节的功能。
（6）文件的打开、播放控制要由相应的菜单实现。
（7）菜单结构如下：主菜单包括文件 、查看两项，文件下拉菜单中包括打开、退出；查看下拉菜
（8）单中包括质量、循环播放、连续播放、全屏播放；在质量的级联菜单中包括高、中、低三项。
主要还是记得把源代码和界面还有论文发送过来！！！！！

Answer 1

以下是引用的我很欣赏的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

Answer 2

你留下邮箱，我发给你我做的，觉得好的话给你源文件。
本人技术有限，做的比较简陋的

Answer 3

到枕善居下载一下源文件吧,非常好的代码网

http://www.mndsoft.com/blog/article.asp?id=1128

蓝海音乐盒是一款免费开源的音乐软件,除了有普通音乐盒的在线播放功能以外,还有很酷的网络收音机功能,你可以在千里之外收听家乡的广播,蓝海音乐盒的炫动效果,是一种炫酷的可视化效果,支持播放各地网络电台，可以在线搜索音乐、MTV的软件。可以自动更新电台库及升级系统文件。软件功能不错，和QQ音乐有点类似。还有更多语言不好描述,用户自己去体验吧!

蓝海音乐盒带有完整的源代码,在这里感谢作者的发布

Answer 4

告诉你一个高手的名字——百度