WAV音频文件播放

Question

大家帮忙看看哪里出错了哇
Private Sub Command1_Click()
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
If CommonDialog1.FileName = "" Then Exit Sub
MMControl1.DeviceType = "Waveaudio"
MMControl1.Command = "Open"
Slider1.Max = MMControl1.Length
Slider1.Min = 0
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
End
End SubPrivate Sub Form_Load()
CommonDialog1.Filter = "音频、(*.wav)|*.wav"
Timer1.Interval = 500
End SubPrivate Sub Timer1_Timer()
Slider1.Value = MMControl1.Position
End Sub

Answer 1

搜索 VB MMC 源码 自己看看