圖片瀏覽器課程設(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)題的解決 使用Loadp

2、icture方法在圖片框里加載符合格式要求的圖片。 使用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)鍵源代碼及注釋Private Sub Form_Load()Drive1.Drive = App.PathDir1.Path = App.PathApp 是當(dāng)前的應(yīng)用程序?qū)ο驠ile1.Pattern = *.bmp;*

3、.jpg;*.ico;*.wmf 在 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

4、= 1800StatusBar1.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ù)量和屬性End SubPrivate Sub Dir1_Change()File1.Path = Dir1.P

5、athEnd subPrivate Sub HScroll1_Change()Picture1.ClsMax = 200Min = 1 設(shè)定滾動(dòng)條的最大、最小值。Value = 200smallchang = 1largechang = 1 設(shè)定 Value 值的改變量。Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width * HScroll1.Value / 100, _Picture1.Height * HScroll1.Value / 100, 0, 0, _Picture2.Width, Picture2.Heigh

6、t 使用滾動(dòng)條縮放圖片End SubPrivate Sub Picture1_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)X1 = XY1 = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)X2 = XY2 = YX3 = X3 + X2 - X1Y3 = Y3 + Y2 - Y1Picture1.Picture = LoadPicture(t

7、empstring)Picture1.ClsIf HScroll1.Value 100 Then 使用鼠標(biāo)移動(dòng)圖片Picture1.PaintPicture Picture2.Picture, X3, Y3, _Picture1.Width * HScroll1.Value / 100, _Picture1.Height * HScroll1.Value / 100 使用 PaintPicture 方法ElsePicture1.PaintPicture Picture2.Picture, X3, Y3, _Picture1.Width, Picture1.HeightEnd IfEnd Sub

8、Private Sub munfileopen_Click() 菜單欄 打開 CommonDialog1.ShowOpenPicture2.Picture = LoadPicture(CommonDialog1.FileName)Picture1.ClsPicture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightPicture2.Visible = FalseCommonDialog1.Filter pictures|(

9、*.bmp)|*.bmp|pictures|(*.jpg)|*.jpg|pictures|(*.gif)|*.gif|pictures|(*.ico)|*.ico 設(shè)定載入文件的格式munbigger.Enabled = True munsmaller.Enabled = True munback.Enabled = Truemysize = FileLen(CommonDialog1.FileName)Picture2.ScaleMode = 3StatusBar1.Panels(1) = Picture2.ScaleWidth & StatusBar1.Panels(2) = 圖片尺寸 :

10、 & _x & Picture2.ScaleHeight文件大小 : & _Int(mysize / 1024 * 10 + 0.5) / 10 & KBStatusBar1.Panels(3) = 修改日期 : & 2012-6-21 & 14:00End SubPrivate Sub munfileexit_Click() 菜單欄 關(guān)閉 Unload MeEnd SubPrivate Sub munbigger_Click() 菜單欄 放大 Picture1.ClsPicture2.Width = Picture2.Width * 0.8Picture2.Height = Picture2

11、.Height * 0.8Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightEnd SubPrivate Sub munback_Click() 菜單欄 還原 Picture2.Picture = LoadPicture(Dir1.Path & & File1.FileName)Picture1.PaintPicture Picture2.Picture, 0, 0, _Picture1.Width, Picture1.Height, 0, 0, _Picture2.Width, Picture2.HeightPicture2.Visible = FalseEnd Sub四、設(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)圖片功能不能令人滿意。 文件的信息顯示不夠