Lesson 21: Creating Multimedia Applications-Part III

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

In lesson 20, we have learn how to create an audio player. In this lesson, we shall create a picture viewer.This viewer will be able to search for all types of image files your drives and displays them in the picture frame.

In this project, you need to insert a ComboBox, a DriveListBox, a DirListBox, a TextBox and a FileListBox into your form. We will briefly explain again the function of each of the above controls.

  • ComboBox- to display and enable selection of different type of files.

  • DriveListBox- to allow selection of different drives available on your PC.

  • DirListBox - To display directories

  • TextBox - To display selected files

  • FileListBox- To display files that are available

Relevant codes must be written to coordinate all the above controls so that the application can work properly. The program should flow in the following logical way:

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

Step2:The user selects the drive that might contains the relevant graphic  files.

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

Step 4: The user selects the files from the FileListBox and click the Show button.

Step 5: The user clicks on  Exit button to end the application.

กก

The Interface

The Code

Private Sub Form_Load()

'To center the player
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height)\2
                                                                       

Combo1.Text = "All graphic files"
Combo1.AddItem "All graphic files"
Combo1.AddItem "All files"

End Sub
กก

Private Sub Combo1_Change()

If ListIndex = 0 Then
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
Else
Fiel1.Pattern = ("*.*")
End If

End Sub

'Specific the types of files to load
Private Sub Dir1_Change()

File1.Path = Dir1.Path
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")

End Sub

'Changing Drives

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub                               ---------> Continue on the right

Private Sub File1_Click()

If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
Else
File1.Pattern = ("*.*")
EnId 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 show_Click()

If Right(File1.Path, 1) <> "\" Then
filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If

'To load the picture into the picture box
picture1.Picture = LoadPicture(filenam)

End Sub

กก Bookmark and Share

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

Copyright ® 2008 Dr.Liew Voon Kiong . All rights reserved |Contact: admin@vbtutor.net

[Privacy Policy]