VB课程设-14_053386.doc

此文档收集于网络，如有侵权，请联系网站删除图片浏览设计报告学院 机械学院 班级 机设C052 学号 053386 姓名 张军 成绩 一、设计思路1.要达到的目的 培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。2.关键问题的解决能够打开常见类型的图片，自动进行缩放，适应PictureBox的大小在FileListBox中只列出图片文件使用HscrollBar控件对图片进行缩放。使用StatusBar 控件状态条显示图片文件相关信息，包括图片尺寸(单位：象素)、文件大小和日期等。可以轮流显示FileListBox中列出图片文件。二、模块之间的调用关系，或程序流程图form1调用Drive1list调用dirlist调用filelist调用picturebox三、部分程序关键源代码及注释Private Sub CmdRoll_Click() 水平翻转图片 If Picture1.Picture = 0 Then 先加载图片 MsgBox (请先加载图片) Else Picture2.Cls Picture2.PaintPicture Picture1.Picture, Picture2.Width, _ 0, -Picture2.Width, Picture2.HeightEnd IfEnd SubPrivate Sub Dir1_Change() File1.Path = Me.Dir1.Path 当目录发生改变时使File1也随之改变 以便显示该目录中的文件End SubPrivate Sub Drive1_Change() 当驱动器发生改变时使Dir1与其保持一致On Error GoTo IFerr 拦截错误Dir1.Path = Drive1.DriveExit SubIFerr: 如果磁盘错误 MsgBox 请确认驱动器是否准备好或者磁盘已经不可用!, _ vbOKOnly + vbExclamation Drive1.Drive = Dir1.Path 忽略驱动器改变 Exit SubEnd SubPrivate 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 SubPrivate Sub Form_Load() File1.Pattern = *.jpg;*.bmp;*.gif 只加载jpg，bmp,gif三种格式的文件End SubPrivate Sub HScroll1_Change()Dim temp As SingleDim w As SingleDim h As SingleDim p As Singlep = Picture1.Height / Picture1.Width 保持图片纵横比不变 并进行缩放If HScroll1.Value 10.0000001 ThenPicture2.Cls temp = HScroll1.Value * 0.1 Picture2.Width = 5600 * temp Picture2.Height = 5600 * p * temp Picture2.PaintPicture Picture1.Picture, 0, 0, 5600 * temp, 5600 * p * temp, _ 0, 0, Picture1.Width, Picture1.Height Else temp = HScroll1.Value Picture2.Width = 5600 Picture2.Height = 4200 w = Picture1.Width / (temp - 10) h = Picture1.Height / (temp - 10) Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, _ 0, 0, w, h End IfEnd SubPrivate Sub open_Click()CommonDialog1.InitDir = d: 定义 初始路径CommonDialog1.Filter = jpg file(*.jpg)|*.jpg|bmp file(*.bmp)|*.bmp 限制文件类型On Error GoTo usercancle 如果用户取消操作 则 退出对话CommonDialog1.ShowOpenPicture1.Picture = LoadPicture(CommonDialog1.FileName)Picture1.Visible = False Picture2.Width = 5600 按4：3加载图片 Picture2.Height = 4200 Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height, _ 0, 0, Picture1.Width, Picture1.Heightusercancle:End SubPrivate Sub play_Click() Dim m As Integer m = File1.ListIndex For m = 1 To File1.ListCount Timer1.Enabled = True m = m + 1 File1.Selected(m) = True Timer1.Enabled = False NextEnd SubPrivate Sub stop_Click()Timer1.Enabled = FalseEnd SubPrivate Sub 关于软件_Click()MsgBox (机设C052班 张军 QQ 154591269 )End SubPrivate Sub 退出_Click()Unload MeEnd Sub四、设计方案的完善及目前存在的问题1设计方案要完善的地方菜单控制保持图片原始纵横比例加载自动播放2. 目前存在的问题自动播放有点问题五、本次设计的收获及心得体会编程需要缜密的逻辑思维，和坚持不懈的毅力通过此次课程设计