VB.NET 2008影音播放器开发指南

1. 创建基本窗体
vb
Imports System.Windows.Forms
Imports System.IO

Public Class MediaPlayerForm
    Inherits Form
    
    Private WithEvents btnOpen As New Button()
    Private WithEvents btnPlay As New Button()
    Private WithEvents btnPause As New Button()
    Private WithEvents btnStop As New Button()
    Private WithEvents axWindowsMediaPlayer As New AxWMPLib.AxWindowsMediaPlayer()
    
    Public Sub New()
        ' 初始化窗体
        Me.Text = "VB.NET 影音播放器"
        Me.Size = New Size(800, 600)
        
        ' 添加Windows Media Player控件
        Me.Controls.Add(axWindowsMediaPlayer)
        axWindowsMediaPlayer.Dock = DockStyle.Fill
        
        ' 添加控制按钮
        SetupControls()
    End Sub
    
    Private Sub SetupControls()
        ' 按钮设置
        btnOpen.Text = "打开文件"
        btnPlay.Text = "播放"
        btnPause.Text = "暂停"
        btnStop.Text = "停止"
        
        ' 按钮布局
        Dim panel As New FlowLayoutPanel()
        panel.Dock = DockStyle.Bottom
        panel.Height = 40
        panel.Controls.AddRange({btnOpen, btnPlay, btnPause, btnStop})
        
        Me.Controls.Add(panel)
    End Sub
End Class
2. 添加Windows Media Player控件
在工具箱上右键点击，选择"选择项"

在COM组件选项卡中找到"Windows Media Player"

勾选并确定，这样工具箱中就会出现该控件

核心功能实现
1. 打开媒体文件
vb
Private Sub btnOpen_Click(sender As Object, e As EventArgs) Handles btnOpen.Click
    Dim openFileDialog As New OpenFileDialog()
    
    ' 设置文件过滤器
    openFileDialog.Filter = "媒体文件|*.mp3;*.wav;*.mp4;*.avi;*.wmv|所有文件|*.*"
    
    If openFileDialog.ShowDialog() = DialogResult.OK Then
        Try
            axWindowsMediaPlayer.URL = openFileDialog.FileName
        Catch ex As Exception
            MessageBox.Show("无法播放文件: " & ex.Message)
        End Try
    End If
End Sub
2. 播放控制功能
vb
Private Sub btnPlay_Click(sender As Object, e As EventArgs) Handles btnPlay.Click
    If axWindowsMediaPlayer.playState <> WMPLib.WMPPlayState.wmppsPlaying Then
        axWindowsMediaPlayer.Ctlcontrols.