Question

我已经阅读了很多关于在Windows Media Player上全屏播放视频的文章/答案，但我没有取得多大成功。我正在使用Visual Basic Express 2010在一些非常简单的应用程序中播放视频。这是没有用的。

在启动视频的事件的VB代码中：

Private Sub picVideoStart_Click(sender As System.Object, 
         e As System.EventArgs) Handles picVideoStart.Click
    AxWindowsMediaPlayer1.URL = "C:\Videos\Bear8.mp4"
    AxWindowsMediaPlayer1.settings.autoStart = True
    AxWindowsMediaPlayer1.settings.mute = True
    picVideoStart.Visible = False

    If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
        AxWindowsMediaPlayer1.fullScreen = True
    End If
End Sub

我还尝试在Visual Basic Express属性窗口中将Full Screen属性设置为True。

这是有效的。如果我在设计模式下右键单击AxWindowsMediaPlayer1，我会得到一个菜单，然后选择“属性”。如果我在“全屏播放”框中打勾，视频将以全屏播放 - 但只有一次。如果应用程序的用户再次播放视频，则视频将恢复为部分屏幕。

我错过了什么？提前谢谢！

Answer 1

   'Can only set the full screen mode when the video is playing
   Do While AxWindowsMediaPlayer1.playState <> WMPLib.WMPPlayState.wmppsPlaying
        Application.DoEvents()
   Loop
   AxWindowsMediaPlayer1.fullScreen = My.Settings.AlbumPlayVideoFullScreen

全屏windows媒体播放器

1 个答案: