英文VB教程 簡體Visual Basic教程 繁體Visual Basic教程

第21課: 創建圖片瀏覽器


在第20課裡,我們已經創建了一個音頻播放器。現在,再稍作一些修改,我們把音頻播放器改造成為一個圖片瀏覽器。此瀏覽器將可以在您的驅動器搜尋所有類型的圖形,並將其顯示出來。

類似上一課的項目,在這個項目中,你需要插入一個ComboBox, 一個drivelistbox , 一個dirlistbox ,一個TextBox, filelistbox 和一個圖片框 (picture1)到您的表單裡。上述每個控件的功能的說明如下:

  • ComboBox-展示和選擇不同類型的文件。、

  • drivelistbox -允許您選擇電腦裡不同的驅動器。

  • dirlistbox -顯示目錄

  • TextBox -顯示選定的文件

  • filelistbox -顯示可用的檔案

  • picture1-顯示圖片

我們所編寫的程式代碼需要協調上述所有控件,使該程式可以正常工作。該程式需根據以下的步驟來編寫:

第1步:用戶選擇他要查看的文件類型,。
第2步:用戶選擇可能包含有關的圖形文件的驅動器。
第3步:用戶查看目錄和子目錄裡面的文件檔案。檔案應顯示在filelistbox例 。
第4步:用戶從filelistbox選擇該文件和點擊顯示按鈕。
第5步:用戶按一下介紹按鈕

图片瀏覽器界面

圖片瀏覽器程式代碼

Private Sub Form_Load()
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2

Combo1.Text = "All graphic files"
Combo1.AddItem "All graphic files"
Combo1.AddItem "All files"

End Sub
 

Private Sub Combo1_Change()
’顯示各類型圖形文件

If ListIndex = 0 Then
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
Else
Fiel1.Pattern = ("*.*")
End If

End Sub

Private Sub Dir1_Change()
’轉換途徑
File1.Path = Dir1.Path
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")


End Sub


‘轉換驅動器
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub


Private Sub File1_Click()

‘選定文件
If Combo1.ListIndex = 0 Then
File1.Pattern = ("*.bmp;*.wmf;*.jpg;*.gif")
Else
File1.Pattern = ("*.*")
End If

If Right(File1.Path, 1) <> "\" Then
filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If
Text1.Text = filenam

End Sub


Private Sub show_Click()

顯示圖片
If Right(File1.Path, 1) <> "\" Then

filenam = File1.Path + "\" + File1.FileName
Else
filenam = File1.Path + File1.FileName
End If

picture1.Picture = LoadPicture(filenam)
End Sub





版权所有©2008 Dr.Liew Voon Kiong。保留所有权利 。联系我们: VB面子书

[Privacy Policy]