求救..在VB中实现单曲循环和全部循环的功能..

Question

我在网上找了好多资料,包括在这里看的贴子..都介绍的很零乱..只好在发一个贴求救一下各位了....希望最好能复上代码就最好了..当然,重要的是不会忘了各位大虾的"加分"啦...开个玩笑^@^..技术才是重要..

Answer 1

Private Sub MMControl1_StatusUpdate()
    '计算文件总长度，单位为秒
    LabLen.Caption = MMControl1.Length / 1000
Private Sub MMControl1_Done(NotifyCode As Integer)
    '如果文件播放结束
    If MMControl1.Position = MMControl1.Length Then
        '倒回止文件的起点
        MMControl1.Command = "prev"
这是实现单曲播放的

Answer 2

单曲播放
比如放在一个click函数内
Private Sub command1_click()
mmcontrol1.notify=false
mmcontrol1.wait=true
mmcontrol1.shareable=false
mmcontrol1.filename="你的文件"
mmcontrol1.command="open"
end sub循环播放放入一个timer控件设定好检查歌曲播放完的时间
然后将所有的歌曲放入一个数组这里比如是s()
i=0
Private   Sub   Timer1_Timer()     
    
  　　If   MMControl1.Mode   =   525   Then   '525状态为播放完毕   
    
  　　　　MMControl1.DeviceType   =   "waveaudio"     
    
  　　　　MMControl1.filename   =   s(i+1)     
    
  　　　　MMControl1.Command   =   "open"     
    
  　　　　MMControl1.Command   =   "play"   
          end   if   
  end   sub