VB中实现带预览的对话框

会计考友

　　用户在图片框中选择图片时，希望预先对图片的轮廓及大小有初步了解，但是VB的通用对话框没有预览的功能，为此需要定制一个自定义对话框。我们可以通过image控件加入窗体中来实现其功能。
　　程序示例：
0 ~" K  \: F5 n* t* l" e/ U　　程序功能说明：
% x, J7 c% s& U! G( x　　在窗体的file1中选择一个图片文件，点选“预览”复选框，image控件就显示相应的图片，label1就显示该图片的大小。
　　新建一个工程，加入以下控件：
　　控件 名称 属性
　　form form1 borderstyle=3
; l; v* B3 }7 C  u7 h8 |- R　　(vbsizedouble)
% d" n6 ?0 @* k! k" x* ^　　caption=“图片预览对话框"
　　drivelistbox drive1
% j/ u' G% H% J0 ?8 h4 u. q) v　　dirlistbox dir1
　　filelistbox file1 pattern=“＊.bmp;
1 [4 S: P3 j% ?9 c' }& n% f6 P　　＊.jpg;＊.gif"
　　image image1 stretch=true
# @! w& V: s8 G5 Y% N) G　　checkbox chk value=“预览"
　　commandbutton cmd1 caption=“确定"
　　cmd2 caption=“退出"
! d0 K) @% d! Y　　label lab1 caption=“"
& ^1 `; x" v" w; B4 S8 ^　　源代码：
" E, d4 y' `( b9 d( l　　'declare
　　Public filename＄
　　dim sfilename＄
　　Private sub drive1_change()
1 |( L& l2 E/ r/ C9 ?' Q　　dir1.path=drive1.drive
　　End sub
　　Private sub dir1_change()
/ p. ~8 X+ `! c6 z) b; q　　file1.path=dir1.path
( D' K2 ^$ \: m* F! |+ R% ?/ g　　End sub
　　Private sub cmd1_click()
& {- K; }6 z8 u7 t　　filename=sfilename
　　End sub
/ b9 m$ v: a  K　　Private sub cmd2_click()
3 G$ L" n# q4 n　　End
　　End sub
　　Private sub file1_click()
0 S/ ]  I8 Q/ X; G2 j+ `) L　　dim ssize as long
　　if fille1.listcount>0 then
5 }* J# [( q% c　　if right(file1.path,1)“\" then
7 O/ M& b8 i) X& Y3 F. `　　sfilename=file1.path＆“\"＆file1.filename
/ J9 T, [6 U8 M: S　　else
( J  W" Z! X' `1 p4 O- S　　sfilename=file1.path＆file1.filename
　　End if
' h& [5 m7 R! L4 p6 X) k5 C5 e　　if chk.checked then
9 D' M1 b1 ^- C$ o　　image1.picture=loadpicture(“")
　　image1.picture=loadpicture(sfilename)
　　ssize=filelen(sfilename)
　　ssize=ssize/1000
　　lab1.caption=str(ssize)＆“k"
2 C/ H' E* l1 ]+ ^　　else
　　lab1.caption=“"
　　image1.picture=loadpicture(“")
　　end if
　　end if
3 W6 ]6 I1 J0 {' p! [  V3 L* _1 Z　　End sub