一、 前言
在日常的工作或学习中，像一些常用的工具是必不可少的。比如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 |
下一页 |
预览下一页图片 |
| Picture1 |
PictureBox |
|
用来装入预览控件组的容器控件 |
| Image1(0) |
Image |
|
显示图片控件 |
| Drive1 |
DriveListBox |
|
显示当前系统的磁盘列表 |
| Dir1 |
DirListBox |
|
显示当前磁盘的目录列表 |
| File1 |
FileListBox |
|
显示当前目录的图片格式文件列表 |
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
[1] [2] [3] [4] 下一页
 【责编:Youping】 |
|
|
|
