程序写的累的时候，可以来一段美妙的音乐让身体全身心的放松下，下面我们在VB中制作一个简单的音乐播放器。

　　1， 按下图建立窗体界面

　　窗体中包含5个标签、1个CommonDialog、1个WindowsMediaPlayer。

　　标签标题从左至右依次为"选择"、"暂停"、"继续"、"停止"、"退出"，CommonDialog的"Filter"修改为"音频文件(*.Mp3)

　　*.mp3"。

　　2，代码功能实现：

　　（1），在代码窗口中定义函数和常量：

　　1. Option Explicit

　　2. Dim playfilename As String

　　3. Dim playposition As Double

　　（2），"选择"代码：

　　1. Private Sub Command1_Click()

　　2. CommonDialog1.ShowOpen

　　3. playfilename = CommonDialog1.FileName

　　4. Command1.Enabled = True

　　5. Command3.Enabled = True

　　6. WindowsMediaPlayer1.URL = playfilename

　　7. WindowsMediaPlayer1.Controls.currentPosition=playposition

　　8. WindowsMediaPlayer1.Controls.play

　　9. End Sub

　　（3）,"暂停"代码：

　　1. Private Sub Command2_Click()

　　2. Command1.Enabled = False

　　3. WindowsMediaPlayer1.Controls.pause

　　4. playposition=WindowsMediaPlayer1.Controls.currentPosition

　　5. End Sub

　　（4），"继续"代码：

　　1. Private Sub Command3_Click()

　　2. WindowsMediaPlayer1.Controls.play

　　3. Command1.Enabled = True

　　4. End Sub

　　（5），"停止"代码：

　　1. Private Sub Command4_Click()

　　2. playposition = 0

　　3. Command1.Enabled = True

　　4. Command2.Enabled = True

　　5. Command3.Enabled = False

　　6. WindowsMediaPlayer1.Controls.Stop

　　7. End Sub

　　（6），"结束"代码：

　　1. Private Sub Command5_Click()

　　2. End

　　3. End Sub

　　功能演示：

　　思考：

　　最后在录制程序功能视频的时候，发现了一个小小的问题，在录制界面中，点击"暂停"音乐停止播放，但最终录制的视频中音乐是完整的，也就是"暂停"功能在录制软件中并没有奏效，想一想原因是什么。