UC知道vb编程,windowsmediaplayer
来源：百度知道 编辑：UC知道 时间：2024/05/12 00:03:43
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If WindowsMediaPlayer1.playState = wmppsMediaEnded Then
windowsmediaplayer1.url = "c:\coro.wma"
WindowsMediaPlayer1.Controls.play
End If
End Sub
请问为什么无法播放，而需要去点一下播放按纽才可以播放？
If WindowsMediaPlayer1.playState = wmppsMediaEnded Then
windowsmediaplayer1.url = "c:\coro.wma"
WindowsMediaPlayer1.Controls.play
End If
End Sub
请问为什么无法播放，而需要去点一下播放按纽才可以播放？
事件选的逻辑倒置
先播放才会发生PlayStateChange，加载时没什么改变的状态，所以不会响应
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "c:\coro.wma"
WindowsMediaPlayer1.Controls.play
End Sub
'这样就ok 刚刚测试了一下,完全正常