Private Sub WindowsMediaPlayer1_StatusChange() If WindowsMediaPlayer1.Status = "已停止" Then MsgBox "播放完了,该干嘛干嘛去" End If End Sub
更多追问追答
追问
不好意思,试了没用,ps:我的wmplayer是不可见的
追答
不好意思,试了有用。你自己琢磨吧
追问
你的是手动停止才有用吧? 我真试了啊
追答
...自动播放,播放停止后弹出消息
追问
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) If WindowsMediaPlayer1.Status = "已停止" Then Form13.Show Form14.Hide End If End Sub 我是照你的编的啊,能指一下哪儿错了么
追答
大哥,你好好看看过程一样吗?? Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long