当前位置:编程学习 > VB >>

VB中实现带预览的对话框

答案:
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设计聚焦框程序
下一个:VB中实现同一窗口的多个实例及控件的动态增减

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,