基于给定的需求，我们将构建一个简易的多媒体播放器应用程序，该程序使用Visual Basic .NET (VB.NET) 和 AxWindowsMediaPlayer 控件。此程序能够播放音频和视频文件，并具备多种播放模式，例如：随机播放、顺序播放、循环播放等。下面将详细介绍如何实现这样一个程序。
### 1. 项目初始化
在Visual Studio中创建一个新的Windows Forms Application项目。接着添加必要的控件到窗体上：
- **AxWindowsMediaPlayer** 控件：用于播放媒体文件。
- **ListBox** 控件：用来显示已加载的音频或视频文件列表。
- 多个 **Button** 控件：分别对应不同的功能，如播放、停止、暂停、继续播放、随机播放、顺序播放、循环播放、播放上一个、播放下一个等。
### 2. 添加控件和设置属性
#### AxWindowsMediaPlayer 控件
- 添加 **AxWindowsMediaPlayer** 控件到窗体上，并设置其 `URL` 属性来指定播放的媒体文件路径。
- 使用 `Ctlcontrols` 属性来控制播放状态（播放、暂停、停止等）。
#### ListBox 控件
- 添加一个 `ListBox` 控件到窗体上，用来显示加载的媒体文件列表。
- 设置 `SelectionMode` 属性为 `MultiExtended` 或 `One`，以便用户可以选择一个或多个文件。
#### Button 控件
- 分别添加多个按钮控件，并为其添加点击事件处理程序。
### 3. 实现基本功能
#### 加载媒体文件
- 使用 `OpenFileDialog` 控件让用户选择要播放的音频或视频文件。
- 将选定的文件路径添加到 `ListBox` 控件中，以及存储在一个数组列表中，以便后续操作。
```VB.Net
Imports System.IO
Public Class Form1
Private m_files As ArrayList
Private m_random As Random
Private m_currentIndex As Integer
Private m_randomplay As Boolean
Private m_sequenceplay As Boolean
Private m_loopplay As Boolean
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
m_files = New ArrayList()
m_random = New Random()
m_sequenceplay = True
End Sub
Private Sub ButtonOpen_Click(sender As Object, e As EventArgs) Handles ButtonOpen.Click
Dim ofd As OpenFileDialog = New OpenFileDialog()
ofd.Filter = "音频/视频文件|*.wav;*.mp3;*.wma;*.mid;*.avi;*.mp4"
ofd.Multiselect = True
If ofd.ShowDialog() = DialogResult.OK Then
For Each file In ofd.FileNames
m_files.Add(file)
ListBoxFiles.Items.Add(Path.GetFileName(file))
Next
End If
End Sub
```
#### 播放控制功能
- 实现播放、停止、暂停、继续播放等功能。
```VB.Net
Private Sub ButtonPlay_Click(sender As Object, e As EventArgs) Handles ButtonPlay.Click
If ListBoxFiles.SelectedIndex <> -1 Then
m_currentIndex = ListBoxFiles.SelectedIndex
AxWindowsMediaPlayer.URL = m_files(m_currentIndex)
AxWindowsMediaPlayer.Ctlcontrols.play()
End If
End Sub
Private Sub ButtonStop_Click(sender As Object, e As EventArgs) Handles ButtonStop.Click
AxWindowsMediaPlayer.Ctlcontrols.stop()
End Sub
Private Sub ButtonPause_Click(sender As Object, e As EventArgs) Handles ButtonPause.Click
AxWindowsMediaPlayer.Ctlcontrols.pause()
End Sub
Private Sub ButtonResume_Click(sender As Object, e As EventArgs) Handles ButtonResume.Click
AxWindowsMediaPlayer.Ctlcontrols.play()
End Sub
```
### 4. 实现高级播放功能
#### 随机播放
- 当选择随机播放时，每次播放都会从文件列表中随机选取一个文件。
```VB.Net
Private Sub ButtonRandom_Click(sender As Object, e As EventArgs) Handles ButtonRandom.Click
m_randomplay = Not m_randomplay
If m_randomplay Then
' 开启随机播放
m_currentIndex = m_random.Next(0, m_files.Count)
AxWindowsMediaPlayer.URL = m_files(m_currentIndex)
AxWindowsMediaPlayer.Ctlcontrols.play()
Else
' 关闭随机播放
End If
End Sub
```
#### 顺序播放
- 顺序播放文件列表中的每个文件。
```VB.Net
Private Sub ButtonSequence_Click(sender As Object, e As EventArgs) Handles ButtonSequence.Click
m_sequenceplay = Not m_sequenceplay
If m_sequenceplay Then
' 开启顺序播放
m_currentIndex += 1
If m_currentIndex >= m_files.Count Then
m_currentIndex = 0
End If
AxWindowsMediaPlayer.URL = m_files(m_currentIndex)
AxWindowsMediaPlayer.Ctlcontrols.play()
Else
' 关闭顺序播放
End If
End Sub
```
#### 循环播放
- 当选择循环播放时，当前文件会重复播放。
```VB.Net
Private Sub ButtonLoop_Click(sender As Object, e As EventArgs) Handles ButtonLoop.Click
m_loopplay = Not m_loopplay
If m_loopplay Then
' 开启循环播放
AxWindowsMediaPlayer.URL = m_files(m_currentIndex)
AxWindowsMediaPlayer.Ctlcontrols.play()
Else
' 关闭循环播放
End If
End Sub
```
### 5. 其他功能实现
- 实现播放上一个、播放下一个等功能。
- 可以通过修改当前索引值 `m_currentIndex` 来实现这些功能。
### 6. 完整代码示例
以上提供了关键部分的代码示例，为了使程序完整可用，还需要结合完整的窗体设计、事件处理和其他辅助逻辑代码。
通过以上步骤，我们可以实现一个功能丰富的简易多媒体播放器，该播放器支持音频和视频文件的播放，并具备多种播放模式。
