直接用插件也可以的。
貌似很多书上都有相关的实例，直接用控件就可以了
其他的应该没什么问题
添加一个WindowsMediaPlayer控件，语法：WindowsMediaPlayer1.URL = "音乐文件路径"
添加一个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.DeviceType = "" '其他类型
MMControl1.FileName = "d:\music\two.mp3" '文件夹中的two.mp3文件
这里的Mp3格式是压缩格式属于其他类型，别的跟Wav文件相同，都是声音文件，没有图像只有音乐。
注意Option3有些不同，它是Avi视频格式，也就是既有声音还有图像，它的Click()代码为：
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName = "d:\music\thr.avi" '文件夹中的thr.avi文件
这儿第三行代码是让视频图像显示在背景中，也可以添加一个图片框，把Form1改为PIcture1，注意图像的比例一般是4:3 或者16:9。
检查一遍代码，注意中英文和标点符号以及大小写的正确性。保存一下文件
整个代码为：
Private Sub Command1_Click() '退出程序
MMControl1.Command = "close" '关闭播放器设备
MMControl1.Shareable = True '允许别人使用播放器
End
End Sub
Private Sub Form_DblClick()'双击退出
MMControl1.Command = "close" '关闭播放器
MMControl1.Shareable = True
Private Sub Form_Load()
MMControl1.Notify = False '不返回播放信息
MMControl1.Wait = True '播放时其他人稍等
Private Sub Form_Unload(Cancel As Integer) '关闭窗口
Private Sub Option1_Click()
MMControl1.FileName = "d:\music\one.wav" '文件夹中的文件
Private Sub Option2_Click()
MMControl1.FileName = "d:\music\two.mp3" '当前文件夹中的文件
Private Sub Option3_Click()
MMControl1.FileName ="d:\music\thr.avi" '文件夹中的文件
方法太多了。可以用控件，可以用API，等等。给你个背景音乐的吧：
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub 音乐()
Dim Res As Integer, Ret As String * 1024
If blnBaojing = False Then Exit Sub
'Res = mciSendString("play " & APPPATH & "Shili.wav from 3000 to 8000", Ret, 1024, 0)
Res = mciSendString("play " & APPPATH & "1.mp3", Ret, 1024, 0) '整首播放
Public Sub 停止播放()
Res = mciSendString("STOP " & APPPATH & "1.mp3", Ret, 1024, 0) '整首播放
Res = mciSendString("close all", Ret, 1024, 0)
以上就是土嘎嘎小编大虾米为大家整理的vb6播放音频文件_vb6.0制作音乐播放器的疑惑相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！