编程论坛 » VB6论坛 » 请教大家,重复播放音乐的问题

看学 发表于 2008-5-29 12:45

请教大家,重复播放音乐的问题

打开程序自动播放背景音乐

Private Sub Form_Load()
WindowsMediaPlayer1.URL = Dir(C:& "\音乐.mid")
End Sub

但播放完了,怎样重新再播放

我用Timer事件,但不会写,怎么判断音乐已经播放完,再重复播放
Private Sub Timer1_Timer()
..............................
.............................
End If

谢谢!!!

三断笛 发表于 2008-5-29 13:16

用timer判断?
那就在播放时启动Timer,间隔为500
然后判断当前播放位置和音乐总长度,当二者很接近时就重新播放

lzn3303768 发表于 2008-5-29 21:32

WMP控件的自定义那里可以设定播放次数

查看完整版本: 请教大家,重复播放音乐的问题