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

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

2、 使用Loadpicture方法在圖片框里加載符合格式要求的圖片。 使用FileListBox方法來顯示圖片 使用PaintPicture 方法和改變滾動條的 Value屬性，使圖片能夠縮放 使用Timer事件更改FileListBox 的ListCount屬性，使圖片能自動瀏覽 使用MouseMove事件，在圖片過大時(shí)，通過鼠標(biāo)移動使圖片顯示。 二、模塊之間的調(diào)用關(guān)系，或程序流程圖 Dir1. Path = App.Path App 是當(dāng)前的應(yīng)用程序?qū)ο?File1.Pattern = *.bmp;*.jpg;*.ico;*.wmf 在FileListBox 中只列出圖片文件。 Pictur

3、e1.AutoSize = True Picture2.AutoSize = True 設(shè)定自動縮放，適應(yīng) PictureBox 的大小 設(shè)定StatusBar的數(shù)量和屬性 End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End sub Private Sub HScroll1_Change() Picture1.Cls Max = 200 Min = 1 設(shè)定滾動條的最大、最小值。 Value = 200 smallchang = 1 largechang = 1 設(shè)定 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 使用鼠標(biāo)移動圖片 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 設(shè)定載入文件的格式 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、菜單欄 關(guān)閉 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 四、設(shè)計(jì)方案的完善及目前存在的問題 1設(shè)計(jì)方案要完善的地方 增加根據(jù)圖片的長寬比改變 PictrueBox 的長寬比。 增加改變窗口大小，窗口上的圖片也要做相應(yīng)的調(diào)整。 完善菜單欄的“打開”功能和鼠標(biāo)拖動圖片功能。 2. 目前存在的問題 菜單欄的“打開”功能不夠完善。 單擊鼠標(biāo)拖動圖片功能不能令人滿意 文件的信息顯示不夠全面 五、本次設(shè)計(jì)的收獲及心得體會 在打好基礎(chǔ)的前