Question

vb 中 WMP控件的问题

播放WMV是自动的，我在formload时就加载了wmv地址，和自动播放
只播放1次。
我现在的问题是如何让WMP播放完毕后自动执行一个SUB...
比如这个SUB是 MySub

Answer 1

代码如下。
＝＝＝＝＝＝＝＝＝＝
Sub mySub()
MsgBox ""
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = wmppsStopped Then mySub
End Sub