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

VB的OPEN对话框控件图示功能扩充

HTML文档下载 WORD文档下载 PDF文档下载
VB的OPEN对话框控件图示功能扩充
安徽 刘成
Visual Basic For Windows(VB)提供了丰富的控件,但其提供的公用对话框
控件在打开文件时(例如*.Bmp和*.Pcx等)不能显示文件内容即图像,本文给
出了一个实例,可以模拟一些图形软件包在打开文件的同时显示图像,模拟和扩充
OPEN控件功能。
为模拟的扩充OPEN功能,下面给出了一个完整的VB程序,实现方法如下:
一、建立窗体
首先建立一个窗体(窗体名为OPNFILE),窗体上包含驱动器列表、目录列表、
文件列表、两个命令按钮(确认、取消)和显示影像的控件(picture或image),
下面是这6个控件的建立方法和有关属性的改变。
1、DirvelistBox驱动器列表控件
双击驱动器列表控件,在窗体上调准控件的位置,控件名称为“Drive1”。
2、DirlistBox目录列表控件
双击目录列表控件,在窗体上调准控件的位置,控件名称为“Dirl”
3、FilelistBox文件列表控件
双击文件列表控件,在窗体上调准控件的位置和尺寸,控件名称为“Filel”,
修改“Pattern”属性为“*.bmp, *.pcx”。
4、Command Buttom命令按钮控件
双击命令按钮控件,建立命令按钮,第一个取名为Command1,修改Caption属
性为“确认”,第二个取名为Command2,修改Caption属性为“取消”。
5、显示影像的控件
既可以选picture控件,也可选image控件显示图像,以image控件为例。双击
image控件,调准矩形框的大小和位置,取名为imagel,设置strtch属性。strech
=false时,图形以原尺寸显示。
二、事件过程的建立
1、驱动器更改事件过程
Sub Drive-change()
①Dirl.Path=Drivel.Drive
②ChDrive Drivel.Drive
End Sub
其中①当驱动器发生更改时,改变目录路径;②更改路径。
2、目录更改事件过程
Sub Dirl change()
Filel.Path=Dirl.path
End Sub
该事件过程是对目录发生更改时,作出文件路径更改的响应。
3、文件列表单击事件
Sub Filel-click()
Imagel.picture=loadpicture(Filel.path+”\”+Filel.FileName)
End Sub
单击任一图形文件名时,在image控件框上显示图像。
4、命令按钮控件
Sub Command1-click()
F1$=Filel.path+”\”+FileName
End
End Sub
Sub Command2-click()
F1$=” ”
End Sub
F1$为选择文件名称,供软件使用,若用户单击“取消”按钮,F1$为空串。
单击驱动器名可以改变驱动器,单击目录列表中某一目录可以更改目录,单击
某一图形文件可以显示图形,在文件列表中按“↑”或“↓”键,可以随着文件名
的变化,图像框中的图形也随之发生更改。
F1$可以供应用程序调用,其中包含驱动器名、目录和文件名。



微信公众平台设备功能支持个人开发者接入 2014中国移动开发者大调查第三批获奖名单曝光 微信企业号上线,带你看看它的真面目! OpenStack Juno版本发布——支持Spark和NFV 【十问十答】对话Go语言开发团队 苹果要求、Android开始,64位时代真的来了! MDCC 2014产品与设计论坛:带你发现产品之美 Java开发者值得关注的7款新工具 助力国产移动产品出海,UCloud部署北美节点 Zack Parker:用EC2在Cotap上打桩 用卫生棉杀敌冲关!两个高中女生的创意游戏 专访《Java程序员修炼之道》作者Ben Evans:保守的设计思想是Java的最大优势 Google收购Firebase 帮助程序员快速开发出移动App和Web App 微信支付开发关键点技术解析 游戏任玩!开源虚拟现实头戴式设备Open DoVision MDCC大会召开倒数10天 看Twitter、Facebook和国内“BAT”三大巨头最新动态 《近匠》Wijmo 5 CTO:从Web到移动,我的25年编程生涯 重复充电、防丢失!多功能智能行李箱Bluesmart 【设计经验传承】图标设计初阶要先型 “光年”光纤路由 支持千兆网络的家居中心 MDCC 2014移动开发技术与平台峰会:知名应用技术大牛传授实战经验 Unity生态圈将变?EA前总裁接替创始人任新CEO 第九届中国Linux内核开发者大会在京举办 《近匠》爱拍SDK:手游录像分享 爱拍才会赢 Mark走起!iOS开发最常用的第三方库 【CTO俱乐部读书会】《人件》译者肖然:软件工程是社会学 错过就要等一年 深圳微信开发者大会不容错过的十大理由 【干货】国外程序员整理的 C++ 资源大全 一周消息树:被投资人“送”入看守所,创业人汪洁有罪还是无罪? 聚焦五大主题 Atlassian Summit 2014精华PPT下载 2014中国移动开发者大调查第四期获奖名单曝光 我发现JSP一个奇怪的问题???想要看看吗???进来呀!!! 昨晚2点多一个mm突然打电话找我聊天,各位觉得我有戏没? 哪里有完整的MINE解码组件 为什么我装完FreeBSD系统启动时Sendmail启动的特别慢,telnet时也很慢。 小弟初学JSP,想搞点源代码来学习学习。 难搞的MIDAS 局域网的问题,急死了, vb中继承及分辨率问题 ASP里有没有带下拉框的输入框? 象素数据和图象数据 公司的一个数据库被人del,现在想查查是谁什么时候做的? 为什么我的窗口无法操作 关于oracle数据库增量备份土土的一问。 ArrayList问题 请教:在CB6下面怎么用 TMediaPlayer 控件来录音? 南开的vb习题集!!! 请问:如何在servlet中获得当前时间和当前日期?菜鸟问题,请见谅。 为什么我的opendialog不能返回filename,而返回了一个 $符号 大家对购买tcl笔记本等国产笔记本有没有什么建议? 第一次用vfp,新手提问? 请问哪位大虾知道,Crystal 7.0如何记忆上次打印该报表的打印机 纸张大小 纸张方向 边界设定等 如何自动生成新页? 显示器问题!! [代码发布]使用 Lostinet.SqlScope 4.0 实现高效的SQL SERVER应用程序 关于Decode函数的问题 WIN2000下的关机问题?请高手们想想办法! 寻找一个叫dingke的朋友,我将把邮箱给你,但我不小心弄丢了你的联系信箱,请速与我联系 请问:Dialog中可以重载LButtonDown事件吗? 如何用pb实现远程关机!!求救! 高分请教:zip密码遗忘 如何显示一个word 格式的文档,分不够可以再加 怎么获取本机IP。 ★★★★★调查最好的旅游地点!!★★★★★ 高分请教:zip密码遗忘 OUTLOOK公佈網路資料夾的問題 为什么我作的程序都无法运行呢?帮帮忙,多谢多谢 "select * from db where dm='000001' and scbz<>1 order by fsrq desc"为何会出错? 大家对购买tcl笔记本等国产笔记本有没有什么建议? WAP2.0与之前的版本有何不同? SQL2000如何解决还原数据库时的错误 工作台上打开数据库对话框中服务器项中的记忆性值...? 挑战无处不在!!!!!!!!!!!!!!!!!!!!! 这个程序是什么意思啊?? 请教:xml 不支持无值属性,以下我该怎么办。急,在线等。100分恭候 jb整合resin出现的难题! 永远的秋天 为什么我的openoffice中打的汉字无法在页面上显示? 请解释下面的问题 怎样把字符窜(edit.Text)转化为十六进制数 寻求PHP开发人员合作 怎么样用 VC开发 COM 加载项 (Office 插件 如:FOXMAIL的 Word 插件)? 谁能帮我把这写详细点? 在三角形ABC中,a:b:c=2:4:5,则(sinA-sinB)/sinC的值为 遗传物质的载体可以是线粒体或叶绿体吗 谁能给我写个比较长的新年贺词啊 明天要在全家人面前念 要长一点的我实在是不知道怎么写了 求高手给代写或推荐一篇 写清楚点 在三角形ABC中 a(sinB-sinC)+b(sinC-sinA)+c(sinA-sinB)的值 大气圈的主要成分是什么拜托各位大神-------和------. 冬眠灵的主要成分?求大神帮助我想知道由几个成分组成? 西亚1.西亚的石油海上输出线路主要有几条2.目的地主要都是哪些地区和国家3.请依次将各条线路分别经过的海洋 海峡 运河写出来 如图①,A、B、C三个容积相同的容器之间有阀门连接.从某一时刻开始,打开A容器阀门,以4升/分的速度向B容 人口死亡率和什么有直接关系,为什么? 荷兰边城见证《马约》风雨20年美国全球监听引发网络空间深刻变化中国军医表现突出 荣获厄瓜多尔最高荣党报刊文称回避养老双轨制其他改革恐难北京“10·28”事件受伤人员得到全台湾强震众生相:卖场员工拔腿跑 陆客“杀光中国人”事件彰显华裔维权的决心河南100多公里路200人执法 司机财政部:压缩各地公共财政预算结余结转国资委:国企改革方案争取三中全会后出北京禁止中小学售卖碳酸饮料 不利于学青岛:自贸区战略里的淘金者首届赣州家具产业博览会开幕人民日报海外版:用唯恐天下不乱来形容海外专才聚首南通藏族娃他乡学包粽李克强会见施瓦布阎连科获卡夫卡文学奖中国“高端洗护年”,索芙特的腾飞年新二环 同心环绝不允许在中国家门口生战生乱廉洁过端午 市纪委要求“五个严禁”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘