Lesson 22: Creating Multimedia Applications-Part IV: A Multimedia Player

<Previous Lesson> <<Home>>< Next Lesson>

In lesson 20, you have learned how to create an audio player. Now, by making some modifications, you can transform the audio player into a multimedia player. This player will be able to search for all types of movie files and audio files in your drives and play them.

In this project, you need to insert a ComboBox, a DriveListBox, a DirListBox, a TextBox ,a FileListBox  and a picture box (for playing movie) into your form.We shall briefly discuss the function of each of the above controls. Besides, you must also insert Microsoft Multimedia Control(MMControl) into your form , you may make it visible or invisible. In our program, we make it invisible and insert a few command buttons and use them control the player.

  • ComboBox- to display and enable selection of different type of files.
  • DriveListBox- to allow selection selection of different drives available on your PC.
  • DirListBox - To display directories
  • TextBox - To display selected files
  • FileListBox- To display files that are available


Step 1: User chooses the type of files he wants to play.

Step2:User selects the drive that might contains the relevant audio files.

Step 3:User looks into directories and subdirectories for the files specified in step1. The files should be displayed in the  FileListBox.

Step 4:  User selects the files from the FileListBox and clicks the Play button.

Step 5: User clicks on the Stop button to stop playing and Exit button to end the application.


The Interface

 

The Code

Private Sub Form_Load()
'To fix the player size
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()
'To select types of media files
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() 'To search the directories or folders for the media files 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() 'To Change Drives Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() 'To load the selected file 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


Bookmark and Share

<Previous Lesson> <<Home>>< Next Lesson>

Copyright ® 2008 Dr.Liew Voon Kiong . All rights reserved |Contact [Privacy Policy]

>