用VB做个音乐播放器

Question

用VB做个音乐播放器! 用PLAYER插件做就行 谁能教教我! 说详细点 谢谢了!!
你这是抄别人的吧 MediaPlayer1.pause 这句变量未定义

Answer 1

这是一个很简单的程序，给你一个网上的实例，看看下一段！

开头已经说了，这是一个来自网络的实例，代码没有问题，如果你连这么简单的教程都看不懂，我。。

当你遇到问题的时候，你应该首先想想是不是自己哪里做错了，如果确定自己没错，然后再考虑是不是别人错了。如果你总是以那样的语气对待帮助你的人，我想以后就没有人愿意帮助你了。提示你一句：你有没有添加MediaPlayer的控件呢？再仔细看看这份教程吧。

小叮当也战江湖—VB实例七日谈(二)

第二天、自制媒体播放器

小蘑菇：姐姐来看我刚刚下载的《黑衣人2》，可好玩了。

小叮当：用MediaPlayer看的？不如这样吧，今天我教你怎样制作一个媒体播放器，你看如何？

小蘑菇：自己做的媒体播放器也可以看《黑衣人2》吗？

小叮当：那是当然的，不然我岂不是变成了大骗子？

小蘑菇：呵呵，那感情好呀，这样我可以拿到班上给同学炫耀一下喽。

小叮当：我们这个媒体播放器的目的是可以播放VCD、WAV、MP3等媒体文件，而且全部的功能基本上和Windows附带的媒体播放器差不多。其实要制作这样一个播放器并不困难，因为在VB中提供了一个MediaPlayer控件，它帮我们解决了很多实际问题，只要按照下面的步骤就可以了。

1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。

2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。

3、将Form1的Caption属性更改为“小叮当的媒体播放器”。

4、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”，然后把它们按照一定的位置放好。

5、选中CommonDialog控件之后，在右边属性的“Filter”对话框中输入“WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3”的文件过滤选项，这样就可以支持各种常见的媒体影像文件了。

小蘑菇：看起来和真正的MediaPlayer差不多呀，还蛮有专业水准的呢。

小叮当：是呀，这全要归功于MediaPlayer控件，下面就是代码编写部分内容了：

1、首先要双击Form1窗口，并选择“通用”对象，输入下面的通用代码：

Option Explicit
Dim playfilename As String /定义播放文件的名称
Dim playposition As Double /定义当前播放的位置

2、双击“暂停”按键并输入下列代码：

Private Sub Command1_Click()
Command1.Enabled = False /暂停按键失效
MediaPlayer1.Pause /暂停播放
playposition = MediaPlayer1.CurrentPosition /当前的播放位置
End Sub

3、双击“播放”按键并输入下列代码：

Private Sub Command2_Click()
Command1.Enabled = True /暂停按键有效
Command3.Enabled = True /停止按键有效
MediaPlayer1.filename = playfilename /播放媒体文件名称
MediaPlayer1.SelectionStart = playposition /当前播放的位置
MediaPlayer1.Play /播放媒体文件
End Sub
4、双击“停止”按键并输入下列代码：

Private Sub Command3_Click()
playposition = 0 /停止播放
Command3.Enabled = False /停止按键无效
Command1.Enabled = False /暂停按键无效
Command2.Enabled = True /播放按键有效
MediaPlayer1.Stop /停止播放
End Sub

5、双击“选择”按键并输入下列代码：

Private Sub Command4_Click()
CommonDialog1.showopen /打开文件对话框
playfilename = CommonDialog1.filename /记录播放文件名
playposition = 0 /第一次打开文件时候，播放位置为0
End Sub

6、双击“退出”按键并输入下列代码：

Private Sub Command5_Click（）
Unload Me /卸载窗口
End /结束程序
End Sub

代码全部输入完毕之后，运行程序后按下“选择”按键，此时会弹出打开文件对话框供你选择需要播放的文件。

选中相应的文件之后，就可以进行欣赏了。如果需要在别的计算机上使用这个程序的话，还可以选择“工具”菜单下的“生成.exe文件”选项来制作一个可以直接运行的exe格式文件，这样将程序复制到其他机器上就可以使用了。”

小蘑菇：好开心呀，我来试试用自己做的程序看《黑衣人2》，哈哈，真过瘾！

小叮当：瞧你乐得这个劲，那你就慢慢看吧。对了，通过VB还可以制作Flash动画、QuickTime等多种格式的播放器，你自己不如依葫芦画瓢的尝试一下，看看你的天份有多少，呵呵！

小蘑菇：放心吧，保证不会让你失望的！

Answer 2

工程-->部件-->浏览-->选择msdxm.ocx加载
然后在窗体设计器中创建一个MediaPlayer控件，名字不用改，不过注意如果名字不是MediaPlayer1就说明该控件版本和我不一样，代码也就不能用了。
接着在Form_load事件中加入代码：
MediaPlayer1.AutoStart = False '让播放器不自动播放
MediaPlayer1.FileName = "C:\123.mp3" '载入C:\123.mp3
MediaPlayer1.Play '播放
当然事先要在C盘放一个123.mp3

暂停和停止功能，MediaPlayer控件自带。

虽然功能很少但是至少可以实现mp3播放，如果你有不懂的地方，我可以继续为你解答。