Question

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

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

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

Answer 1

你这个flash播放要求忒高了，我看像专业flash播放器的要求了！参考吧：

播放flash需要添加：
shockwave flash 控件
添加后在窗体上画出屏幕
需要一句代码：
shockwaveflash1.movie="flash文件路径"'你可配合commondialog控件来选择文件！
给你找点资料关于vb播放flash的，你参考！

需要ShockwaveFlash一个，两个command
Private Sub Command1_Click()
ShockwaveFlash1.Movie = App.Path & "\ball.swf"
'读取同一目录下的Flash动画文件
ShockwaveFlash1.Play
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
If Command2.Caption = "暂停" Then
ShockwaveFlash1.Playing = False
'停止动画
Command2.Caption = "继续"
Else
ShockwaveFlash1.Playing = True
'继续动画
Command2.Caption = "暂停"
End If

End Sub

播放avi,rmvb 需要 microsoft multimedia control 6.0 控件，实例代码如下，给你个教程，认真点，可以做出来的！

媒体播放器控件（MCI）可以播放音频和视频，也就是音乐和影碟。
在 D:盘根目录下新建一个文件夹，名字改为music，里面拷入三个音乐文件，一个Wav文件重命名为one，另一个Mp3文件，重命名为two，再将第十课中的thr视频文件拷贝进去，这是一个Avi文件。
启动VB，修改好窗体的各个属性，再添加一个标签，将Caption改为“我的播放器”。
MCI控件要自己添加到工具箱中，方法是在工具箱上单击鼠标右键，选择“部件”在对话框中找到Microsoft Multimeia Control6.0 打上勾选中，再单击“确定”这样在工具箱中就加入了多媒体控件MMControl。
在工具箱里找到MMControl控件（最后一个），选中后在窗体上画一个，可以发现跟我们常见的设备符号一样，有播放、停止、暂停、快进、弹碟等等。以“音乐播放器”为文件名保存文件到自己的文件夹。
现在播放器是虚的，还要设置一下显示属性，用鼠标右键单击窗体中的多媒体控件，在弹出的菜单中选择“属性”，在弹出的对话框顶端选择“控件”标签，将各个按钮符号旁边的有效选中打上勾，单击“确定”回到窗体中，这时候控件就可以使用了。
单击启动按钮运行一下，窗口中的播放器还是虚的，这是因为还没有要播放的文件。
关闭程序回到窗体窗口，添加一个框架Fram1，向里面添加三个单选按钮Option，分别设置Caption为Wav，Mp3和Avi，再修改好背景色。
下面我们来添加代码打开播放器，播放一个指定的文件，双击窗体，添加代码到Form_Load()过程中初始化播放器：
MMcontrol1.Notify=False '不返回播放信息
MMcontrol1.Wait=True '播放时其他人等待
在代码窗口的顶部左边的列表中选择Option1，右边自动选择Click，在弹出的Option_Click()过程中添加播放Wav的代码：
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音频格式
MMControl1.FileName = "d:\music\one.wav" '文件夹中的one.wav文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '播放文件
各行代码的作用，在后面的绿色注释中讲到，最后一句用来自动播放，相当于单击播放器的“播放”按钮，播放时必须要有文件名和播放命令。
同样找到Option2的Click()过程，添加播放MP3的代码：
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "" '其他类型
MMControl1.FileName = "d:\music\two.mp3" '文件夹中的two.mp3文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
这里的Mp3格式是压缩格式属于其他类型，别的跟Wav文件相同，都是声音文件，没有图像只有音乐。
注意Option3有些不同，它是Avi视频格式，也就是既有声音还有图像，它的Click()代码为：
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName = "d:\music\thr.avi" '文件夹中的thr.avi文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
这儿第三行代码是让视频图像显示在背景中，也可以添加一个图片框，把Form1改为PIcture1，注意图像的比例一般是4:3 或者16:9。
检查一遍代码，注意中英文和标点符号以及大小写的正确性。保存一下文件
单击“启动”按钮运行程序，点击不同的格式文件来播放音乐，看看我们的多媒体播放器强大的功能，注意重复播放时要倒带子，单击“倒带”然后再播放就重新播放了，退出前一定要关闭设备也就是“close”命令。

整个代码为：

Private Sub Command1_Click() '退出程序
MMControl1.Command = "close" '关闭播放器设备
MMControl1.Shareable = True '允许别人使用播放器
End
End Sub

Private Sub Form_DblClick()'双击退出
MMControl1.Command = "close" '关闭播放器
MMControl1.Shareable = True
End
End Sub

Private Sub Form_Load()
MMControl1.Notify = False '不返回播放信息
MMControl1.Wait = True '播放时其他人稍等
End Sub

Private Sub Form_Unload(Cancel As Integer) '关闭窗口
MMControl1.Command = "close" '关闭播放器
MMControl1.Shareable = True
End Sub

Private Sub Option1_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音频格式
MMControl1.FileName = "d:\music\one.wav" '文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '播放文件

End Sub

Private Sub Option2_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "" '其他类型
MMControl1.FileName = "d:\music\two.mp3" '当前文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
End Sub

Private Sub Option3_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName ="d:\music\thr.avi" '文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
End Sub

Answer 2

哥们，是课程设计吧！去年我们老师也让做过，我邮箱里还有这东西，给你发过去了啊！你选的题太难了啊！

Answer 3

VB里面带有一个播放器的控件
用了然后加个TEXT和一个停止一个开始的按钮就可以了阿
代码你应该知道吧~

Answer 4

这东西都是需要付费，才有人做的。太麻烦了。找计算机专业的大学生吧，估计有1000-2000块，就有人自告奋勇！

Answer 5

做什么啊，直接要原代码即可！