Visual Basic多媒體播放器

在第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

第22課: 多媒體播放器