VB中实现带预览的对话框

aleesin

aleesin

2016-02-19 18:27

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享VB中实现带预览的对话框,希望可以让热爱学习的朋友们体会到设计的小小的乐趣。
用户在图片框中选择图片时,希望预先对图片的轮廓及大小有初步了解,但是VB的通用对话框没有预览的功能,为此需要定制一个自定义对话框。我们可以通过image控件加入窗体中来实现其功能。
  程序示例:
  程序功能说明:
  在窗体的file1中选择一个图片文件,点选“预览”复选框,image控件就显示相应的图片,label1就显示该图片的大小。
  新建一个工程,加入以下控件:
  控件名称属性
  formform1borderstyle=3
  (vbsizedouble)
  caption=“图片预览对话框"
  drivelistboxdrive1
  dirlistboxdir1
  filelistboxfile1pattern=“*.bmp;
  *.jpg;*.gif"
  imageimage1stretch=true
  checkboxchkvalue=“预览"
  commandbuttoncmd1caption=“确定"
  cmd2caption=“退出"
  labellab1caption=“"
  源代码:
  '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.listcount0then
  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->

展开更多 50%)
分享

猜你喜欢

VB中实现带预览的对话框

编程语言 网络编程
VB中实现带预览的对话框

对话框打印预览及打印

C语言教程 C语言函数
对话框打印预览及打印

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

基于对话框程序中让对话框捕获WM_KEYDOWN消息的实现方法

编程语言 网络编程
基于对话框程序中让对话框捕获WM_KEYDOWN消息的实现方法

java swing标准对话框具体实现

编程语言 网络编程
java swing标准对话框具体实现

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

关于对话框

编程语言 网络编程
关于对话框

折叠对话框

办公软件
折叠对话框

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Win7 EXE应用程序图标丢失解决办法

Win7 EXE应用程序图标丢失解决办法

给应用程序添加“日积月累”对话框

给应用程序添加“日积月累”对话框
下拉加载更多内容 ↓