Question

vb6.0中如何编码使wmplayer播放完文件后立刻弹出下一个窗体

Answer 1

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