在第20课中，我们已经编写了一个音频播放器。现在我们把音频播放器再稍作一些修改，将它改造成为一个能够播放各种电影和音频文件的多媒体播放器。此播放器将可以让您在电脑中搜寻所有类型的多媒体文件， 然后选择您喜爱的电影或音乐来播放。
类似上一课的项目，在这个项目中，你需要插入一个ComboBox， 一个drivelistbox ， 一个dirlistbox ，一个TextBox，一个filelistbox，一个Picturebox(图片框）, 一个timer（计时器） 和一个 Microsoft Multimedia Control 6.0（微软多媒体控件）到您的表单中。上述每个控件的功能说明如下：
ComboBox-展示和选择不同类型的文件。、
drivelistbox -允许您选择电脑中不同的驱动器。
dirlistbox -显示目录
TextBox -显示选定的文件
filelistbox -显示可用的档案
Picturebox-播放电影的屏幕
我们所编写的程序代码需要协调上述所有控件，使该程序可以正常工作。该程序需根据以下的步骤来编写：
第1步：用户选择他想播放的文件类型，。
第2步：用户选择可能包含有关的音频和电影档案的驱动器。
第3步：用户搜索驱动器中的目录。所有档案应显示在 filelistbox 中 。
第4步：用户从 filelistbox 选择文件和点击播放按钮。
第5步：用户按一下就停止，以停止播放和退出按钮，以结束该应用程序。
Private Sub Form_Load()
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
Combo1.Text = "*.wav"
Combo1.AddItem "*.wav"
Combo1.AddItem "*.mid"
Combo1.AddItem "*.avi;*.mpg"
Combo1.AddItem "All files"
End Sub
Private Sub Combo1_Change()
If ListIndex = 0 Then
File1.Pattern = ("*.wav")
ElseIf ListIndex = 1 Then
File1.Pattern = ("*.mid")
ElseIf ListIndex = 2 Then
File1.Pattern = ("*.avi;*.mpg")
Else
Fiel1.Pattern = ("*.*")
End If
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.wav")
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = ("*.mid")
ElseIf Combo1.ListIndex = 2 Then
File1.Pattern = ("*.avi;*.mpg")
Else
File1.Pattern = ("*.*")
End If
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
