版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、<p><b> VB課程設(shè)計(jì)報(bào)告</b></p><p> 課程設(shè)計(jì)題目:圖片瀏覽器 </p><p><b> 目錄</b></p><p> VB課程設(shè)計(jì)報(bào)告1</p><p><b> 一.內(nèi)容摘要3</b></p><
2、p> 二.功能描述(含流程圖)3</p><p> 2.1 流程圖:3</p><p> 2.2 圖片瀏覽器描述(1)4</p><p> 2.3 圖片瀏覽器描述(2)4</p><p> 2.4 圖片瀏覽器描述(3)4</p><p> 2.5 圖片瀏覽器描述(4)4</p>
3、<p> 2.6 圖片瀏覽器描述(5)4</p><p><b> 三.概要設(shè)計(jì)4</b></p><p> 3.1 電子式圖片瀏覽器4</p><p><b> 四.詳細(xì)設(shè)計(jì)5</b></p><p> 4.1盤符,文件夾和文件列表的確定5</p>
4、<p> 4.2圖片顯示時,盤符,文件夾和文件列表隱藏5</p><p> 4.3 圖片放大的確定5</p><p> 4.4 圖片縮小的確定5</p><p> 4.5圖片轉(zhuǎn)換到上一張的確定6</p><p> 4.6圖片轉(zhuǎn)換到下一張的確定6</p><p> 五.效果及存在問題6&
5、lt;/p><p> 5.1程序的效果:6</p><p> 5.2顯示圖片的情況:8</p><p> 5.3:圖片瀏覽器擴(kuò)大的情況:9</p><p> 5.4圖片瀏覽器縮小的情況:10</p><p> 5.5存在的問題10</p><p><b> 六.實(shí)驗(yàn)心
6、得10</b></p><p><b> 七.參考文獻(xiàn)11</b></p><p> 八.圖片瀏覽器程序的代碼11</p><p><b> 一.內(nèi)容摘要</b></p><p> 本程序是在借鑒了WINDOWS系統(tǒng)自帶的圖片瀏覽器的基礎(chǔ)之上經(jīng)過VB加工和處理而生成的圖片瀏
7、覽器。它具有系統(tǒng)圖片瀏覽器的部分基本功能。而且,和系統(tǒng)中圖片瀏覽器的功能非常相似,使用起來方便靈活,生動直觀。</p><p> 二.功能描述(含流程圖)</p><p><b> 2.1 流程圖:</b></p><p> 圖片瀏覽器程序流程圖</p><p> 2.2 圖片瀏覽器描述(1)</p>
8、<p> 該圖片瀏覽器由五個控件,有盤符,文件夾和文件列表(沒運(yùn)行時是隱藏的,查找圖片之后也是隱藏的),還有一個Image框,布局合理!</p><p> 2.3 圖片瀏覽器描述(2)</p><p> 圖片瀏覽器中的查找圖片控件可以查找文件中的圖片。</p><p> 2.4 圖片瀏覽器描述(3)</p><p>
9、該圖片瀏覽器運(yùn)行之后,盤符,文件夾和文件列表出現(xiàn),查找到圖片之后就會再次隱藏,而圖片就會出現(xiàn)。</p><p> 2.5 圖片瀏覽器描述(4)</p><p> 圖片瀏覽器中的擴(kuò)大和縮小控件按鈕可以控制使圖片可以放大和縮小。</p><p> 2.6 圖片瀏覽器描述(5)</p><p> 圖片瀏覽器中的上一張和下一張的控件可以使圖片
10、可以上下翻動,與系統(tǒng)中的瀏覽器無異!</p><p><b> 三.概要設(shè)計(jì)</b></p><p> 3.1 電子式圖片瀏覽器</p><p> 該程序主要由一個圖片框來顯示系統(tǒng)的圖片。把系統(tǒng)的圖片顯示在圖片上。隨后,電子式圖片瀏覽器完成!</p><p><b> 四.詳細(xì)設(shè)計(jì)</b>&
11、lt;/p><p> 4.1盤符,文件夾和文件列表的確定 代碼如下:</p><p> Private Sub Dir1_Change()</p><p> File1.Path = Dir1.Path</p><p><b> End Sub</b></p><p> Private S
12、ub Drive1_Change()</p><p> Dir1.Path = Drive1.Drive</p><p><b> End Sub</b></p><p> Private Sub File1_Click()</p><p> Image1.Picture = LoadPicture(File1.
13、Path & "\" & File1.FileName)</p><p> Drive1.Visible = False</p><p> Dir1.Visible = False</p><p> File1.Visible = False</p><p><b> End Sub<
14、;/b></p><p> 4.2圖片顯示時,盤符,文件夾和文件列表隱藏 代碼如下:</p><p> Private Sub Form_Load()</p><p> Drive1.Visible = False</p><p> Dir1.Visible = False</p><p> File
15、1.Visible = False</p><p><b> End Sub</b></p><p> 4.3 圖片放大的確定 代碼如下:</p><p> Private Sub Command1_Click()</p><p> Image1.Stretch = True</p><p&
16、gt; Image1.Width = Image1.Width * 2</p><p> Image1.Height = Image1.Height * 2</p><p><b> End Sub</b></p><p> 4.4 圖片縮小的確定 代碼如下:</p><p> Private Sub Com
17、mand2_Click()</p><p> Image1.Stretch = True</p><p> Image1.Width = Image1.Width / 2</p><p> Image1.Height = Image1.Height / 2</p><p><b> End Sub</b><
18、/p><p> 4.5圖片轉(zhuǎn)換到上一張的確定 代碼如下:</p><p> Private Sub Command3_Click()</p><p> n = File1.ListIndex</p><p><b> n = n - 1</b></p><p> If n >= 0
19、Then</p><p> File1.ListIndex = n</p><p> Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n))</p><p><b> End If</b></p><p>&l
20、t;b> End Sub</b></p><p> 4.6圖片轉(zhuǎn)換到下一張的確定 代碼如下:</p><p> Private Sub Command4_Click()</p><p> n = File1.ListIndex</p><p><b> n = n + 1</b></p
21、><p> If n < File1.ListCount Then</p><p> File1.ListIndex = n</p><p> Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n))</p><p><b&g
22、t; End If</b></p><p><b> End Sub</b></p><p> Private Sub Command5_Click()</p><p> Drive1.Visible = True</p><p> Dir1.Visible = True</p>&l
23、t;p> File1.Visible = True</p><p><b> End Sub</b></p><p><b> 五.效果及存在問題</b></p><p><b> 5.1程序的效果:</b></p><p> 該程序運(yùn)行能清楚的顯示圖片。而且,
24、不僅可以改變圖片的大小,且可以切換圖片的上下張。此圖片瀏覽器與系統(tǒng)的圖片瀏覽器非常相似,不會顯示出系統(tǒng)盤符,文件夾和文件的列表! </p><p> 圖片瀏覽器查找圖片的運(yùn)行情況</p><p> 5.2顯示圖片的情況:</p><p><b> 圖片的瀏覽情況</b></p><p> 5.3:圖片瀏覽器擴(kuò)大的
25、情況:</p><p><b> 圖片的放大情況</b></p><p> 5.4圖片瀏覽器縮小的情況:</p><p><b> 圖片的縮小情況</b></p><p><b> 5.5存在的問題:</b></p><p> 該程序雖然與系統(tǒng)
26、的圖片瀏覽器相似,但是,沒有系統(tǒng)圖片瀏覽器那么友好的界面和那么精巧的控件。</p><p><b> 六.實(shí)驗(yàn)心得</b></p><p> 通過幾天的課程實(shí)驗(yàn),使我對于VB課程的實(shí)驗(yàn)和程序設(shè)計(jì)有了更深層次的了解,特別是明白了文件操作和圖片操作的用法,在老師的指導(dǎo)和幫助以及自己的努力下終于完成了程序設(shè)計(jì)課題,實(shí)現(xiàn)了圖片瀏覽器的操作。</p><
27、p> VB的課程設(shè)計(jì),對于我們來說是一個鍛煉,它提升了我們的編程水平。幾天的上機(jī)操作,使我們學(xué)到了更多的VB知識,而且我們在編程期間,學(xué)會了協(xié)作,團(tuán)結(jié),為我們積累了資本??傊@次課程設(shè)計(jì)讓我受益匪淺,我將會繼續(xù)學(xué)習(xí)VB知識,提高水平。</p><p><b> 七.參考文獻(xiàn)</b></p><p> 1.《VB程序設(shè)計(jì)》 莫德舉,夏濤 北京郵電大學(xué)出版
28、社</p><p> 2.《Visual Basic程序設(shè)計(jì)綜合教程》 朱從旭 清華大學(xué)出版社</p><p> 3.《Visual Basic程序設(shè)計(jì)》 趙萬龍 中國鐵道出版社</p><p> 4.《Visual Basic程序設(shè)計(jì)基礎(chǔ)教程》 黃學(xué)平 中國科學(xué)技術(shù)出版社</p><p> 八.圖片瀏覽器程序的代碼</p
29、><p> Private Sub Command1_Click()</p><p> Image1.Stretch = True</p><p> Image1.Width = Image1.Width * 2</p><p> Image1.Height = Image1.Height * 2</p><p>
30、 Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2 </p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p> Image1.Stretch = True</p><p>
31、 Image1.Width = Image1.Width / 2</p><p> Image1.Height = Image1.Height / 2</p><p> Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2</p><p><b> End Sub</b></p&g
32、t;<p> Private Sub Command3_Click()</p><p> n = File1.ListIndex</p><p> n = ((File1.ListCount + (n - 1)) Mod File1.ListCount)</p><p> File1.ListIndex = n</p><p
33、> Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(n))</p><p> Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2</p><p><b> End Sub</b></p>
34、<p> Private Sub Command4_Click()</p><p> n = File1.ListIndex</p><p> n = ((n + 1) Mod File1.ListCount)</p><p> File1.ListIndex = n</p><p> Image1.Picture =
35、LoadPicture(File1.Path & "\" & File1.List(n))</p><p> Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2</p><p><b> End Sub</b></p><p> Private Sub
36、 Command5_Click()</p><p> Image1.Visible = False</p><p> Drive1.Visible = True</p><p> Dir1.Visible = True</p><p> File1.Visible = True</p><p><b>
37、; End Sub</b></p><p> Private Sub Dir1_Change()</p><p> File1.Path = Dir1.Path</p><p><b> End Sub</b></p><p> Private Sub Drive1_Change()</p&g
38、t;<p> Dir1.Path = Drive1.Drive</p><p><b> End Sub</b></p><p> Private Sub File1_Click()</p><p> Image1.Picture = LoadPicture(File1.Path & "\" &
39、amp; File1.FileName)</p><p> Drive1.Visible = False</p><p> Dir1.Visible = False</p><p> File1.Visible = False</p><p> Image1.Visible = True</p><p> I
40、mage1.Top = 50</p><p> Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Image1.Visible
41、 = False</p><p> Drive1.Visible = False</p><p> Dir1.Visible = False</p><p> File1.Visible = False</p><p> File1.Pattern = "*.jpg;*.gif ;*.bmp"</p>
42、<p><b> End Sub</b></p><p> Private Sub Form_Resize()</p><p> Command1.Top = Form1.ScaleHeight - 800</p><p> Command2.Top = Form1.ScaleHeight - 800</p>
43、<p> Command3.Top = Form1.ScaleHeight - 800</p><p> Command4.Top = Form1.ScaleHeight - 800</p><p> Command5.Top = Form1.ScaleHeight - 800</p><p> Command1.Left = Form1.Scal
44、eWidth / 5 * 3 - 1315</p><p> Command2.Left = Form1.ScaleWidth / 5 * 4 - 1315</p><p> Command3.Left = Form1.ScaleWidth / 5 * 1 - 1315</p><p> Command4.Left = Form1.ScaleWidth / 5
45、 * 2 - 1315</p><p> Command5.Left = Form1.ScaleWidth / 5 * 5 - 1315</p><p> Image1.Top = 50</p><p> Image1.Left = (Form1.ScaleWidth - Image1.Width) / 2</p><p><b&
溫馨提示
- 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)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- vb課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告---圖片瀏覽器
- 圖片瀏覽器課程設(shè)計(jì)報(bào)告(vb)
- 圖片瀏覽器課程設(shè)計(jì)報(bào)告
- 圖片瀏覽器課程設(shè)計(jì)報(bào)告
- 圖片瀏覽器課程設(shè)計(jì)報(bào)告.doc
- 網(wǎng)絡(luò)編程課程設(shè)計(jì)報(bào)告--圖片瀏覽器
- java瀏覽器課程設(shè)計(jì)--web瀏覽器開發(fā)
- 網(wǎng)頁瀏覽器--java課程設(shè)計(jì)
- 網(wǎng)頁瀏覽器--java課程設(shè)計(jì)
- c++面向?qū)ο笳n程設(shè)計(jì)報(bào)告--瀏覽器
- 課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告
- sopc課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告
- mfc課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告
- javaweb課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告
- wed課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告
- plc課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告
- 數(shù)碼相框圖片瀏覽器設(shè)計(jì)與實(shí)現(xiàn).pdf
- 多平臺圖片瀏覽器的設(shè)計(jì)與實(shí)現(xiàn).pdf
- eda課程設(shè)計(jì)--eda課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告
- 展示設(shè)計(jì)課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告
評論
0/150
提交評論