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

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(四川 陈东)



Facebook开源移动网络测试工具Augmented Traffic Control 用JavaScript开发移动原生应用,Facebook正式开源React Native! 《知性》,探寻移动化社区的敏感带 【程序员电子刊精选】技术人员如何参与产品设计讨论之激活那一潭死水 Google开源代码构建工具Bazel 长点心吧!为啥健身应用让你越减越肥? 微信公众号能删除单篇文章了 安卓Android手机应用开发入门书籍推荐 自动释放内存!Facebook推出强大Android图片库Fresco 《近匠》AR学校:从教育领域看增强现实机遇何在 专访Mellanox CEO Eyal Waldman:InfiniBand与以太网齐驱并进 性能更胜一筹 IM助你打造千万级App——容联•云通讯线下沙龙 乐视智能硬件再发力,超级自行车今发布 专访格灵深瞳CTO赵勇:为&amp;quot; 计算机视觉&amp;quot; 赋予智慧的光芒 【程序员电子刊精选】水火不容?研发人员也是产品经理! 如何打动用户?携程用户体验实践分享 【征文】Java二十周年特别策划——谈谈我与Java的那些年、这些事 Facebook的愿景以及虚拟现实的未来 iBeacons一年回顾 英特尔中国30周年之际 IDF上你需要了解的5件事 OpenCloud 2015参会者的三大特征(附列表) 友盟移动互联网趋势报告解读:垂直领域应用竞争白热化 墨腾动漫CTO吴建学:初创公司的生存之道 亿航与高德达成战略合作 LBS+引爆智能硬件软实力 《近匠》火柴手写码,输不错的验证码利器 Web、App中添加动效设计应遵循的12条原则 越狱与开源:2015移动安全峰会(MSS)纪实 开发者自白:我是如何不花一分钱收获230万应用下载量的! OpenCloud 2015报名超预期 近20位讲师会前采访提前看 硅谷公司人才招聘那些事儿——硅谷“超级面试官”董飞专访 一切为了用户体验:揭秘京东首页改版背后的故事 IIS6 的问题(Win2003中文正式版) 问个数据包的问题 我学C++BUILDER的困惑之处 sprintf 的用法 我是初学者,为什么类型“TextBox”的控件“FullName”必须放在具有 runat=server 的窗体标记内 查询问题.关于sql关联查询。谢谢 请教一个调用进程的问题,急,在线等待 可以不可以把表名称做为存储过程参数?急,求各位大侠指点 关机问题 如何准确的统计并显示谁在线? 一些事情,你永远无法解释 查一个有关截取字符串的函数 在VS.NET中怎么查看一个服务器控件所支持的事件? 编程时遇到的3个小问题,急,在线等马上给分! 可以实现颜色渐变条背景吗? 请问如何完全编译程序?(30分相送)急!急!急! 一个聊天机器人的编程思想(JAVA)!300分!言而有信! 新手问题 请各位指教一个运行程序出错!调试完给分! 关于速达财务的问题 怎么样改变一个控件的颜色? 在VC里用STL的话,如何实现类的序列化..如果不用STL呢 去除字符 我打开帖子后,显示的字体是楷体,看不清楚,请问是怎么回事,怎么改过来? 技术难题,希望大家帮忙解决,谢谢。 c加上API编程 遇到的问题??? 在mainfram中增加了一个dialog(CG_IDD_SEARCH),对应变量 m_Search 我不知道这是什么错误? 请问C#中如何截取字符串最左边n位? 在插件的dll中生成activeX控件,但我在创建控件的时候出错! 为何我在一个程序中使用Dim tbs As Connection,可以使用tbs.Open,在另一程序中 谁能给B/S和C/S结构下一个清晰的定义?? 请大家从深层次谈谈“非典”对软件公司的各方面影响。 我该怎么办?有道理的给分。 晕了,安装MS SQL SERVER2000的时候,界面停在MSDTC就不动了,怎么回事情? 有谁用过adobe的生成pdf文件的java package???? 如何往串口的发送脚送出一个持续10ms的低电平? IIS6中文件上传程序为何只能传小于200K的文件? 在win中删除了桌面快捷方式,怎么恢复??求助! 大虾们图书管理系统中图书与管理员表到底要不要建关系 请教模糊查询,!!!!! 怎么样用asp实现阴历的查询??? 请高手赐教!! 大家帮忙:为什么我在调试程序时不能跟踪进入VCL的方法代码? JSP调用session的问题? ....同一用户不能同时在线两次的完整解决方法......在线等 批量数据提交 cqzyf 接分 1 问个VC6.0里面的1个小问题! 怎样使一个按钮成为默认按钮? 小问题,高分请教用滑动条制作的调色板问题。 部分火点失控大量人员撤离 山火大爆发巴西民众抗议政府私有化政策 中石油中叙武装分子公布被绑架俄公民视频 真伪洪都拉斯登革热疫情加重 已致27死3美日澳拟举行联合军事演习 日媒称或为27号强台风逼近日本 安倍指示万全对美媒指俄文化中心在美招募间谍 俄官方哈里王子女友获邀参加乔治洗礼式 二人美国少女携枪照顾男童 致其玩枪走火把美国男孩携玩具枪街头把玩不肯放下 被挪威称曾试图阻止一名肯尼亚恐袭男子加民调:无财务安全感 37%美国民众自泰国一旅游车刹车失灵掉下悬崖 致17贝卢斯科尼涉嫌行贿议员 要求其改变政调查称美国超6成手机用户每次醒来都会美媒称美巴首脑会谈显示两国“离婚”情叙武装分子公布被绑架俄公民视频 真伪雷神公司获30亿美元SM-3 Blo英国大型超市取消大包生菜买一送一以减民调:无财务安全感 37%美国民众自美国男孩携玩具枪街头把玩不肯放下 被北大一机构培训领导干部30天收19.主场收官战建业3 0完胜杭州绿城 保1至9月黄标车老旧车全国共淘汰近40花钱删帖可能涉嫌违法香港“占中”非自发接受境外“特训”者河南昨迎四级大风吹走雾霾 本周降温明粤媒曝王仕鹏新娘资料照片 名叫李跑生范加尔:曼联本该战胜切尔西 红牌并未解决存量小产权房不能遥遥无期海峡组合连丢12局遭横扫 获总决赛亚徐长银:希拉里的美国梦为何物?罗塞夫连任巴西总统英军结束阿富汗作战 13年间共453临时性机构的症结在于常设机构海峡组合惨败结束合作 两人分歧明显引较强冷空气将影响新疆 长江中下游等地媒体预测显示美国中期选举共和党掌控参聂卫平:只看欧冠世界杯 看中超就是在马布里称将全力率北京首钢男篮卫冕刺激主义应该退出宏观政策舞台美英作战部队正式结束在阿富汗行动
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘