我用MMcontrol控件播放MP3用来当背景音乐但是它播放一遍就停了,我希望他不断地重复播下去,怎么做啊?谢谢!!

解决方案 »

  1.   

    Private Sub Timer1_Timer()   If MMControl1.Mode = 525 Then '525状态为播放完毕    MMControl1.DeviceType = "waveaudio"     MMControl1.filename = "your.file"     MMControl1.Command = "open"     MMControl1.Command = "play"
        end if
    end sub
      

  2.   

    我试了一下,还是不行啊,我用的如下代码,这个控件可以波MP3吧
    我单独播了一下是可以地,是不是TIMER需要什么设置?
    Private Sub bgt_Timer()
    If bg.Mode = 525 Then
       bg.FileName = App.Path & "\svm\鞭子1.mp3"
       bg.Command = "open"
       bg.Command = "play"
    End If
    End Sub