VB制作圖片瀏覽器
當我們在設置屏幕背景圖，或是在你的文件中插入圖片時，總要在你的電腦里選擇圖片。有時打開的圖片你不一定滿意，你又不得不一個個地打開、關閉……這樣一而再，再而三地重復。如果是“Photoshop”這樣的大軟件運行起來更是慢得不得了。不但煩躁，而且還浪費了你很多寶貴時間。這時，你是不是覺得“電腦”有點像“豬腦”呢？不過，別急！幸好我用VB編了一個小小的程序，可以解決這個問題，你不妨試試！
下面分步設置各控件的屬性：
1.設置窗體的Caption屬性為“圖片瀏覽器”，BorderStyle屬性為3,即窗體大小不能改變。
2.設置Label1的屬性為“當前驅動器”，Label2的屬性為“當前目錄”，Label3的屬性為“當前文件”；Label4的屬性為“當前圖像”，Label5的屬性為“當前文件路徑”。
3.設置Text1的Text屬性為空。
4.設置Image1的Stretch屬性為True，即所裝入的圖形能夠縮放以適應圖像框大小。
5.設置Command1的Caption屬性為“確定”，Command2的Caption屬性為“退出”。
具體的程序源代碼如下：
| Private Sub Command1_Click（） Image1.Picture=LoadPicture（Text1.Text）＇當單擊“確定”時，文本框中的文件在圖像框中顯示出來 End Sub －－－－－－ Private Sub Command2_Click（）＇當單擊“退出”時，彈出是否退出系統對話框 Dim exi As String exi=MsgBox（“您真的想退出嗎？”，vbYesNo＋vbQuestion＋vbDefaultButton1，“退出”） If exi=vbYes Then End End If End Sub －－－－－－ Private Sub Dir1_Change（） File1.Path=Dir1＇當目錄發生變化時，文件列表框中的文件也相應變化 End Sub －－－－－－ Private Sub Drive1_Change（） Dir1.Path=Drive1＇當驅動器變化時，目錄列表也相應變化 End Sub －－－－－－ Private Sub File1_Click() Text1.Text=File1.Path＋“”＋File1＇用來在文本框中顯示被選中的圖形名 End Sub －－－－－－ Private Sub File1_DblClick（） Image1.Picture=LoadPicture（File1.Path＋“”＋File1）＇當雙擊文件列表中的文件時,文件在圖像框中顯示出來 End Sub －－－－－－ Private Sub Form_Load（） Command1.Enabled=False＇在未選擇圖形文件時“確定”按鈕不可用 File1.Pattern=“＊.bmp；＊.jpg；＊.ico；＊.cur”＇在文件列表框中顯示擴展名為.BMP、.JPG、.ICO、.CUR的文件 End Sub －－－－－－ Private Sub Text1_Change() Command1.Enabled=True＇當文本框中的內容變化時使“確定”按鈕可用 End Sub |
好了，按“F5”鍵運行一下吧！你還滿意嗎？通過這個小小的程序，希望廣大初學VB的讀者能從本文中受到小小的啟發，然后能用VB 6.0編出自己的絕妙佳作。