計算機等級考試:VB中實現(xiàn)帶預(yù)覽的對話框(2)

    Private sub drive1_change（）
    dir1.path=drive1.drive
    End sub
    Private sub dir1_change（）
    file1.path=dir1.path
    End sub
    Private sub cmd1_click（）
    filename=sfilename
    End sub
    Private sub cmd2_click（）
    End
    End sub
    Private sub file1_click（）
    dim ssize as long
    if fille1.listcount》0 then
    if right（file1.path，1）“\“ then
    sfilename=file1.path＆“\”＆file1.filename
    else
    sfilename=file1.path＆file1.filename
    End if
    if chk.checked then
    image1.picture=loadpicture（““）
    image1.picture=loadpicture（sfilename）
    ssize=filelen（sfilename）
    ssize=ssize/1000
    lab1.caption=str（ssize）＆“k”
    else
    lab1.caption=““
    image1.picture=loadpicture（“”）
    end if
    end if
    End sub