用VisualBasic轻松实现看图软件

一.导言

在日常工作或学习中，像一些常用的工具是必不可少的。比如ACDsee，WinRAR等等。其实在VB中可以轻松实现一些类似ACDsee的基本图片查看功能。用自己的看图软件不是很棒吗？！好了，言归正传，现在开始写吧！

二、分析与实施

在写之前，先想想一些重要的实现函数。了解原理，做其他类似的程序，应该很熟悉。

1)过滤掉图片格式(gif、jpg、bmp、ico等)的文件。)在选定的目录中。功能:

VB中的DriveListBox，DirListBox，FileListBox控件的组合可以很容易的实现以上功能。将FileListBox的Pattern属性设置为*。jpg*.bmp*.ico*.可以使用gif，这样在FileListBox中只显示与Pattern属性设置的扩展名对应的图像文件。

2)分页显示当前目录下的图片:

关于显示图片的控件，其实用VB自带的图像控件就可以了。对于如何实现分页的问题，需要根据用户自定义的显示图片数/页(本程序定义为25张图片/页)动态生成图像控件组，然后以缩放预览的形式显示目录中的图片。具体实现见下面的代码。

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

a)主窗体设计

主窗体布局采用流行的T型框架，顶部是菜单和常用工具栏，左侧是目录结构树，右侧是图片显示区(图片预览区)，底部是状态栏，显示简单的图片信息。下表列出了一些使用的控件:

控件名称控件类型标题说明
命令1(1)命令按钮上一张预览上一张图片
命令1(0)命令按钮下一张预览下一张图片
图片1用于加载预览控件组的PictureBox容器控件
图片1(0)图像显示图片控件
Drive1 DriveListBox显示当前系统的磁盘列表
Dir1 DirListBox显示当前磁盘的目录列表
File1 FileListBox显示列表

b)代码实现

用下面的代码连接驱动器列表控件、目录列表控件和文件列表控件。

私有Sub Dir1_Change()
File1。Path = Dir1。Path
End Sub

私有子Drive1_Change()
Dir1。Path = Drive1。Drive
调用InitShowPic
End Sub

private subfile 1 _ path change()'在文件列表更改时再次显示图片
调用init showpic
end sub