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 源码 自己看看 --------------------编程问答--------------------
我知道哪里错了,多加了个顿号 --------------------编程问答--------------------
多加了个顿号并不影响程序正常运行。
--------------------编程问答--------------------
但是去了之后的确可以执行正确了 --------------------编程问答-------------------- 额的神呀,很诡异
补充:VB , 多媒体