关于avi文件的循环播放

Question

我使用mciExecute或mciSendString函数实现avi文件的播放，现有一问题求救：
我的avi文件大概可以播放30秒，如何实现视频的循环播放。很急！！！
谢谢！

Answer 1

这样试试，引用MediaPlayerPrivate Sub MediaPlayer1_PlayStateChange(ByVal OldState As Long, ByVal NewState As Long)
  '自动循环播放
  If MediaPlayer1.PlayState = mpStopped Then
        MediaPlayer1.FileName = 路径
        MediaPlayer1.AutoStart = True
  End If
End Sub

Answer 2

mciExecute("play avi repeat")