用戶在圖片框中選擇圖片時，希望預先對圖片的輪廓及大小有初步了解，但是VB的通用對話框沒有預覽的功能，為此需要定制一個自定義對話框。我們可以通過image控件加入窗體中來實現其功能。
程序示例：
程序功能說明：
在窗體的file1中選擇一個圖片文件，點選“預覽”復選框，image控件就顯示相應的圖片，label1就顯示該圖片的大小。
新建一個工程，加入以下控件：
控件名稱屬性
formform1borderstyle=3
(vbsizedouble)
caption=“圖片預覽對話框"
drivelistboxdrive1
dirlistboxdir1
filelistboxfile1pattern=“＊.bmp;
＊.jpg;＊.gif"
imageimage1stretch=true
checkboxchkvalue=“預覽"
commandbuttoncmd1caption=“確定"
cmd2caption=“退出"
labellab1caption=“"
源代碼：
'declare
Publicfilename＄
dimsfilename＄
Privatesubdrive1_change()
dir1.path=drive1.drive
Endsub
Privatesubdir1_change()
file1.path=dir1.path
Endsub
Privatesubcmd1_click()
filename=sfilename
Endsub
Privatesubcmd2_click()
End
Endsub
Privatesubfile1_click()
dimssizeaslong
iffille1.listcount>0then
ifright(file1.path,1)<>“"then
sfilename=file1.path＆“"＆file1.filename
else
sfilename=file1.path＆file1.filename
Endif
ifchk.checkedthen
image1.picture=loadpicture(“")
image1.picture=loadpicture(sfilename)
ssize=filelen(sfilename)
ssize=ssize/1000
lab1.caption=str(ssize)＆“k"
else
lab1.caption=“"
image1.picture=loadpicture(“")
endif
endif
Endsub->
