Visual Basic中实现带预览的对话框

用户在图片框中选择图片时，希望预先对图片的轮廓及大小有初步了解，但是VB的通用对话框没有预览的功能，为此需要定制一个自定义对话框。我们可以通过image控件加入窗体中来实现其功能。

程序示例：用户在图片框中选择图片时，希望预先对图片的轮廓及大小有初步了解，但是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＄
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 


程序功能说明：

在窗体的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＄
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