专题辅导第十八讲 文件系统控件的应用（二）.docVIP

第十八讲 文件系统控件的应用（二） 三、图片浏览器 在Windows的资源管理器中，选择用WEB方式查看文件，当选中图形文件时，左边会显示这个图形文件的内容。如图7所示： 图7 用VB的文件控件、图形框和图像框可以方便的做一个自己的图片浏览器。 任务三：设计一个图形浏览器 任务描述： 设计一个图形浏览器，在文件列表框中显示相应类型的文件，当选中某个文件时，在右边显示相应的图形。如图8所示： 任务分析： 要实现这个任务，只要在前面的文件清单查看器上加上一个图形框控件，并在图形框中动态的加载文件列表框中选中的图形文件即可。 图8 实现步骤： 1．设计界面 在窗体中添加磁盘列表框控件、目录列表框控件、文件列表框控件、标签控件、组合框控件、确认框控件、图形框控件，并排列成如图9所示： 图9 2．设置属性 窗体：设置Caption的属性为“图片浏览器” 组合框：设置text为无，添加list中的内容 *.bmp *.gif;*.jpg *.wmf all 确认框：设置Value为真。 图形框：设置stretch为真。 3．编写程序 （1）如果在文件列表框中选中一个图形文件，在图形框中显示出来。可以用Loadpicture方法动态加载。 Private Sub File1_Click() Image1.Picture = LoadPicture(File1.Path + \ + File1.filename) End Sub （2）对组合框的处理。 当在组合框中输入内容或在组合框中选择文件类型时，应设置文件列表框的相应属性并刷新显示的文件。特别地，当组合框中的当前显示项是all时，应显示*.bmp;*.gif;*.jpg;*.wmf。 在组合框中输入文件类型时： Private Sub Combo1_Change() Filter = Combo1.Text If Filter = all Then Filter = *.bmp;*.gif;*.jpg;*.wmf File1.Pattern = Filter File1.Refresh End Sub 在组合框中选择文件类型时： Private Sub Combo1_Click() Filter = Combo1.Text If Filter = all Then Filter = *.bmp;*.gif;*.jpg;*.wmf File1.Pattern = Filter File1.Refresh End Sub （3）对目录列表框切换的处理。 当切换到一个新的目录时，如果这个目录中有要显示的图形文件，则自动把文件列表框中第一个文件在图形框中显示出来。程序如下： Private Sub Dir1_Change() File1.Path = Dir1.Path If File1.ListCount 0 Then File1.ListIndex = 0 End Sub 文件列表框的ListCount属性返回的是文件列表框中的文件数，用ListIndex=0引用第一个文件。 （4）对图形显示方式的处理 在这个程序中，图形可以用两种方式显示。第一种是让图形适应图形框，另一种是 让图形框适应图形。这两种方式可以用确认框来切换。程序如下： Private Sub Check1_Click() If Check1.Value = 1 Then Image1.Stretch = 1 Else Image1.Stretch = False Image1.Refresh End Sub 用图形框的Refresh属性刷新图形框显示的内容，可以马上使修改的属性生效。 但是，用上面的代码还有一个不足之处：选中“适应窗口大小”并浏览图片，然后不选中“适应窗口大小”并浏览图片，会发现窗口的大小已经变成了前一次显示时图片的大小，并不是设计程序时的浏览框大小了。 原因是当让图形框适应图片大小时，图形框的大小随着图片的大小而变化。所以要在程序启动时把最开始的图形框大小保存起来。 Private Sub Form_Load() beginWidth = Image1.Width beginHeight = Image1.Height End Sub 在上面的程序中把图形框的大小保存在变量beginWidth和beginHeight中。 而在设置了是否让图形适应图形框后，应把图形框设置成最初的大小。 Private Sub Check1_Click() Image1.Width = beginWidth Image1.Height = beginHeight If Check1.Value = 1 Then Image1.Stretch = 1 Else Image