音乐播放器代码调试阶段.docVIP

添加一个MMC控件！ 音乐播放器 音乐播放器 媒体播放器控件（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 双击退出 MMCo