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＄
　　 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中的无边框窗体
下一篇： 制造出透明的窗体(Form)

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有