一、 前言

　　在日常的工作或学习中，像一些常用的工具是必不可少的。比如ACDsee，WinRAR等等。其实在VB中就可以很容易地实现像ACDsee这样的一些基本看图功能，用着自己编写的看图软件，感觉是不是非常棒？！好了，言归正传，现在就开始编写吧！

　　二、分析与实现

　　编写之前，首先把一些重要的实现功能思考一下。明白了原理，做其他类似的程序，应该是轻车熟路了。

　　1） 在选择的目录中过滤出图片格式的文件（gif,jpg,bmp,ico等）功能：

　　VB中自带的DriveListBox，DirListBox，FileListBox控件组合就可以轻易的实现上述功能，将FileListBox的Pattern属性设置为*.jpg;*.bmp;*.ico;*.gif即可，这样FileListBox中只显示Pattern属性设定好的扩展名所对应的图片文件。

　　2） 将当前目录下的图片按分页的方式显示功能：

　　关于显示图片的控件问题，其实用VB自带的Image控件就可以了。对于如何实现分页的问题，就需要按照自定义的显示图片数量/页（本程序定义为25张图片/页），动态生成Image控件组，然后将目录中的图片以缩放预览的方式显示出来，具体实现参见后面的代码。

　　以上两个问题解决了，基本功能应该可以实现了。下面就是具体的实现步骤：

　　a） 主窗体设计

　　主窗体布局采用流行的T型框架，上方包括菜单及常用工具栏，左侧显示目录结构树，右侧为显示图片区域（图片预览区），下方为状态栏，用来显示简单的图片信息。下表是用到的部分控件列表：

控件名控件类型标题说明Command1(1)CommandButton上一页预览上一页图片Command1(0)CommandButton下一页预览下一页图片Picture1PictureBox 用来装入预览控件组的容器控件Image1(0)Image 显示图片控件Drive1DriveListBox 显示当前系统的磁盘列表Dir1DirListBox 显示当前磁盘的目录列表File1FileListBox 显示当前目录的图片格式文件列表
　　b） 代码实现

　　通过以下一段代码将驱动器列表控件、目录列表控件、文件列表控件联系起来。

Private Sub Dir1_Change()
　File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
　Dir1.Path = Drive1.Drive
　Call InitShowPic
End Sub


Private Sub File1_PathChange() ‘当文件列表发生变化时重新显示图片
　Call InitShowPic
End Sub