第21课: 设计多媒体应用程序-第3部分

第21课: 设计多媒体应用程序-第3部分
在第20课里，我们已经创建了一个音频播放器。现在，再稍作一些修改，我们把音频播放器改造成为一个图片浏览器。此浏览器将可以在您的驱动器搜索所有类型的图形，并将其显示出来。

类似上一课的项目，在这个项目中，你需要插入一个ComboBox， 一个drivelistbox ， 一个dirlistbox ，一个TextBox, filelistbox 和一个图片框 （picture1)到您的表单里。上述每个控件的功能的说明如下：

ComboBox-展示和选择不同类型的文件。、

drivelistbox -允许您选择电脑里不同的驱动器。

dirlistbox -显示目录

TextBox -显示选定的文件

filelistbox -显示可用的文件

picture1-显示图片
我们所编写的程序代码需要协调上述所有控件，使该程序可以正常工作。该程序需根据以下的步骤来编写：

第1步：用户选择他要查看的文件类型，。
第2步：用户选择可能包含有关的图形文件的驱动器。
第3步：用户查看目录和子目录里面的文件文件。文件应显示在filelistbox例 。
第4步：用户从filelistbox选择该文件和点击显示按钮。
第5步：用户按一下介绍按钮
图片浏览器界面

图片浏览器程序代码
 

Private Sub Form_Load()  
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 
 
 
Private Sub Dir1_Change()  
’转换途径  
File1.Path = Dir1.Path  
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")  
 
 
End Sub 
 
 
‘转换驱动器  
Private Sub Drive1_Change()  
Dir1.Path = Drive1.Drive  
End Sub 
 
 
Private Sub File1_Click()  
 
‘选定文件  
If Combo1.ListIndex = 0 Then 
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")  
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 show_Click()  
 
’显示图片  
If Right(File1.Path, 1) <> "\" Then 
 
filenam = File1.Path + "\" + File1.FileName  
Else 
filenam = File1.Path + File1.FileName  
End If 
 
picture1.Picture = LoadPicture(filenam)  
End Sub