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

前端之家收集整理的这篇文章主要介绍了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
Publicfilename$
dimsfilename$
Privatesubdrive1_change()
 dir1.path=drive1.drive
Endsub
Privatesubdir1_change()
 file1.path=dir1.path
Endsub
Privatesubcmd1_click()
 filename=sfilename
Endsub
Privatesubcmd2_click()
 End
Endsub
Privatesubfile1_click()
 dimssizeaslong
 iffille1.listcount>0then
 ifright(file1.path,1)<>“/"then
  sfilename=file1.path&“/"&file1.filename
 else
  sfilename=file1.path&file1.filename
 Endif
 ifchk.checkedthen
  image1.picture=loadpicture(“")
  image1.picture=loadpicture(sfilename)
  ssize=filelen(sfilename)
  ssize=ssize/1000
  lab1.caption=str(ssize)&“k"
 else
  lab1.caption=“"
  image1.picture=loadpicture(“")
 endif
 endif
Endsub

阅读关于 VB 控件 属性 定义 定制 通用 的全部文章
原文链接:https://www.f2er.com/vb/262777.html

猜你在找的VB相关文章