图片浏览器课程设计报告

1、图片浏览器设计报告 学院 土木工程学院班级 测绘C111学号117544 姓名 戴健健成绩 一、设计思路 1. 要达到的目的 培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进 行设计。 能够打幵常见类型的图片，自动进行缩放，适应PictureBox的大小。 在FileListBox中只列出图片文件。 使用StatusBar控件状态条显示图片文件相关信息，包括图片尺寸（单位：象 素）、文件大小和日期等。 使用HscrollBar控件对图片进行缩放。 可以轮流显示FileListBox中列出图片文件。 当图片放大超过窗口大小后，可以提供鼠标移动图片显示。 2. 关键问题的解决

2、 使用Loadpicture方法在图片框里加载符合格式要求的图片。 使用FileListBox方法来显示图片 使用PaintPicture 方法和改变滚动条的 Value属性，使图片能够缩放 使用Timer事件更改FileListBox 的ListCount属性，使图片能自动浏览 使用MouseMove事件，在图片过大时，通过鼠标移动使图片显示。 二、模块之间的调用关系，或程序流程图 Dir1. Path = App.Path App 是当前的应用程序对象 File1.Pattern = *.bmp;*.jpg;*.ico;*.wmf 在FileListBox 中只列出图片文件。 Pictur

3、e1.AutoSize = True Picture2.AutoSize = True 设定自动缩放，适应 PictureBox 的大小 设定StatusBar的数量和属性 End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End sub Private Sub HScroll1_Change() Picture1.Cls Max = 200 Min = 1 设定滚动条的最大、最小值。 Value = 200 smallchang = 1 largechang = 1 设定 Value 值的改变量。 Picture1.PaintP

4、icture Picture2.Picture, 0, 0, Picture1.Width * HScroll1.Value / 100, _ Picture1.Height * HScroll1.Value / 100, 0, 0, _ Picture2.Picture = LoadPicture(CommonDialog1.FileName) Picture1.Cls Picture2.Width, Picture2.Height 使用滚动条缩放图片 End Sub Private Sub Picture1_MouseDown(Button As Integer, _ Shift As I

5、nteger, X As Single, Y As Single) X1 = X Y1 = Y End Sub X As Single, Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, Y As Single) X2 = X Y2 = Y X3 = X3 + X2 - X1 Y3 = Y3 + Y2 - Y1 If HScroll1.Value 100 Then 使用鼠标移动图片 Picture1.PaintPicture Picture2.Picture, X3, Y3, _ Picture1.Width *

6、 HScroll1.Value / 100, _ Picture1.Height * HScroll1.Value / 100 使用 PaintPicture 方法 Else Picture1.PaintPicture Picture2.Picture, X3, Y3, _ Picture1.Width, Picture1.Height End If End Sub Private Sub munfileopen_Click() 菜单栏 打开 CommonDialog1.ShowOpen Picture1.PaintPicture Picture2.Picture, 0, 0, Picture

7、1.Width, Picture1.Height, 0, 0, _ Picture2.Width, Picture2.Height Picture2.Visible = False CommonDialog1.Filter = pictures|(*.bmp)|*.bmp|pictures|(*.jpg)|*.jpg|pictures|(*.gif)|*.gif|pi ctures|(*.ico)|*.ico 设定载入文件的格式 munbigger.Enabled = True munsmaller.Enabled = True munback.Enabled = True mysize =

8、FileLen(CommonDialog1.FileName) Picture2.ScaleMode = 3 StatusBar1.Panels(1) = Picture2.ScaleWidth & StatusBar1.Panels(2) = 图片尺寸 : & _ x & Picture2.ScaleHeight 文件大小 : & _ Int(mysize / 1024 * 10 + 0.5) / 10 & KB StatusBar1.Panels(3) = 修改日期 : & 2012-6-21 & 14:00 End Sub Private Sub munfileexit_Click()

9、菜单栏 关闭 Unload Me End Sub Private Sub munbigger_Click() 菜单栏 放大 Picture1.Cls Picture2.Width = Picture2.Width * 0.8 Picture2.Height = Picture2.Height * 0.8 Picture1.PaintPicture Picture2.Picture, 0, 0, _ Picture1.Width, Picture1.Height, 0, 0, _ End Sub Picture2.Width, Picture2.Height Private Sub munbac

10、k_Click() 菜单栏 还原 Picture2.Picture = LoadPicture(Dir1.Path & & File1.FileName) Picture1.PaintPicture Picture2.Picture, 0, 0, _ Picture1.Width, Picture1.Height, 0, 0, _ Picture2.Width, Picture2.Height Picture2.Visible = False End Sub 四、设计方案的完善及目前存在的问题 1设计方案要完善的地方 增加根据图片的长宽比改变 PictrueBox 的长宽比。 增加改变窗口大小，窗口上的图片也要做相应的调整。 完善菜单栏的“打开”功能和鼠标拖动图片功能。 2. 目前存在的问题 菜单栏的“打开”功能不够完善。 单击鼠标拖动图片功能不能令人满意 文件的信息显示不够全面 五、本次设计的收获及心得体会 在打好基础的前