当前位置:首页 > 开发教程 > Basic教程 >

实现带预览的对话框

时间:2013-09-18 11:34 来源: 作者: 收藏

2345软件教程,为您打造全面的软件教程手册,无论是新奇小软件的操作还是专业软件的使用技巧,2345软件教程都会为您解疑释惑。

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


Basic教程阅读排行

最新文章