可以在 工程-部件 中引用microsoft windows MEDIA command dialog 1.0 控件，那是
windows附带播放器MEDIA PLAYER的控件，是windows都应该有，然后设置它的URL地址（WAVA的地址）就可以播放了

通过API即可

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
mciExecute "play c:\aa.wav"
End Sub

Private Sub Command4_Click()
  Dim WinApp As WindowsMediaPlayer
  Set WinApp = New WindowsMediaPlayer
  
  WinApp.openPlayer (App.Path & "\1.wav")
  Set WinApp = Nothing
End Sub
应该可以，不知道能不能满足你的要求！

1楼兄弟，你说的那个部件没有 ，应该只给你加20分的，晕，给多了！

2楼兄弟的方法很不错，

3楼的运行不了， 到Set WinApp = New WindowsMediaPlayer 时候提示 NEW 无效使用
不知道是什么原因？ 但是感谢你答题因此加 10分！

没有？不会吧，你可以看看
http://upload.programfan.com/upfile/200603312225637.rar

或者在部件里引用下面的OCX控件
http://upload.programfan.com/upfile/200605072112306.rar

因为你没有引用！！
要先引用以下才能使用，呵呵，我忘写了！

[quote]通过API即可

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
mciExecute "play c:\aa.wav"
End Sub[/quote]

为什么编译成EXE就不能播放,提示:指定的设备未打开,或不被 MCI 所识别?

请高手帮帮我,谢谢了

使用API函数mciSendString范围更广，不但可以播放WAV,还可以播放MP3、MDI、CD光碟、MPEG等，还可以录音。试验代码如下：

Private Sub Form_Load()
Dim musicName As String
musicName = "(全路径音乐文件名)" '注意：路径和文件名决不能有空格
mciSendString "open " & musicName & " alias mymusic", 0&, 0, 0
End Sub

Private Sub Command1_Click() '开始播放
mciSendString "play mymusic", "", 0, 0
End Sub

Private Sub Command2_Click() '暂停
mciSendString "pause mymusic", "", 0, 0
End Sub

Private Sub Command3_Click() '继续
mciSendString "resume mymusic", 0&, 0, 0
End Sub

Private Sub Command4_Click() '停止
mciSendString "stop mymusic", 0&, 0, 0
End Sub

Private Sub Command5_Click() '关闭
mciSendString "close mymusic", 0&, 0, 0
End Sub

E:\Program Files\vb6mini\Template\Classes\声音播放.cls