英文VB教程 简体Visual Basic教程 繁体Visual Basic教程

第二十一课: Visual Basic 图片浏览器



在第20课中,我们已经创建了一个音频播放器。现在我们稍作一些修改,把音频播放器改造成为一个图片浏览器。此浏览器将可以在您的驱动器搜寻所有类型的图形,并将其在图片框中显示出来。

在这个项目中,你需要插入一个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

❮ 上一课 下一课 ❯



版权所有©2008 Dr.Liew Voon Kiong。保留所有权利 。联系我们: VB面子书

[Privacy Policy]