说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB中实现带预览的对话框

HTML文档下载 WORD文档下载 PDF文档下载
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(四川 陈东)



用Delphi 实 现 不 同 数 据 库 系 统 之 间 的 数 据 转 移 用DELPHI本身的控件输出TABLE表数据 用Delphi编程访问SQLServer数据库 用delphi编写医院的复杂报表 用Delphi程序维护Paradox 数据表的索引 用Delphi的InterBase数据库开发C&amp;S应用程序 用Delphi进行数据库之间转换 用Delphi开发“瘦”单机数据库应用系统 用Delphi如何实现VFP中的Cache特性 用Delphi设计数据库应用的几点体会 在我们日常工作中,常会碰到这样一个难题:一大堆-Delphi资料 用DELPHI制作应用软件 用Dephi 程 序 维 护Paradox 数 据 表 的 索 引-Delphi资料 用Dephi程序维护Paradox数据表的索引-Delphi资料 用InstallShield制作数据库应用系统的安装程序-Delphi资料 在BDE中使用ASCII-Delphi资料 在DBMemo中查找文字-Delphi资料 在Delphi 程序中维护DBF 数据库 在Delphi 中 利 用 Tbatch 组 件 完 成 数 据 批 处 理 在Delphi 中使用计算出的字段 在Delphi3 程 序 中自 动 检 测、 建 立 数 据 库 别 名 和 表 格 在Delphi3程序中自动检测、建立数据库别名和表格 在Delphi4 BDE中配置Access数据库 在Delphi5 中修改了Delphi自带的VCL Source文件后怎样重建Delphi的库文 在DELPHI程序中动态设置ODBC数据源 在DELPHI程序中使用ADO对象存取ODBC数据库 在DELPHI程序中自动设置ODBC数据源 在Delphi的DBGrid中插入其他可视组件 在Delphi的Socket编程中如何从服务器向指定的客户机发送信息? 在Delphi动态生成定义数据库 在Delphi中处理数据库日期型字段的显示与输入 那有BOCHS的中文帮助 我愿送500分求解JAVA问题!!!!!! 关于frame里面的参数传递问题,火急 find函数的问题,请各位老兄帮忙 请问这个链接怎么写? 用xsl将xml转成html提示.... 为什么看不到邻近计算机? 关于浏览器的自定义工具栏! 无法打开web项目bbs 请告知可以下载Domino数据库安装文件和Lotus Notes的网址!在线等 我的ie6无法加载applet,请教解决方法! 如何用ASP写关闭当前窗体的代码? 用xsl将xml转成html提示.... sqlserver数据库怎么和应用程序一起打包? 一个困惑的问题,高手和有耐心的人请进! 实现要求是:对一个用来保存文件的richtext域如何创建一个代理,以实现每天固定一个时间从服务器/本地的一个固定目录下获取一个更新的文 关于数据库导入导出的问题 请问:提交表单后,把参数传到一个新弹出的页面,要求此页面没有“标准按钮”“工具栏”“地址栏”而且固定窗口大小,且不能最大化,如何 求助于高手:Tab Control控件如何使用? 组件通过鼠标移动 求助 sniffer 紧急!帮忙啊!如何获得使用<div class="test" id="mydiv"> ...</div>定义的对象 哪儿找ORACLE8i 9i for x86solaris? 在IIS中,url转发如何隐藏真实地址? 原来对应Access数据库的水晶报表现在如何转换成对应sql server 的?Access数据库已经转换成Sql server的 找到了工作,不过得告别DELPHI一段时间了本来想在非技术区发这个,但是我在这里得到的帮助最多所以...... 在web页面中如何使用脚本判断当前是否有键被按下? 哈希表 访问CLOB字段问题 下拉列表的查询 一台电脑安装的winxp系统,当我打开“任务管理器”时,只显示所调用的进程及结束进程的按钮,其它的应用程序及性能界面都不能出现,最上 Repeater模板列:如何在返回字段长度过长时,将其截短 谁能帮我做一个祝贺教师节日的卡通图片 intaweb 的session 超时错误捕捉问题 大家帮忙看一下C++primer上面的这个程序: 简单SQL命令问题。。。。 蓝天,ChangeCell事件在WIN2000下正常,在WIN98下出现非法操作错误??? 请问:使用database对象打开有密码的Access数据库问题? 各位高手,请进来看看吧!关于dbexpress的问题 请各位XDJM帮我想个书店的名字,是我弟弟要在我们县开个主要经营考试图书的书店,请大家想个名字,不胜感激 知道PHP的crypt()生成的密文,如果用JAVA校验明文是否正确? 如何分割图片? 关于一个窗体事件的小问题,分不多,100而已 无法备份数据库???事不是我做这个操作弄坏数据库了?? office xp只装frontpage,在打开frontpage 时有总有错误的问题? 有关图标文件的问题!急,在线等待 JTree用加减号来展开和收缩子节点,如何实现? 请问怎么把两个表中的数据连在一块输出 JTree用加减号来展开和收缩子节点,如何实现? 急!有关页面间保留值的问题 服务器上系统时间明明是2003-7-31 16:00:00 用asp的now()时,变成了2003-7-31 下午 04:00:00 ? 怎么写陌生人的关爱的作文 输出电压5v电流500ma,在并联电路里,马达5v80ma,灯3v22ma,电阻277欧.输出电流500ma,对灯和马达的寿命有没有影响?3v的灯接的277欧的电阻对不对? 世上有眼睛喷血的动物吗? 没有眼睛的动物是什么 比萨尔斜塔为什么是斜的 比塞尔斜塔为什么斜的? 郗这个字在姓氏里读什么? 小功率开关三极管用什么?要求输出电压最大4V,我负载是带发光二极管的,灯不要串联要并联 世界上有不长眼睛的动物吗? 什么动物走路不长眼 走路不长眼的是什么动物 中国向老挝移交革命领导人铜像日本安倍政权虚伪的“积极和平主义”中央第二轮巡视10个巡视组组长名单及朴槿惠称国际社会不能纵容朝鲜 需打破韩媒:朴槿惠正规划解决朝核问题的大蓝阿盟秘书长称支持卜拉希米就叙问题斡旋浙江商品房销售面积和销售额增幅“双降2014全明星赛落北京 效仿NBA常WTA南京挑战赛张帅夺冠 排名超郑洁ATP总决赛抽签:费德勒没躲开小德 林书豪哈登合演19分大逆转 火箭开局TI推出业内首款支持数字和模拟位置传2000元档谁最划算?360奇酷手机从鬼吹灯重返说起,再论天涯社区如何开“宝护”APP发布 儿童走失从此不再赖特:感谢队友找到空位的我国家防总启动海河辽河防汛Ⅲ级应急响应台湾金马奖落幕,红毯值得吐槽的也就那中医教你按摩手指,治疗百病美女吃两年保健品,整个胃烂了,医生说2016年十二生肖将走什么好运? 看一条热毛巾放在人体10个部位,奇迹发
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘