至顶网›软件频道 ›Visual Basic中实现带预览的对话框

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

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

用户在图片框中选择图片时，希望预先对图片的轮廓及大小有初步了解，但是VB的通用对话框没有预览的功能...

作者：佚名来源：天极论坛整理 2007年10月14日

关键字： Visual Basic 预览对话框

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

查看本文来源

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

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

业界热点: