进来瞧瞧一个小问题,送点分给你,

[wzboywwf]

1
我用mp3play做播放器,现在碰到以下问题
暂停,它就触发Mp3Play2_ThreadEnded事件,或一首歌正在播放我又点了另一首歌的播放也会确发Mp3Play2_ThreadEnded事件等.ThreadEnded事件我只有在顺序或随机播放时用到,其它时候我不想触发它,有没有什么办法跳过它呢,
2
在mp3play里面有没有其它方法,或事件,或属性或请客位高手给个代码可以得到一首歌的结束
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
Private Sub Command1_Click()
mp3play.stop
.......
mp3play.play

'播放
end sub
Private Sub Command2_Click()
mp3play1.stop
'暂停
end sub
Private Sub Mp3Play2_ThreadEnded()
'每次加一,播放下一首歌
end sub

[BlueBeer]

设个全局变量，比如
dim UserCtrl as boolean
按command1的时候就把它设成真值
直到command1的代码执行完再设置回来

sub command1_click()
UserCtrl=True
……'你的正常代码
UserCtrl=False
end sub

然后在ThreadEnded事件里的第一行写
if UserCtrl then exit sub

这样应该就行了

[cso]

1,可是设一个变量,你顺序或随机播放各取一个值,ThreadEnded事件中判断即可

[我和我的蓝天白云]

关注！

[RUKYO]

同意cso的，在出口记得在把这开关值重置。

[lqtflwg718]

严重关注！

[wzboywwf]

我用了全部变量，不过还碰到一点点问题，
1我在点播放时，它会‘先’调用，Private Sub Mp3Play2_ThreadEnded()事件，‘后’才调用播放事件，
2同样，我做循环播放也会调用，Private Sub Mp3Play2_ThreadEnded()事件，
我怎么做才能让,Private Sub Mp3Play2_ThreadEnded()事件知道，是播放，还是循环呢，
现在问题关键是，两次调用，都是‘先’调用，Private Sub Mp3Play2_ThreadEnded()事件的，
谢谢朋友　问，，帮帮我呀，，头很大了，

[wzboywwf]

解决，，了哈哈，，开心！！！散分了，