VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB中实现带预览的对话框
发表评论(0)作者:, 平台:, 阅读:9542, 日期:2000-05-21
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(四川 陈东)