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

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

2007-05-04 07:00 作者： 出处：论坛整理 责任编辑：卢林嘉

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

  阅读关于 VB 控件 属性 定义 定制 通用 的全部文章