當我們設置屏幕背景圖片或在您的文件中插入圖片時，我們總是選擇您計算機中的圖片。有時候妳可能對打開的圖片不滿意，但是妳必須壹張壹張地打開和關閉它們...諸如此類。如果是Photoshop這樣的大軟件，運行起來會極其緩慢。不僅煩躁，還會浪費妳很多寶貴的時間。這個時候，妳會不會覺得“計算機”有點像“豬腦”？不過，不用擔心！還好我用VB編了個小程序，可以解決這個問題。妳不妨試試！
逐步設置每個控件的屬性:
1.將表單的Caption屬性設置為“圖片瀏覽器”，BorderStyle屬性設置為3，即表單大小不能改變。
2.將Label1的屬性設置為“當前驅動器”，Label2的屬性設置為“當前目錄”，Label3的屬性設置為“當前文件”；Label4的屬性是“當前圖像”，Label5的屬性是“當前文件路徑”。
3.將Text1的Text屬性設置為空。
4.將Image1的Stretch屬性設置為True，也就是說，可以縮放加載的圖形以適合圖像框的大小。
5.將Command1的Caption屬性設置為OK，將Command2的Caption屬性設置為Exit。
具體的程序源代碼如下:
私有子命令1_Click()
圖片1。圖片=加載圖片(text1。text)'當您單擊確定時，文本框中的文件將顯示在圖像框中。
末端接頭
Private Sub Command2_Click()'點擊“退出”時，彈出是否退出系統的對話框。
Dim exi作為字符串
Exi = MsgBox("妳真的要退出嗎？"，vbyesno+VB question+vbdefaultbutton 1，“退出”)
如果exi = vbYes，則
結束
如果…就會結束
末端接頭
私有子目錄1_Change()
文件1。Path = Dir1 '當目錄改變時，文件列表框中的文件也相應改變。
末端接頭
私有子驅動器1_Change()
Dir1。Path = Drive1 '當驅動器改變時，目錄列表也相應地改變。
末端接頭
私有子文件1_Click()
text 1 . text = file 1 . path+" \ "+file 1 '用於在文本框中顯示選定的圖形名稱。
Image1。圖片= LoadPicture(File1。Path + "\" + File1)
末端接頭
私有子文件1_DblClick()
圖片1。圖片=加載圖片(文件1。path+"\"+file 1)'雙擊文件列表中的文件時，該文件會顯示在圖像框中。
末端接頭
私有子窗體_Load()
命令1。Enabled = False '未選擇圖形文件時,“確定”按鈕不可用。
文件1。模式= "*。bmp*.jpg*.ico*.顯示擴展名為的文件。BMP，。JPG。ICO和。文件列表框中的cur。
file 1 . path = " C:\ documents and settings \所有用戶\ documents \ my pictures \ sample pictures "
末端接頭
私有子文本1_Change()
命令1。Enabled = True '當文本框中的內容發生變化時，使“確定”按鈕可用。
末端接頭
好，按F5運行它！妳滿意嗎？通過這個小程序，希望廣大VB初學者能從這篇文章中得到壹點啟發，然後用VB 6.0編寫出自己的精彩作品。