Visual Basic設計圖形瀏覽器示例 (轉)

Visual Basic設計圖形瀏覽器示例 (轉)[@more@]

設計圖形示例

 

　　想過自己設計圖形瀏覽器嗎？其實，這一點也不難，我們可以輕鬆利用VB實現。

　　圖形瀏覽器的設計過程如下：

　　1.啟動VB，新建一標準工程，在窗體Form1上，更改Form1的Caption=“圖形瀏覽器”。

　　2.從工具箱中把器、資料夾和檔案新增到表單中，驅動器的Name為Diver1，資料夾的Name為Dir1，檔案的Name為File1，並調整適當的位置。

　　3.從工具箱中把Picture Box控制元件新增到表單中，Picture Box的Name為Picture1,並調整適當的位置、高寬度。

　　4.從工具箱中，把Command Button控制元件新增到表單中，Command Button 的Name為Command1,並調整適當的位置、高寬度。

　　5.在表單的空白處雙擊滑鼠，彈出程式碼編輯視窗，輸入下列程式碼:

　　Private Sub Form_Load()

　　′設定應用所在驅動器和目錄為當前驅動器和目錄

　　′App 是當前的應用程式

　　Drive1.Drive = App.Path

　　Dir1.Path = App.Path

　　File1.Pattern = "*.bmp;*.ico;*.wmf"

　　End Sub

　　6.在表單的驅動器控制元件上雙擊滑鼠，彈出程式碼編輯視窗，輸入下列程式碼:

　　Private Sub Drive1_Change()

　　′選中的驅動器改變時，目錄列表框中的內容;目錄改變時，觸發目錄列表框的Change事件

　　Dir1.Path = Drive1.Drive

　　End Sub

　　7.在表單的資料夾控制元件上雙擊滑鼠，彈出程式碼編輯視窗，輸入下列程式碼:

　　Private Sub Dir1_Change()

　　′目錄改變時，更新檔案列表框中的內容

　　File1.Path = Dir1.Path

　　End Sub

　　8.在表單的檔案控制元件上雙擊滑鼠，彈出程式碼編輯視窗，輸入下列程式碼:

　　Private Sub File1_Click()

　　′根目錄時，路徑中的最後一個字元是反斜槓""，如：C:

　　′非根目錄時，路徑中的最後一個字元不是反斜槓""

　　′得到完整的檔名，應在路徑的最後加上反斜槓""

　　If Right(File1.Path, 1) 〈 〉 "" Then

　　′非根目錄時，路徑中的最後加上一個反斜槓""

　　tempstring = File1.Path && "" && File1.FileName

　　Else

　　tempstring = File1.Path && "" && File1.FileName

　　End If

　　′裝入選定的檔案

　　Form1.Picture1.Picture = LoadPicture(tempstring)

　　End Sub

　　9.在表單的"關閉"控制元件上雙擊滑鼠，彈出程式碼編輯視窗，輸入下列程式碼:

　　Private Sub Command1_Click()

　　Unload Me

　　End

　　End Sub

　　儲存檔案並執行,你自己的圖形瀏覽器就設計好了。