用户在图片框中选择图片时希望预先对图片的轮廓及大小有初步了解但是VB的通用对话框没有预览的功能为此需要定制一个自定义对话框我们可以通过image控件加入窗体中来实现其功能
程序示例
程序功能说明
在窗体的file中选择一个图片文件点选预览复选框image控件就显示相应的图片label就显示该图片的大小
新建一个工程加入以下控件
控件 名称 属性
form form borderstyle=
(vbsizedouble)
caption=图片预览对话框
drivelistbox drive
dirlistbox dir
filelistbox file pattern=＊bmp;
＊jpg;＊gif
image image stretch=true
checkbox chk value=预览
commandbutton cmd caption=确定
cmd caption=退出
label lab caption=
源代码
以下是引用片段
declare
Publicfilename＄
dimsfilename＄
Privatesubdrive_change()
dirpath=drivedrive
Endsub
Privatesubdir_change()
filepath=dirpath
Endsub
Privatesubcmd_click()
filename=sfilename
Endsub
Privatesubcmd_click()
End
Endsub
Privatesubfile_click()
dimssizeaslong
iffillelistcount>then
ifright(filepath)<>\then
sfilename=filepath＆\＆filefilename
else
sfilename=filepath＆filefilename
Endif
ifchkcheckedthen
imagepicture=loadpicture()
imagepicture=loadpicture(sfilename)
ssize=filelen(sfilename)
ssize=ssize/
labcaption=str(ssize)＆k
else
labcaption=
imagepicture=loadpicture()
endif
endif
Endsub
