用vb6.0制作音乐播放器的疑惑
音乐播放器
音乐播放器
媒体播放器控件(MCI)可以播放音频和视频，即音乐和DVD。
在D: disk的根目录下新建一个文件夹，改名为music。将三个音乐文件复制到其中，一个Wav文件重命名为1，另一个Mp3文件重命名为2，然后复制第10课中的thr视频文件。这是一个Avi文件。
启动VB，修改窗体属性，添加标签，标题改为“我的播放器”。
MCI控件应该添加到工具箱中，方法是右键单击工具箱，选择“组件”，在对话框中找到Microsoft Multimeia Control6.0，然后单击“确定”将多媒体控件MMControl添加到工具箱中。
在工具箱中找到MMControl控件(最后一个)，选中后在窗体上画一个，可以发现有播放、停止、暂停、快进、播放一张光盘等等，就像我们常见的设备符号一样。将文件保存到自己的文件夹中，命名为“音乐播放器”。
既然玩家是虚拟的，您需要设置显示属性。用鼠标右键单击表单中的多媒体控件，在弹出菜单中选择属性，在弹出对话框的顶部选择“控件”选项卡，在每个按钮符号旁边勾选有效选项，然后单击“确定”返回表单。这时，可以使用控件。
点击开始按钮运行，窗口里的播放器还是空的，因为还没有文件可以播放。
关闭程序返回窗体窗口，添加一个frame Fram1，给它添加三个单选按钮选项，分别设置Caption为Wav，Mp3，Avi，然后修改背景色。
我们来添加代码打开播放器，播放指定文件，双击窗体，在Form_Load()的过程中添加代码初始化播放器:
MMcontrol1。Notify=False '不返回播放信息。
MMcontrol1。Wait=True '其他人在玩的时候等待。
从代码窗口顶部左侧的列表中选择Option1，然后单击右侧的自动。在弹出的Option_Click()中添加播放Wav的代码:
mm control 1 . command = " Close " '首先关闭播放器。
MMControl1。Device type = "wave audio"' wav音频格式。
mm control 1 . filename = " d:\ music \ one.wav " '文件夹中的one . wav文件。
MMControl1。Command = "open " '打开设备。
MMControl1。Command = "play " '播放文件。
后面绿色的注释里提到了每行代码的功能。最后一句是用来自动播放的，相当于点击播放器的“播放”按钮。播放时，必须有文件名和播放命令。
还要找到Option2的Click()过程，并添加播放MP3的代码:
mm control 1 . command = " Close " '首先关闭播放器。
MMControl1。DeviceType = " "其他类型。
mm control 1 . filename = " d:\ music \ two . MP3 " '文件夹中的文件。
MMControl1。Command = "open " '打开设备。
MMControl1。Command = "play " '您也可以点按播放按钮。
这里的Mp3格式是压缩格式，属于其他类型。其他的和Wav文件一样，都是声音文件，没有图像，只有音乐。
请注意，选项3略有不同。它是一种Avi视频格式，也就是说，它既有声音又有图像。它的Click()代码是:
mm control 1 . command = " Close " '首先关闭播放器。
mm control 1 . device type = " avi video " ' avi视频格式。
'使用背景窗体作为屏幕。
mm control 1 . filename = " d:\ music \ thr.avi " '文件夹中的thr . avi文件。
MMControl1。Command = "open " '打开设备。
MMControl1。Command = "play " '您也可以点按播放按钮。
这里的第三行代码是在背景中显示视频图像。您还可以添加图片框，并将1格式更改为PIcture1。注意图像的比例一般是4:3或者16:9。
检查代码，注意中英文标点和大小写的正确性。保存文件。
点击“开始”按钮运行程序，点击不同格式文件播放音乐，看看我们多媒体播放器的强大功能。重复播放时注意倒带，点击“倒带”再放一遍。退出前一定要关闭设备，也就是“关闭”命令。
整个代码是:
Private Sub命令1_Click()'退出程序。
mm control 1 . command = " close " '关闭播放器设备。
MMControl1。Shareable = true '允许其他人使用播放机。
结束
末端接头
双击Private Sub Form_DblClick()'退出。
mm control 1 . command = " Close " '关闭播放器。
MMControl1。Shareable = True
结束
末端接头
私有子窗体_Load()
MMControl1。Notify = False '不返回播放信息。
MMControl1。Wait = True '在别人玩的时候等待。
末端接头
private subform _ unload(cancel as integer)'关闭窗口。
mm control 1 . command = " Close " '关闭播放器。
MMControl1。Shareable = True
末端接头
私有子选项1_Click()
mm control 1 . command = " Close " '首先关闭播放器。
MMControl1。Device type = "wave audio"' wav音频格式。
mm control 1 . filename = " d:\ music \ one . wav " '文件夹中的文件。
MMControl1。Command = "open " '打开设备。
MMControl1。Command = "play " '播放文件。
末端接头
私有子选项2_Click()
mm control 1 . command = " Close " '首先关闭播放器。
MMControl1。DeviceType = " "其他类型。
mm control 1 . filename = " d:\ music \ two . MP3 " '当前文件夹中的文件。
MMControl1。Command = "open " '打开设备。
MMControl1。Command = "play " '您也可以点按播放按钮。
末端接头
私有子选项3_Click()
mm control 1 . command = " Close " '首先关闭播放器。
mm control 1 . device type = " avi video " ' avi视频格式。
'使用背景窗体作为屏幕。
mm control 1 . filename = " d:\ music \ thr . avi " '文件夹中的文件。
MMControl1。Command = "open " '打开设备。
MMControl1。Command = "play " '您也可以点按播放按钮。
末端接头