WindowsMediaPlayer VB实例

'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