用VisualBasic轻松实现看图软件

时间：2008-04-08 来源：大学生计算机等级考试打印本文

　　一、前言

　　在日常的工作或学习中，像一些常用的工具是必不可少的。比如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 下一页

上一篇：VB6中使用错误处理对程序速度的影响
下一篇：浅谈用VB6.0编写“特洛伊木马”程序

用VisualBasic轻松实现看图软件

时间：2008-04-08 来源：大学生计算机等级考试 打印本文

相关阅读：

时间：2008-04-08 来源：大学生计算机等级考试打印本文