vb課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告---圖片瀏覽器

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圖片顯示時(shí)，盤符，文件夾和文件列表隱藏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)中圖片瀏覽器的功能非常相似，使用起來方便靈活，生動(dòng)直觀。</p><p>　　二．功能描述（含流程圖）</p><p><b>　　2.1 流程圖：</b></p><p>　　圖片瀏覽器程序流程圖</p><p>　　2.2 圖片瀏覽器描述（1）</p>

8、<p>　　該圖片瀏覽器由五個(gè)控件，有盤符，文件夾和文件列表（沒運(yùn)行時(shí)是隱藏的，查找圖片之后也是隱藏的），還有一個(gè)Image框，布局合理！</p><p>　　2.3 圖片瀏覽器描述（2）</p><p>　　圖片瀏覽器中的查找圖片控件可以查找文件中的圖片。</p><p>　　2.4 圖片瀏覽器描述（3）</p><p>　　

9、該圖片瀏覽器運(yùn)行之后，盤符，文件夾和文件列表出現(xiàn)，查找到圖片之后就會(huì)再次隱藏，而圖片就會(huì)出現(xiàn)。</p><p>　　2.5 圖片瀏覽器描述（4）</p><p>　　圖片瀏覽器中的擴(kuò)大和縮小控件按鈕可以控制使圖片可以放大和縮小。</p><p>　　2.6 圖片瀏覽器描述（5）</p><p>　　圖片瀏覽器中的上一張和下一張的控件可以使圖片

10、可以上下翻動(dòng)，與系統(tǒng)中的瀏覽器無異！</p><p><b>　　三．概要設(shè)計(jì)</b></p><p>　　3.1 電子式圖片瀏覽器</p><p>　　該程序主要由一個(gè)圖片框來顯示系統(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圖片顯示時(shí)，盤符，文件夾和文件列表隱藏 代碼如下：</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)的圖片瀏覽器非常相似，不會(huì)顯示出系統(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)，使我對(duì)于VB課程的實(shí)驗(yàn)和程序設(shè)計(jì)有了更深層次的了解，特別是明白了文件操作和圖片操作的用法，在老師的指導(dǎo)和幫助以及自己的努力下終于完成了程序設(shè)計(jì)課題，實(shí)現(xiàn)了圖片瀏覽器的操作。</p><

27、p>　　VB的課程設(shè)計(jì)，對(duì)于我們來說是一個(gè)鍛煉，它提升了我們的編程水平。幾天的上機(jī)操作，使我們學(xué)到了更多的VB知識(shí)，而且我們?cè)诰幊唐陂g，學(xué)會(huì)了協(xié)作，團(tuán)結(jié)，為我們積累了資本?？傊@次課程設(shè)計(jì)讓我受益匪淺，我將會(huì)繼續(xù)學(xué)習(xí)VB知識(shí)，提高水平。</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&