【www.tuzhexing.com--教育考试】
为了帮助广大考生更好的复习，帮考网小编整理提供了计算机等级考试:VB中实现带预览的对话框，以供各位考生复习参考，希望对考生复习有所帮助。
用户在图片框中选择图片时，希望预先对图片的轮廓及大小有初步了解，但是VB的通用对话框没有预览的功能，为此需要定制一个自定义对话框。我们可以通过image控件加入窗体中来实现其功能。
程序示例：
程序功能说明：
在窗体的file1中选择一个图片文件，点选“预览”复选框，image控件就显示相应的图片，label1就显示该图片的大小。
新建一个工程，加入以下控件：
控件 名称 属性
form form1 borderstyle=3
（vbsizedouble）
caption=“图片预览对话框“
drivelistbox drive1
dirlistbox dir1
filelistbox file1 pattern=“＊.bmp;
＊.jpg;＊.gif”
image image1 stretch=true
checkbox chk value=“预览“
commandbutton cmd1 caption=“确定”
cmd2 caption=“退出“
label lab1 caption=“”
源代码：
‘declare
Public filename＄
dim sfilename＄