大虾帮下忙,实现mciexecute的几个功能
我现在用VB 调用mciexecute制作一个音频播放器,,已经好了一半了,可是还想加点功能进去,希望给为大虾帮下忙
在我已有的源码上添加以下这些功能
希望再添加的功能有:添加一个播放列表,添加到列表后的文件可以自己按顺序播放,在播放的过程中可以暂停
[b]我的源码:Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpastrcommand As String) As Long
Private Sub Command1_Click()
CommonDialog1.Filter = "(*.*)|*.*|(*.mp3)|*.mp3|(*.dat)|*.dat|(*.avi)|*.avi|"
CommonDialog1.Action = 1
temp = mciExecute("play " + CommonDialog1.FileName)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Me.Caption = "播放器"
End Sub
谢谢各位了!!!
[解决办法]
参考
[解决办法]
为什么不考虑使用WMP?
[解决办法]
一.使用CommonDialog1 "复选" 方式
二.将上面 "复选" 所产生的数组路径一一添加到List1
三.
Dim SongNo%
list1.listindex=SongNo '从第一首歌开始播放
Call mciExecute("play " & List1.text)
四.Timer事件里面
检测目前播放状态或检测目前的进度是否已大于等于歌曲的总长度
如超过则播放下一首歌
SongNo=IIf(SongNo+1>=List1.listcount-1,0,SongNo+1)
list1.listindex=SongNo
Call mciExecute("play " & List1.text)