使用windowsmediaplayer全屏播放视频结束后，如何隐藏该控件

Question

使用windowsmediaplayer全屏播放视频结束后，如何隐藏该控件
PlayStateChange事件貌似不管用

Answer 1

可能要用定时器控件来实时判断播放的位置是否到达媒体的终点,然后触发windowsmediaplayer.VISIBLE事件.

Answer 2

1.windowsmediaplayer播放完毕后触发endofstream事件。所以隐藏要写到endofstream 中。
2.windowsmediaplayer播放完毕后最好把filename属性置空，然后再隐藏。

Answer 3

调试的时候 他都不执行endofstream事件

Answer 4

你用的什么控件？msdxm.ocx吗？。
方便把相关代码发上来吗？

Answer 5

Private Sub Form_Load()
WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height
End SubPrivate Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
  If (WindowsMediaPlayer1.playState = wmppsPlaying) Then
      WindowsMediaPlayer1.fullScreen = True
  ElseIf WindowsMediaPlayer1.playState = wmppsStopped Then
      WindowsMediaPlayer1.URL = ""
      WindowsMediaPlayer1.Visible = False
  End If
End Sub现在好像可以了