啟動Visual Basic ,建立壹個標準EXE工程,然後參考下面的界面效果設計軟件的運行界面:
1、使用控件面板上的框架Frame和標簽Label控件建立①的軟件標題,並且將Frame的[Caption]屬性清空,Label的[Caption]屬性修改為“簡易圖片瀏覽器”,[Font]屬性中的字體和大小也作相應的修改;
2、利用控件面板上的驅動器列表DriveListBox控件建立②的磁盤列表;
3、用控件面板上的目錄列表DirListBox控件建立③的文件目錄列表;
4、用控件面板上的文件列表FileListBox控件建立④的文件列表;
5、用控件面板上的圖像Image控件建立⑤的圖像展示區,設置Image1對象的[Height]屬性為4800,設置[with]屬性值為6400;
6、調整好各個控件的位置,使到界面的布局合理美觀。
--------------------------------------------------------------------------------
二、代碼實現
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '將磁盤的位置告訴目錄列表
End Sub
Private Sub File1_Click()
'將圖片用Loabpicture函數裝載到Image1裏面顯示出來
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub
Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp;*.Gif"
End Sub
Private Sub Image1_DblClick()
If Image1.Stretch = False Then
Image1.Stretch = True
Image1.Width = 6400
Image1.Height = 4800
Else
Image1.Stretch = False
End If
End Sub
三、軟件說明
在VB裏面編程要管理外部文件壹般可以使用以上的方法來實現,也就是混合的使用到驅動器列表DriveListBox、目錄列表DirListBox以及文件列表FileListBox這三個控件對象,然後再在他們的代碼中實現關聯;
對於文件列表FileListBox中顯示的內容,默認情況下是所有的文件類型,如果我們希望它只顯示我們需要的文件類型,也可以通過修改屬性中的[Pattern]圖片格式來實現,例如我們只希望文件列表中看到的是*.jpg、*.bmp、*.Gif這幾類文件我們可以如下圖這樣設置:註意:有多種不同類型的文件就要用“;”分隔開來
當然也可以在代碼中進行初始化的時候實現: