WAV音频文件播放

[gwldzj]

大家帮忙看看哪里出错了哇
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 Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
CommonDialog1.Filter = "音频、(*.wav)|*.wav"
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Slider1.Value = MMControl1.Position
End Sub

[咸清]

搜索 VB MMC 源码 自己看看

[gwldzj]

[Quote=引用 1 楼 ybh37 的回复:]
搜索 VB MMC 源码 自己看看
[/Quote]
我知道哪里错了，多加了个顿号

[chinaboyzyq]

[Quote=引用 2 楼 gwldzj 的回复:]

我知道哪里错了，多加了个顿号
[/Quote]
多加了个顿号并不影响程序正常运行。

[gwldzj]

[Quote=引用 3 楼 chinaboyzyq 的回复:]
引用 2 楼 gwldzj 的回复:

我知道哪里错了，多加了个顿号

多加了个顿号并不影响程序正常运行。
[/Quote]
但是去了之后的确可以执行正确了

[mokton]

额的神呀，很诡异