WindowsMediaPlayer VB实例

最新推荐文章于 2024-09-16 13:01:49 发布

zzq89120

最新推荐文章于 2024-09-16 13:01:49 发布

阅读量1.3k

点赞数

文章标签： vb command 活动

本文链接：https://blog.youkuaiyun.com/zzq89120/article/details/4038821

版权

本文介绍如何使用VB.NET实现Windows Media Player (WMP) 控件的基本操作，包括播放、停止、全屏控制等功能，并展示了如何通过按钮控制WMP播放器的状态。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'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