計算機等級考試:二級VB制作圖片瀏覽器(2)

Private Sub Dir1_Change（）
    File1.Path=Dir1＇當目錄發(fā)生變化時，文件列表框中的文件也相應(yīng)變化
    End Sub
    －－－－－－
    Private Sub Drive1_Change（）
    Dir1.Path=Drive1＇當驅(qū)動器變化時，目錄列表也相應(yīng)變化
    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＇當文本框中的內(nèi)容變化時使“確定”按鈕可用
    End Sub
    好了，按“F5”鍵運行一下吧！你還滿意嗎？通過這個小小的程序，希望廣大初學VB的讀者能從本文中受到小小的啟發(fā)，然后能用VB 6.0編出自己的絕妙佳作