季曉云

（渤海大學(xué) 計(jì)算機(jī)教研部，遼寧 錦州 121000）

圖片瀏覽軟件的主要操作對(duì)象是各種類(lèi)型的圖片，而VB作為一種可視化的程序設(shè)計(jì)語(yǔ)言，對(duì)于圖片元素的操作非常靈活，下面介紹使用VB如何DIY看圖軟件。

1 看圖軟件界面的設(shè)計(jì)

分析當(dāng)前的看圖軟件，一般情況看圖軟件由兩個(gè)界面構(gòu)成。第一個(gè)界面（見(jiàn)圖1）主要包含切換驅(qū)動(dòng)器、目錄及圖片縮略圖的瀏覽；第二個(gè)界面（見(jiàn)圖2）是圖片瀏覽界面。那么需要使用Visual Basic創(chuàng)建兩個(gè)窗體，具體設(shè)計(jì)步驟如下所示：

（1）啟動(dòng)VB創(chuàng)建一個(gè)工程，在Form窗體中加入驅(qū)動(dòng)器列表框Drive1、目錄列表框Dir1、文件列表框File1、圖像框?qū)ο驣mage1，設(shè)置窗體布局。

（2）圖像框 Image1的stretch設(shè)置為Falsh；File1的filter屬性設(shè)置為“位圖文件|*.bmp|Jpeg文件|*.jpg|Icon圖標(biāo)文件|*.ico|矢量圖片文件|*.wmf|Gif圖片|*.gif”。

圖1 圖片瀏覽器的主界面

（3）單擊工程菜單，添加一個(gè)窗體Form2。

（4）在Form2中加入一個(gè)圖像框Image1。

（5）在界面2中要實(shí)現(xiàn)從當(dāng)前文件向前、向后瀏覽及返回界面1的功能，可以通過(guò)添加菜單或者直接用命令按鈕來(lái)實(shí)現(xiàn)均可。本例中采用比較簡(jiǎn)便的按鈕方式來(lái)實(shí)現(xiàn)。那么在Form2中添加3個(gè)命令按鈕Com?mand1、Command2、Command3。

（6）設(shè)置三個(gè)命令按鈕的Caption屬性均為空，Style屬性均為1（圖形按鈕），通過(guò)Picture屬性分別引入三個(gè)圖標(biāo)文件。

圖2 圖片瀏覽界面

2 控件的編程以及調(diào)試

（1）對(duì)Form1中各個(gè)控件進(jìn)行編程：

首先實(shí)現(xiàn)Drive1，Dir1，F(xiàn)ile1三個(gè)對(duì)象的關(guān)聯(lián)，代碼如下：

上面的代碼實(shí)現(xiàn)目錄列表框和驅(qū)動(dòng)器列表框之間的關(guān)聯(lián)。

此段代碼實(shí)現(xiàn)目錄列表框和文件列表框之間的關(guān)聯(lián)。當(dāng)在文件列表框File1單擊某圖片文件時(shí)，在圖像框Image1里顯示縮略圖的代碼如下：

注意：此段代碼中的i用來(lái)記錄圖片在當(dāng)前目錄中的位置，在Form2中要使用，因此必須在窗體的通用聲明部分使用Public來(lái)定義。

當(dāng)雙擊文件列表框File1某圖片文件時(shí)，要跳轉(zhuǎn)到圖片瀏覽界面，以大屏幕的方式瀏覽圖片，跳轉(zhuǎn)功能的代碼如下：

（2）接下來(lái)對(duì)Form2中個(gè)控件進(jìn)行編程：

當(dāng)切換到Form2時(shí)，為保證圖片要顯示在整個(gè)窗口的中央，可以對(duì)窗體的Activate事件進(jìn)行編程，代碼如下：

Command1要實(shí)現(xiàn)單擊返回如圖一界面，代碼如下：

Command2要實(shí)現(xiàn)單擊從當(dāng)前文件向后瀏覽其余圖片的功能，代碼如下：

Command3要實(shí)現(xiàn)單擊從當(dāng)前文件向前瀏覽其余圖片的功能，代碼如下：

運(yùn)行期間當(dāng)窗體大小改變時(shí)，圖片也要顯示在正中央，為了保證圖像顯示在整個(gè)窗體的中央，需要對(duì)窗體的Resize事件進(jìn)行編程，代碼同窗體的Activate事件相同。當(dāng)然也可以添加菜單，把一些常用的命令以菜單項(xiàng)的方式創(chuàng)建，方法比較簡(jiǎn)單，這里不再論述。

3 結(jié) 語(yǔ)

運(yùn)行程序，查看自己DIY的看圖軟件，由此就擁有了自己專(zhuān)屬的看圖軟件。

[1]李振亭.Visual Basic程序設(shè)計(jì)教程[M].北京：北方交通大學(xué)出版社，2003.

[2]楊敏.中文版Visual Basic 6.0實(shí)用教程[M].成都：電子科技大學(xué)出版社，2001.

[3]童鑫.高職VB語(yǔ)言基礎(chǔ)課“教、學(xué)、做”一體化教學(xué)模式改革初探[J].教書(shū)育人，2011（18）：66?68.

[4]劉炳文.精通Visual Basic 6.0[M].北京：電子工業(yè)出版社，2001.

[5]張建軍，韓瑩.利用VB、Delphi輕松實(shí)現(xiàn)圖象漫游[J].電腦開(kāi)發(fā)與應(yīng)用，2001，14（5）：40?41.

[6]陳先明.VB中圖形平移和縮放功能的實(shí)現(xiàn)方法[J].電腦學(xué)習(xí)，1999（6）：23?24.