关于windowsmediaplayer控件全屏显示的有关问题

关于windowsmediaplayer控件全屏显示的问题?
请教各位高手:如何让windowsmediaplayer控件一显示出来时就全屏显示呢?比方说我想用windowsmediaplayer控件做一个类似超级解霸的媒体播放器.有二个窗体,第一个窗体是主窗体,用来进行播放控制.第二个窗体是播放窗体,上面只放一个windowsmediaplayer控件,然后当我播放节目时,点击主窗体上的全屏按钮后,播放窗体就直接以全屏方式显示出来,就连windowsmediaplayer控件下面的那个白色的简单控制条也直接隐藏起来.请教各位高手:要做到全屏播放时,也直接把windowsmediaplayer控件下面的那个白的控制条隐藏起来,不让它显示出来.要达到这个目地,VB代码应该怎么写呢?请各位高手直接写出实现这个目地的代码.(这代码我不会写,也不知道能否直接实现这功能?)多谢各位!

------解决方案--------------------
不妨教你一招。下面这个播放器还算完整，如果加上暂停，快进，快退，那就更完整了。

VB code

'form1的窗体代码
'在其上添加一个WMP控件
Option Explicit

'wmp播放器缩放
Private Sub Form_Resize()
        WindowsMediaPlayer1.Move 0, 0, Me.Width, Me.Height
End Sub


'下面是Form2的窗体代码
'form1作为播放窗体
'form2作为启动窗体。播放控制。
'在其上添加4个命令按钮command1,command2,command3,command4

Option Explicit

Private Sub Command1_Click()
        Form1.WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Command2_Click()
        Form1.WindowsMediaPlayer1.Controls.stop
End Sub

Private Sub Command3_Click()
        On Error Resume Next
        Form1.WindowsMediaPlayer1.fullScreen = True
End Sub

Private Sub Command4_Click()
        Form1.WindowsMediaPlayer1.Controls.stop
        Unload Form1: Unload Form2: End
End Sub

Private Sub Form_Load()
        Form1.Visible = True
        Form1.WindowsMediaPlayer1.Left = 0: Form1.WindowsMediaPlayer1.Top = 0
        Form1.WindowsMediaPlayer1.Width = Form1.Width: Form1.WindowsMediaPlayer1.Height = Form1.Height
        
        Form1.WindowsMediaPlayer1.uiMode = "none" '隐藏WMP播放器控制面板
         Form1.WindowsMediaPlayer1.URL = " E:\录像\中国航天员首次出舱活动.mpg" '加载媒体
         Form1.WindowsMediaPlayer1.stretchToFit = True
        Form1.WindowsMediaPlayer1.enableContextMenu = True '允许右键菜单
         Form1.WindowsMediaPlayer1.settings.autoStart = False
        Form1.WindowsMediaPlayer1.windowlessVideo = False
        Form1.WindowsMediaPlayer1.Controls.play
        Form1.WindowsMediaPlayer1.fullScreen = False '禁止全屏
        
         Form2.Command1.Caption = "播    放"
        Form2.Command2.Caption = "停止播放"
        Form2.Command3.Caption = "全屏播放"
        Form2.Command4.Caption = "退    出"
End Sub

关于windowsmediaplayer控件全屏显示的有关问题

相关推荐