圖片瀏覽器課程設(shè)計(jì)報(bào)告

1、圖片瀏覽器設(shè)計(jì)報(bào)告學(xué)院土木工程學(xué)院班級(jí)測(cè)繪C111學(xué)號(hào)117544姓名戴健健成績(jī)、設(shè)計(jì)思路1 .要達(dá)到的目的培養(yǎng)學(xué)生綜合利用VB語(yǔ)言進(jìn)行程序設(shè)計(jì)的能力，主要是利用VB的標(biāo)準(zhǔn)控件進(jìn)行設(shè)計(jì)。能夠打開常見類型的圖片，自動(dòng)進(jìn)行縮放，適應(yīng)PictureBox的大小。在FileListBox中只列出圖片文件。使用StatusBar控件狀態(tài)條顯示圖片文件相關(guān)信息，包括圖片尺寸（單位：象素卜文件大小和日期等。使用HscrollBar控件對(duì)圖片進(jìn)行縮放?？梢暂喠黠@示FileListBox中列出圖片文件。當(dāng)圖片放大超過(guò)窗口大小后，可以提供鼠標(biāo)移動(dòng)圖片顯示。2 .關(guān)鍵問(wèn)題的解決使用Loadpicture方法在圖片框

2、里加載符合格式要求的圖片。使用FileListBox方法來(lái)顯示圖片。使用PaintPicture方法和改變滾動(dòng)條的Value屬性，使圖片能夠縮放。使用Timer事件更改FileListBox的ListCount屬性，使圖片能自動(dòng)瀏覽。使用MouseMove事件，在圖片過(guò)大時(shí)，通過(guò)鼠標(biāo)移動(dòng)使圖片顯示。、模塊之間的調(diào)用關(guān)系，或程序流程圖三、部分程序關(guān)鍵源代碼及注釋PrivateSubForm_Load()Drive1.Drive=App.PathDir1.Path=App.Path'App是當(dāng)前的應(yīng)用程序?qū)ο驠ile1.Pattern="*.bmp;*.jpg;*.ico;*.w

3、mf"'在FileListBox中只列出圖片文件。Picture1.AutoSize=TruePicture2.AutoSize=True'設(shè)定自動(dòng)縮放，適應(yīng)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'設(shè)定StatusBar的數(shù)量和屬性EndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndsubPrivateSubHScroll1

5、_Change()Picture1.ClsMax=200Min=1'設(shè)定滾動(dòng)條的最大、最小值。Value=200smallchang=1largechang=1'設(shè)定Value值的改變量。Picture1.PaintPicturePicture2.Picture,0,0,_Picture1.Width*HScroll1.Value/100,_Picture1.Height*HScroll1.Value/100,0,0,_Picture2.Width,Picture2.Height'使用滾動(dòng)條縮放圖片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'使用鼠標(biāo)移動(dòng)圖片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'設(shè)定載入文件的格式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()'菜單欄"關(guān)閉"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四、設(shè)計(jì)方案的完善及目前存在的問(wèn)題1 設(shè)計(jì)方案要完善的地方增加根據(jù)圖片的長(zhǎng)寬比改變PictrueBox的長(zhǎng)寬比。增加改變窗口大小，窗口上的圖片也要做相應(yīng)的調(diào)整。完善菜單欄的“打開”功能和鼠標(biāo)拖動(dòng)圖片功能。2 .目前存在的問(wèn)題菜單欄的“打開”功能不夠完善。單擊鼠標(biāo)拖動(dòng)圖片功能不能令人滿意。文件的信