第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


 

[上一课][返回主页][下一课]

版权所有©2008 Dr.Liew Voon Kiong。保留所有权利。联系我们: vbtutor.net[Privacy Policy]