MMControl使用？

用MMControl控件如何才能播放多个歌曲啊？

解决方案 »

  1.   

    Dim i As Integer
    Private Sub Form_Load()
    List1.AddItem "G:\01.wav"
    List1.AddItem "G:\02.wav"
    List1.AddItem "G:\03.wav"
    List1.AddItem "G:\04.wav"
    i = 0
    MMControl1.UpdateInterval = 2000
    MMControl1.Notify = True
    MMControl1.Shareable = False
    MMControl1.DeviceType = "waveaudio"
    MMControl1.FileName = List1.List(i)
    MMControl1.Command = "open"
    MMControl1.Notify = True
    MMControl1.Wait = False
    MMControl1.Command = "play"
    MMControl1.AutoEnable = True
    End SubPrivate Sub MMControl1_StatusUpdate()
    If MMControl1.Mode = 525 Then
    i = i + 1
    If i > List1.ListCount - 1 Then MMControl1.Command = "C"
    MMControl1.FileName = List1.List(i)
    MMControl1.Command = "open"
    MMControl1.Notify = True
    MMControl1.Wait = False
    MMControl1.Command = "play"
    End If
    End Sub
    只能放多首轮放一遍