如何判断歌曲播放完毕

[yswenli]

我最近做了一个播放器,用了
mediaplayer
qicktime
real
shockflash
几个控件,(可以在我的个人网站上下载:http:wenguoli.home4u.china.com)
但是有几个问题我一直没有解决:
1.怎么判断歌曲播放完毕
2.怎么实现文件关联播放
3.怎么实现文件拖放播放
请求高手指点:
我的QQ是:104684539
邮箱是:[e-mail]

[vbfunner]

这个关于wmp播放完毕你可以使用一个TIMER控件检测.
FLASH的不是很清楚.
关联播放自己写下注册表.你可以在网上查到资料.
文件的拖放我不会了.

[ashiw]

应该是用获取当前播放时间跟歌曲总时间比较来判断，拖放应该挺简单，有接受拖放的事件。网上有许多源码你可以看看就明白了。

[xyjdn]

1.怎么判断歌曲播放完毕_找个滚动条之类的控件，100％了就播完了

[yswenli]

我的意思，就　是如何找出歌曲播放完了
因为这个要自已编码　实在有点难，我想了好久也没有想出来，哪位大哥大姐要是有源码帮小弟一下可以吗？

[watt]

PlayStateChange(ByVal NewState As Long)
事件可以判断结束

[randomx]

......

[rubin116]

Dim retstr As String * 20
cmdstr = "status CCC position"
rc = mciSendString(cmdstr, retstr, 20, 0&)
NiceSlider1.Value = Val(RTrim(retstr))
cccc = NiceSlider1.Value
If Val(retstr) >= Val(StopFrame) - 10 Then

歌曲完了
End If

[lihao102]

Private Sub MMControl1_StatusUpdate()
'计算文件总长度，单位为秒
LabLen.Caption = MMControl1.Length / 1000
Private Sub MMControl1_Done(NotifyCode As Integer)
'如果文件播放结束
If MMControl1.Position = MMControl1.Length Then
msgbox "播放完毕了！"

[yjjsmile]

没做过,但帮忙顶一下