关于windowsmediaplayer控件全屏显示的问题?
请教各位高手:如何让windowsmediaplayer控件一显示出来时就全屏显示呢?比方说我想用windowsmediaplayer控件做一个类似超级解霸的媒体播放器.有二个窗体,第一个窗体是主窗体,用来进行播放控制.第二个窗体是播放窗体,上面只放一个windowsmediaplayer控件,然后当我播放节目时,点击主窗体上的全屏按钮后,播放窗体就直接以全屏方式显示出来,就连windowsmediaplayer控件下面的那个白色的简单控制条也直接隐藏起来.请教各位高手:要做到全屏播放时,也直接把windowsmediaplayer控件下面的那个白的控制条隐藏起来,不让它显示出来.要达到这个目地,VB代码应该怎么写呢?请各位高手直接写出实现这个目地的代码.(这代码我不会写,也不知道能否直接实现这功能?)多谢各位!
[解决办法]
不妨教你一招。下面这个播放器还算完整，如果加上暂停，快进，快退，那就更完整了。
'form1的窗体代码'在其上添加一个WMP控件Option Explicit'wmp播放器缩放Private Sub Form_Resize() WindowsMediaPlayer1.Move 0, 0, Me.Width, Me.HeightEnd Sub'下面是Form2的窗体代码'form1作为播放窗体'form2作为启动窗体。播放控制。'在其上添加4个命令按钮command1,command2,command3,command4Option ExplicitPrivate Sub Command1_Click() Form1.WindowsMediaPlayer1.Controls.playEnd SubPrivate Sub Command2_Click() Form1.WindowsMediaPlayer1.Controls.stopEnd SubPrivate Sub Command3_Click() On Error Resume Next Form1.WindowsMediaPlayer1.fullScreen = TrueEnd SubPrivate Sub Command4_Click() Form1.WindowsMediaPlayer1.Controls.stop Unload Form1: Unload Form2: EndEnd SubPrivate 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
