-
ComboBox-展示和選擇不同類型的文件。、
-
drivelistbox -允許您選擇電腦裡不同的驅動器。
-
dirlistbox -顯示目錄
-
TextBox -顯示選定的文件
-
filelistbox -顯示可用的檔案
-
picture1-顯示圖片
在第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