对象 'fullScreen' 的方法 'IWMPPlayer4'失败

Question

我在vb中使用win media player 控件时 想要全屏播放文件，写了语句wmp.fullScreen = True
后执行出现  实时错误 '-2147418113 (8000ffff)': 对象 'fullScreen' 的方法 'IWMPPlayer4'失败
这怎么解决？

Answer 1

我习惯用这种间接的操作，嘿嘿~~~~~不过可以实现Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "D:\WINDOWS\clock.avi"
End SubPrivate Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If (WindowsMediaPlayer1.playState = wmppsPlaying) Then
WindowsMediaPlayer1.fullScreen = True
End If
End Sub

Answer 2

谢谢cso你的方法确实可用哦~