用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
0条评论