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.