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

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$可以供应用程序调用,其中包含驱动器名、目录和文件名。



$(elements)-JQuery API $(expr, context)-JQuery API $(fn) -JQuery API $(html) -JQuery API $.extend(prop) -JQuery API $.noConflict() -JQuery API each(fn)-JQuery API eq(pos)-JQuery API get(num)-JQuery API get()-JQuery API gt(pos)-JQuery API index(subject)-JQuery API length-JQuery API lt(pos)-JQuery API size()-JQuery API CSS-JQuery API css(key, value)-JQuery API css(name)-JQuery API css(properties)-JQuery API height(val) -JQuery API height()-JQuery API width(val)-JQuery API width()-JQuery API DOM-JQuery API addClass(class)-JQuery API attr(key,fn)-JQuery API attr(key, value) -JQuery API attr(name)-JQuery API attr(properties) -JQuery API html(val)-JQuery API html()-JQuery API 无聊,大家进来说说笑话提提神吧。(凡提供者均有分) Weblogic 死锁的问题 紧急求助,关于dll调用的问题,大侠们请进来指点,指点. VB中用类好吗? 如何定义一个按钮的ID 机子无故重起并显示begin dump physic memory 请问高手,我从OnStkDataOK(var Msg: TMessage);中得到的Msg.LParam值是真实的值还是值的地址? 如何实现Form中的下拉列表框可以输入,又定位的功能呀,急呀,多谢了! VB的API文本查看器,如何使用??? 很简单的问题:在表单上有n个复选框,通过一个按纽,我想获取那些复选框被选中,并返回它们的name数组! 关于组网的一些问题 别人抱怨接分难,我抱怨散分效率低 想考高程但不知买什么参考书大家帮忙 菜鸟问题:各位大侠帮忙看看 如何给panel加滚动条,请教 关于程序编译的问题: 问一个数据库文件的问题! PB7 连接 MSSQLServer 6.5为什么需要那么长的时间并且内存要占用100多M? 关于使用VB6创建的控件后的部署问题 Delphi与bcb有何联系与差异 关于WIN2000网络上的问题 盼高手来解决,阿菜勿进 我用PHP通过ADO连接ACCESS 为什么i=很大 怎么样改变statusbar的某个Panels的字体颜色 如何制作MID窗体的背景图片平铺? sqlserver有一个带参数的存储过程,为什么不能生成DW.?? 急(送100分):多个image控件如何用imagexxx使用? 如何得到CPU的时钟频率? 各位大佬,0x1 是什么? 一个页面只让一个用户来修改 请问哪儿有Lotus Notes C API的教程?以及要进行编程必须进行哪些配置? PB7连接MSSQLServer6.5的时候为什么需要那么长的时间和占用100多M的内存? 推荐在代理服务器上安装什么邮件网关软件? 在线等待 请各位帮助 如何得到开机时间? 我想把smalldatetime类型显示为“yyyy_mm_dd 00:00:00” 急须一个完全免费的MP3刻录软件 怎样修改xml的节点的值? Tabpage(子项)可以改变颜色,但Tabcontrol(父项)改变不了颜色。高手帮忙。 MM说:“你可真够没良心的!”! (邀请水园MM请参与) 测试流程! 在用ADO时如何判断在所取得的记录中,值为null的的情况 急(送100分):多个image控件如何用imagexxx使用? 关于数组的问题。 Weblogic 死锁的问题 想到亚信去,请各位兄台给点建议!(有分!) 请问能不能用System.Drawing对象在一个页里里画多张图? 索引和自增字段 关于对话框? 求能人?或给思路 请问哪儿有Lotus Notes C API的教程?以及要进行编程必须进行哪些配置? 100分求助:怎麼判斷數據庫服務器存在與否? 杭州或将设立老旧电梯专项资金PM2.5低于20 杭州顶级蓝天令人浙江省委书记夏宝龙调研宁波城市建设杭州地铁二期建设计划基本完成报批程序西方政客:不顾“家”没前程 “婚外情德国经济部长预计希腊仍需数百亿欧元援新加坡飞印尼班机因当地烟霾恶化被迫返叙总统工作未受西方动武影响 每晚下榻韩国国土部将对解放前后半岛航空照片数日媒称安倍要在美国华尔街讲“安倍经济西班牙小镇不堪130吨西红柿费用 \威尼斯电影节主席看好中国电影市场美媒:对叙动武 奥巴马在国内外都“赢福岛核污水泄漏事故等级上调 安倍称政沙特“巫术战争”:信主不信巫美国:涨工资拯救低收入者?日媒谴责潘基文涉日历史言论 韩媒批其杭州信息产业工程重点扶持信息软件和电杭州新增两条东西向的育英路和余杭塘路杭州昨天PM2.5的平均浓度值为18宁杭甬高铁车次停靠站发布 杭州东站6“双11”挖的坑,你跳了几个?95后闽剧“小鲜肉”都要出道了谢依霖被“虐”到毁约乌克兰东部重回“激战状态”新旧土豪战 福建女排盼开门红小学生治污建议获评“优秀论文”球迷闹赛场 篮协开罚单供电故障 高楼电梯停摆货车侧翻 条石砸死路边女子U我家庭保洁不一样的钟点工传田亮录节目遇车祸 回应:拍摄中的小11·11停电也有叫好的信报箱也能收小包裹球迷闹赛场 篮协开罚单女老板回应:此举为留住人才“洋黑工”遇上“冠希门”拆弹英雄于尚清去世省政府任免一批厅级干部福建队外援为啥会“无证”?罕见!奥巴马致信哈梅内伊上天猫京东血拼 这些猫腻你可知
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘