第22课: 设计多媒体应用程序-第4部分

在第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 
 
 
Private Sub File1_Click()  
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 
 
If Right(File1.Path, 1) <> "\" Then 
filenam = File1.Path + "\" + File1.FileName  
Else 
filenam = File1.Path + File1.FileName  
End If 
Text1.Text = filenam  
 
End Sub 
 
Private Sub play_Click()  
MMPlayer.FileName = Text1.Text  
MMPlayer.Command = "Open" 
MMPlayer.Command = "Play" 
MMPlayer.hWndDisplay = videoscreen.hWnd  
End Sub 
 
 
Private Sub stop_Click()  
If MMPlayer.Mode = 524 Then Exit Sub 
If MMPlayer.Mode <> 525 Then 
MMPlayer.Wait = True 
MMPlayer.Command = "Stop" 
End If 
MMPlayer.Wait = True 
MMPlayer.Command = "Close" 
End Sub