当前位置:编程学习 > VB >>

WAV音频文件播放

大家帮忙看看哪里出错了哇
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 源码 自己看看 --------------------编程问答--------------------
引用 1 楼 ybh37 的回复:
搜索 VB MMC 源码 自己看看

 我知道哪里错了,多加了个顿号 --------------------编程问答--------------------
引用 2 楼 gwldzj 的回复:
 我知道哪里错了,多加了个顿号

多加了个顿号并不影响程序正常运行。
--------------------编程问答--------------------
引用 3 楼 chinaboyzyq 的回复:
引用 2 楼 gwldzj 的回复:

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

多加了个顿号并不影响程序正常运行。

但是去了之后的确可以执行正确了 --------------------编程问答-------------------- 额的神呀,很诡异
补充:VB ,  多媒体
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,