VB 用 windows mediaplayer 控件打开了一个mp3音乐。当结束一首时，自动换另一首。怎写代码。

来源：百度知道 编辑：UC知道 时间：2024/06/09 00:06:46
要能自动判断第一首播完了。同时开始播第二首。第二首播完了自动播第一首。两首循环。
顺便问一下，当鼠标 移动到 一个command上时触发了什么事件。我想在当鼠标移到一个command上时，image的图片按timer的时间换。
当第一首没播完时，点一个command，也可以直接换成下一首。

用一个timer来判断当前播放数是否等于总数,是的话就调用第二首,变换图片写在command的mousemove事件里面,另外要和窗体的mousemove结合才能做出切换的效果,当鼠示移动command上面换图片,当鼠标移开command,移动窗体的其它位置时就把图片切换回去

一样的,mediaplayer有这个事件给你调用的,所有的功能都有,你慢慢试,我以前也做过,不过忘了
播放上一首下一首,暂停,停止,显示时间,显示作者...

dim vState
vState = 1
'当播放器的播放状态改变是
Private Sub MediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then'1为停止(一曲播完)
if vState = 1 then
vState = 2
'换歌
else
vState = 1
换歌
End If
End Sub