最后20分,帮帮我。播放器的问题！

Question

Option Explicit
Private Sub Command1_Click()
CommonDialog1.Filter = "wave file(*.mp3)|*.mp3"
C.ShowOpen
If C.FileName <> "" Then
MMControl1.FileName = CommonDialog1.FileName
MMControl1.FileName = CommonDialog1.FileName
MMControl1.DeviceType = "waveaudio"
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.Command = "open"
MMControl1.Command = "play"
Label1.Caption = "正在播放WAV文件"
Label2.Caption = CommonDialog1.FileName
End IfEnd Sub
为什么这段代码只能载入不能播放！

Answer 1

Option Explicit
Private Sub Command1_Click()
CommonDialog1.Filter = "wave file(*.wav)|*.wav"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
MMControl1.FileName = CommonDialog1.FileName
MMControl1.FileName = CommonDialog1.FileName
MMControl1.DeviceType = "waveaudio"
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.Command = "open"
MMControl1.Command = "play"
Label1.Caption = "正在播放WAV文件"
Label2.Caption = CommonDialog1.FileName
End IfEnd Sub可以播放 WAV 格式的音频文件

Answer 2

CommonDialog1的名到底是C还是CommonDialog1

Answer 3

CommonDialog1的名到底是C还是CommonDialog1你把他当成C也行。。

Answer 4

用 tmd007代码  的 完全可以播放..

Answer 5

楼主试试下面的这个 API。。'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongCall sndPlaySound("C:\WINDOWS\MEDIA\TADA.WAV", 0)'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''http://community.csdn.net/Expert/topic/5140/5140225.xml?temp=.4776422