圖片瀏覽器課程設(shè)計報告

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：6 大?。?1.00KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩5頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　圖片瀏覽器設(shè)計報告　　一、設(shè)計思路　　1.要達到的目的　?、倥囵B(yǎng)學(xué)生綜合利用VB語言進行程序設(shè)計的能力，主要是利用VB的標(biāo)準(zhǔn)控件進行設(shè)計。

2、;　?、谀軌虼蜷_常見類型的圖片，自動進行縮放，適應(yīng)PictureBox的大小。　?、墼贔ileListBox中只列出圖片文件。　?、苁褂肧tatusBar 控件狀態(tài)條顯示圖片文件相關(guān)信息，包括圖片尺寸(單位：象素)、文件大小和日期等。　?、菔褂肏scrollBar控件對圖片進行縮放。<

3、;p>　?、菘梢暂喠黠@示FileListBox中列出圖片文件。　?、蕻?dāng)圖片放大超過窗口大小后，可以提供鼠標(biāo)移動圖片顯示。　　2.關(guān)鍵問題的解決　?、偈褂肔oadpicture方法在圖片框里加載符合格式要求的圖片。　?、谑褂肍il

4、eListBox方法來顯示圖片。　?、凼褂肞aintPicture方法和改變滾動條的Value屬性，使圖片能夠縮放。　　④使用Timer事件更改FileListBox的ListCount屬性，使圖片能自動瀏覽。　?、菔褂肕ouseMove事件，在圖片過大時，通過鼠標(biāo)移動使圖片顯示。<

5、p>　　二、模塊之間的調(diào)用關(guān)系，或程序流程圖　　三、部分程序關(guān)鍵源代碼及注釋　　Private Sub Form_Load()　　Drive1.Drive = App.Path　　Dir1.Path = App.Path

6、 'App 是當(dāng)前的應(yīng)用程序?qū)ο?lt;/p>　　File1.Pattern = "*.bmp;*.jpg;*.ico;*.wmf" '在FileListBox中只列出圖片文件。　　Picture1.AutoSize = True　　Picture2.A

7、utoSize = True '設(shè)定自動縮放，適應(yīng)PictureBox的大小。　　StatusBar1.Panels.Add　　StatusBar1.Panels.Add　　StatusBar1.Panels.Add&l

8、t;p>　　StatusBar1.Panels.Item(1).MinWidth = 2000　　StatusBar1.Panels.Item(1).Alignment = sbrCenter　　StatusBar1.Panels.Item(2).MinWidth = 1800　　StatusBar1.Pa

9、nels.Item(2).Alignment = sbrCenter　　StatusBar1.Panels.Item(3).MinWidth = 2400　　StatusBar1.Panels.Item(3).Alignment = sbrCenter　　StatusBar1.Panels.Item(4).Min

10、Width = 3000　　StatusBar1.Panels.Item(4).Alignment = sbrCenter '設(shè)定StatusBar的數(shù)量和屬性　　End Sub　　Private Sub Drive1_Change()</

11、p>　　On Error Resume Next　　Dir1.Refresh　　Dir1.Path = Drive1.Drive　　If Err.Number = 68 Then　　Err.Clear<

12、;/p>　　MsgBox "請您先將光盤插入，謝謝。 ", , "提示"　　Exit Sub　　End If '設(shè)定錯誤提示<

13、/p>　　End Sub 　　Private Sub Dir1_Change()　　File1.Path = Dir1.Path　　End Sub　　Private S

14、ub File1_Click()　　If Right(File1.Path, 1) <> "\" Then　　tempstring = File1.Path & "\" & File1.FileName '非根目錄時，路徑中的最后加上一個反斜杠"\&quo

15、t;　　Else　　tempstring = File1.Path & "\" & File1.FileName　　End If '裝入選定的文件。　　Picture1.En

16、abled = True　　Picture2.Picture = LoadPicture(tempstring)　　Picture1.PaintPicture Picture2.Picture _　　, 0, 0, Picture1.Width, Picture1.Height, _<

17、;p>　　0, 0, Picture2.Width, Picture2.Height '設(shè)定圖片的初始狀態(tài)。　　Picture2.Visible = False　　mysize = FileLen(Dir1.Path & "\" & File1.FileName)

18、　　Picture2.ScaleMode = 3　　StatusBar1.Panels(1) = "圖片尺寸:" & _　　Picture2.ScaleWidth & "×" & Picture2.ScaleHeight

19、　　StatusBar1.Panels(2) = "文件大小:" & _　　Int(mysize / 1024 * 10 + 0.5) / 10 & "KB"　　StatusBar1.Panels(3) = "修改日期:" & "2006-

20、09-15 " & "09:00"　　StatusBar1.Panels.Item(4) = "攝影機的型號:NiKon Coolpix 7600" '設(shè)定圖片信息的提取　　End Sub　　Privat

21、e Sub Command1_Click()　　If Command1.Caption = "自動瀏覽" Then　　Timer1.Enabled = True　　Command1.Caption = "停止瀏覽"

22、　　Else　　Timer1.Enabled = False　　Command1.Caption = "自動瀏覽"　　End If '設(shè)定自動瀏覽

23、　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private

24、 Sub Timer1_Timer()　　X = File1.ListIndex　　X = X + 1　　If X < File1.ListCount Then　　File1.Selected(X) = True</p&g

25、t;　　Call File1_Click　　Else　　File1.ListIndex = 0　　End If '設(shè)定timer事件來自動瀏覽圖片&

26、lt;/p>　　End Sub　　Private Sub Form_QueryUnload(Cancel As Integer, _　　UnloadMode As Integer)　　Title = MsgBox("您確定要退出嗎?&qu

27、ot;, vbYesNoCancel, "提示")　　If Title <> 6 Then　　Cancel = True　　End If　　If Title = 6 Then&l

28、t;p>　　MsgBox "謝謝您的使用,歡迎再次使用。 ", , "圖片瀏覽器"　　End If　　End Sub　　Private Sub HScroll1_Change()&l

29、t;/p>　　Picture1.Cls　　Max = 200　　Min = 1 '設(shè)定滾動條的最大、最小值。　　Value = 200</

30、p>　　smallchang = 1　　largechang = 1 '設(shè)定Value值的改變量。　　Picture1.PaintPicture Picture2.Picture, 0, 0, _<p&g

31、t;　　Picture1.Width * HScroll1.Value / 100, _　　Picture1.Height * HScroll1.Value / 100, 0, 0, _　　Picture2.Width, Picture2.Height '使用滾動條縮放圖片</p&g

32、t;　　End Sub　　Private Sub Picture1_MouseDown(Button As Integer, _　　Shift As Integer, X As Single, Y As Single)　　X1 = X&

33、lt;/b>　　Y1 = Y　　End Sub　　Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

34、　　X2 = X　　Y2 = Y　　X3 = X3 + X2 - X1　　Y3 = Y3 + Y2 - Y1　　Picture1.Picture = Lo

35、adPicture(tempstring)　　Picture1.Cls　　If HScroll1.Value <> 100 Then '使用鼠標(biāo)移動圖片　　Picture1.PaintPicture Pictur

36、e2.Picture, X3, Y3, _　　Picture1.Width * HScroll1.Value / 100, _　　Picture1.Height * HScroll1.Value / 100 '使用PaintPicture方法&

37、lt;b>　　Else　　Picture1.PaintPicture Picture2.Picture, X3, Y3, _　　Picture1.Width, Picture1.Height　　End If&

38、lt;b>　　End Sub　　Private Sub munfileopen_Click() '菜單欄"打開"　　CommonDialog1.ShowOpen　　Pictur

39、e2.Picture = LoadPicture(CommonDialog1.FileName)　　Picture1.Cls　　Picture1.PaintPicture Picture2.Picture, 0, 0, _　　Picture1.Width, Picture1.Height, 0, 0, _<

40、/p>　　Picture2.Width, Picture2.Height　　Picture2.Visible = False　　CommonDialog1.Filter= pictures|(*.bmp)|*.bmp|pictures|(*.jpg)|*.jpg|pictures|(*.gif)|*.gif|pictures|

41、(*.ico)|*.ico" '設(shè)定載入文件的格式　　munbigger.Enabled = True　　munsmaller.Enabled = True　　munback.Enabled = True　　mysize = FileLen(Comm

42、onDialog1.FileName)　　Picture2.ScaleMode = 3　　StatusBar1.Panels(1) = "圖片尺寸:" & _　　Picture2.ScaleWidth & "×" & Picture2.Sc

43、aleHeight　　StatusBar1.Panels(2) = "文件大小:" & _　　Int(mysize / 1024 * 10 + 0.5) / 10 & "KB"　　StatusBar1.Panels(3) = "修改日期:"

44、; & "2006-09-15 " & "09:00"　　StatusBar1.Panels.Item(4) = "攝影機的型號:NiKon Coolpix 7600" '設(shè)定圖片信息的提取　　End Sub<

45、;/p>　　Private Sub munfileexit_Click() '菜單欄"關(guān)閉"　　Unload Me　　End Sub<

46、/p>　　Private Sub munbigger_Click() '菜單欄"放大"　　Picture1.Cls　　Picture2.Width = Picture2.Width * 0.8

47、　　Picture2.Height = Picture2.Height * 0.8　　Picture1.PaintPicture Picture2.Picture, 0, 0, _　　Picture1.Width, Picture1.Height, 0, 0, _　　Picture2.Widt

48、h, Picture2.Height　　End Sub　　Private Sub munsmaller_Click() '菜單欄"縮小"　　Picture1.Cl

49、s　　Picture2.Width = Picture2.Width * 1.5　　Picture2.Height = Picture2.Height * 1.5　　Picture1.PaintPicture Picture2.Picture, 0, 0, _　　Pict

50、ure1.Width, Picture1.Height, 0, 0, _　　Picture2.Width, Picture2.Height　　End Sub　　Private Sub munback_Click()

51、 '菜單欄"還原"　　Picture2.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)　　Picture1.PaintPicture Picture2.Picture, 0, 0, _</p&

52、gt;　　Picture1.Width, Picture1.Height, 0, 0, _　　Picture2.Width, Picture2.Height　　Picture2.Visible = False　　End Sub&l

53、t;p>　　四、設(shè)計方案的完善及目前存在的問題　　1．設(shè)計方案要完善的地方　?、僭黾痈鶕?jù)圖片的長寬比改變PictrueBox的長寬比。　?、谠黾痈淖兇翱诖笮?，窗口上的圖片也要做相應(yīng)的調(diào)整。　?、弁晟撇藛螜诘摹按蜷_”功能和鼠標(biāo)拖動圖片功能。&l

54、t;p>　　2. 目前存在的問題　　①菜單欄的“打開”功能不夠完善。　?、趩螕羰髽?biāo)拖動圖片功能不能令人滿意。　　③文件的信息顯示不夠全面。　　五、本次設(shè)計的收獲及心得體會　?、僭诖蚝没A(chǔ)的前提下，努力拓寬自己的知識面。<

55、;/p>　?、谠黾泳毩?xí)的時間，把基礎(chǔ)做扎實。　　六、對該題目和VB設(shè)計的意見和建議　　1. 對該題目的意見和建議　?、僭黾訉D片文件的簡單的編輯功能。如縮放、裁減、添加文本框等。　?、谠跒g覽功能方面，增加全屏瀏覽、旋轉(zhuǎn)等功能。

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

圖片瀏覽器課程設(shè)計報告

文檔簡介

溫馨提示

最新文檔

評論

圖片瀏覽器課程設(shè)計報告

文檔簡介

溫馨提示

最新文檔

評論

免費下載