图片浏览器课程设计报告

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

2、里加载符合格式要求的图片。使用FileListBox方法来显示图片。使用PaintPicture方法和改变滚动条的Value属性，使图片能够缩放。使用Timer事件更改FileListBox的ListCount属性，使图片能自动浏览。使用MouseMove事件，在图片过大时，通过鼠标移动使图片显示。、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释PrivateSubForm_Load()Drive1.Drive=App.PathDir1.Path=App.Path'App是当前的应用程序对象File1.Pattern="*.bmp;*.jpg;*.ico;*.w

3、mf"'在FileListBox中只列出图片文件。Picture1.AutoSize=TruePicture2.AutoSize=True'设定自动缩放，适应PictureBox的大小。StatusBar1.Panels.AddStatusBar1.Panels.AddStatusBar1.Panels.AddStatusBar1.Panels.Item(1).MinWidth=2000StatusBar1.Panels.Item(1).Alignment=sbrCenterStatusBar1.Panels.Item(2).MinWidth=1800StatusBa

4、r1.Panels.Item(2).Alignment=sbrCenterStatusBar1.Panels.Item(3).MinWidth=2400StatusBar1.Panels.Item(3).Alignment=sbrCenterStatusBar1.Panels.Item(4).MinWidth=3000StatusBar1.Panels.Item(4).Alignment=sbrCenter'设定StatusBar的数量和属性EndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndsubPrivateSubHScroll1

5、_Change()Picture1.ClsMax=200Min=1'设定滚动条的最大、最小值。Value=200smallchang=1largechang=1'设定Value值的改变量。Picture1.PaintPicturePicture2.Picture,0,0,_Picture1.Width*HScroll1.Value/100,_Picture1.Height*HScroll1.Value/100,0,0,_Picture2.Width,Picture2.Height'使用滚动条缩放图片EndSubPrivateSubPicture1_MouseDown(B

6、uttonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)X1=XY 1=YEndSubPrivateSubPicture1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)X2=XY 2=YX3=X3+X2-X1Y 3=Y3+Y2-Y1Picture1.Picture=LoadPicture(tempstring)Picture1.ClsIfHScroll1.Value<>100Then'使用鼠标移动图片Picture1.PaintPicturePicture

7、2.Picture,X3,Y3,_Picture1.Width*HScroll1.Value/100,_Picture1.Height*HScroll1.Value/100'使用PaintPicture方法ElsePicture1.PaintPicturePicture2.Picture,X3,Y3,_Picture1.Width,Picture1.HeightEndIfEndSubPrivateSubmunfileopen_Click()'菜单栏"打开"CommonDialog1.ShowOpenPicture2.Picture=LoadPicture(C

8、ommonDialog1.FileName)Picture1.ClsPicture1.PaintPicturePicture2.Picture,0,0,_Picture1.Width,Picture1.Height,0,0,_Picture2.Width,Picture2.HeightPicture2.Visible=FalseCommonDialog1.Filter"pictures|(*.bmp)|*.bmp|pictures|(*.jpg)|*.jpg|pictures|(*.gif)|*.gif|pictures|(*.ico)|*.ico'设定载入文件的格式munb

9、igger.Enabled=Truemunsmaller.Enabled=Truemunback.Enabled=Truemysize=FileLen(CommonDialog1.FileName)Picture2.ScaleMode=3StatusBar1.Panels(1)="Picture2.ScaleWidth&StatusBar1.Panels(2)="图片尺寸:"&_"&Picture2.ScaleHeight文件大小:"&_Int(mysize/1024*10+0.5)/10&"K

10、B"StatusBar1.Panels(3)="修改日期:"&"2012-6-21"&"14:00"EndSubPrivateSubmunfileexit_Click()'菜单栏"关闭"UnloadMeEndSubPrivateSubmunbigger_Click()'菜单栏"放大"Picture1.ClsPicture2.Width=Picture2.Width*0.8Picture2.Height=Picture2.Height*0.8Picture

11、1.PaintPicturePicture2.Picture,0,0,_Picture1.Width,Picture1.Height,0,0,_Picture2.Width,Picture2.HeightEndSubPrivateSubmunback_Click()'菜单栏"还原"Picture2.Picture=LoadPicture(Dir1.Path&""&File1.FileName)Picture1.PaintPicturePicture2.Picture,0,0,_Picture1.Width,Picture1.Height,0,0,_Picture2.Width,Picture2.HeightPicture2.Visible=FalseEndSub四、设计方案的完善及目前存在的问题1 设计方案要完善的地方增加根据图片的长宽比改变PictrueBox的长宽比。增加改变窗口大小，窗口上的图片也要做相应的调整。完善菜单栏的“打开”功能和鼠标拖动图片功能。2 .目前存在的问题菜单栏的“打开”功能不够完善。单击鼠标拖动图片功能不能令人满意。文件的信