《简易图片浏览软件设计.docVIP

简易图片浏览软件设计 目 录 内容 1选题背景………………………………………………………………………………2 2方案论证………………………………………………………………………………2 3软件设计………………………………………………………………………………3 4程序代码………………………………………………………………………………5 5结果分析………………………………………………………………………………18 6总结……………………………………………………………………………………19 参考文献 ……………………………………………………………………………………20 选题背景 基于Microsoft Visual Basic 6.0环境的图片浏览器。对Microsoft Visual Basic 6.0软件的进一步了解，运用所学知识解决实际问题。 本课题解决的主要问题及技术要求有： 多个图片的添加与编号。 对已打开图片的文件名以及文件路径的记录并与原图片相对应。 已添加图片的单个选择查看。 实现图片的上一张，下一张切换。 可以自动播放已经添加的图片。 对大图片的适应窗口缩放。 图片的任意放大缩小，与放大或缩小以后的图片移动（可以通过鼠标拖动与点击按钮两种方式进行）。 可以将正在查看的图片在windows系统的画图板中打开编辑。 将选择的图片另存为。 方案论证 程序设计原理: 使用菜单栏、工具栏以及按钮操作程序。 使用commondialog控件来添加文件。 使用imagelist控件来对添加的图片标号，记录。 使用数组记录所添加图片的文件名、以及文件路径，并在状态栏显示。 使用picture控件和image控件来显示图片。 使用timer控件控件自动播放的时间。 程序采用方案 图片使用imagelist编号并加载。文件名与路径使用两个字符数组Names（）与Lu()分别记录。 软件设计流程 界面设计→功能设计→程序编写→运行调试 控件对象属性列表 表1 控件属性表 默认名称 Name Caption Enable Command1 Command1 上一个 True Command2 Command2 自动播放 True Command3 Command3 下一个 True Command4 Command4 适应窗口 True Command5 Command5 上移 Enable Command6 Command6 左移 Enable Command7 Command7 下移 Enable Command8 Command8 右移 Enable Command9 Command9 缩小 Enable Command10 Command10 放大 Enable Combo1 Combo1 True Timer1 Timer1 Enable Timer2 Timer2 Enable 菜单栏属性 图3-1 菜单栏“文件” 图3-2 菜单栏“编辑” 图3-3 菜单栏“设置” 图3-4 菜单栏“帮助” 图3-5 菜单栏属性 工具栏属性 图3-6 工具栏 状态栏属性 图3-7 状态栏 程序运行截图 图3-8 程序运行界面 程序设计代码 Public Time As Integer, a As Integer Dim Names(100) As String, Lu(100) As String 定义文件名和文件路径的数组 Public x1 As Single, y1 As Single Public p As Integer Const begin_drag = 1 开始拖动 ************************************************************************* Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) 图片缩小后拖动的重画 Image1.Picture = Source Form1.Image1.Picture = LoadPicture(StatusBar1.Panels(4)) 拖动后重画picture中的图片 Image1.Move (X - x1), (