VB课程设-14_053386.docVIP

图片浏览设计报告 学院 机械学院 班级 机设C052 学号 053386 姓名 张军 成绩 一、设计思路 1.要达到的目的 培养学生综合利用语言进行程序设计的能力，主要是。FileListBox中只列出图片文件 ③使用HscrollBar控件对图片进行缩放。 ④使用StatusBar 控件。FileListBox中列出图片文件。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Private Sub CmdRoll_Click() 水平翻转图片 If Picture1.Picture = 0 Then 先加载图片 MsgBox (请先加载图片) Else Picture2.Cls Picture2.PaintPicture Picture1.Picture, Picture2.Width, _ 0, -Picture2.Width, Picture2.Height End If End Sub Private Sub Dir1_Change() File1.Path = Me.Dir1.Path 当目录发生改变时使File1也随之改变 以便显示该目录中的文件 End Sub Private Sub Drive1_Change() 当驱动器发生改变时使Dir1与其保持一致 On Error GoTo IFerr 拦截错误 Dir1.Path = Drive1.Drive Exit Sub IFerr: 如果磁盘错误 MsgBox 请确认驱动器是否准备好或者磁盘已经不可用!, _ vbOKOnly + vbExclamation Drive1.Drive = Dir1.Path 忽略驱动器改变 Exit Sub End Sub Private Sub File1_click() Dim p As Single Picture2.Cls Picture1.Picture = LoadPicture(File1.Path + \ + File1.FileName) 加载图片 p = Picture1.Height / Picture1.Width 判断纵横比 保持图片纵横比 Picture2.Width = 5600 Picture2.Height = 5600 * p Picture2.PaintPicture Picture1.Picture, 0, 0, 5600, 5600 * p, _ 0, 0, Picture1.Width, Picture1.Height HScroll1.Value = 10 赋予初始值 获取图片信息 StatusBar1.Panels(3) = 上次修改时间 FileDateTime(File1.Path + \ + File1.FileName) StatusBar1.Panels(2) = 尺寸： Picture1.ScaleWidth / 15 X Picture1.ScaleHeight / 15 StatusBar1.Panels(1) = 大小 217K Timer1.Enabled = False End Sub Private Sub Form_Load() File1.Pattern = *.jpg;*.bmp;*.gif 只加载jpg，bmp,gif三种格式的文件 End Sub Private Sub HScroll1_Change() Dim temp As Single Dim w As Single Dim h As Single Dim p As Single p = Picture1.Height / Picture1.Width 保持图片纵横比不变 并进行缩放 If HScr