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

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



百度、饿了么、美团专家齐聚SDCC2015,剖析前端开发核心技术 【SDCC讲师专访】百度乔刚:前端可视化难点分析及探索实践 【CTO讲堂】Growth Hacking背后,数据分析平台的架构调整 BAT、巨杉、南大、柏睿等齐聚SDCC—新一代数据库专场议题曝光! 《近匠》BeeCloud创始人黄君贤:三行代码集成支付的技术实现 【SDCC讲师专访】AdMaster技术副总裁卢亿雷:分布式数据库挑战与分析 tvOS真的代表了应用的未来吗? 使用Fetch API和ES6生成器构建异步API Android应用性能优化实践 华云数据:OpenStack的技术践行之路 【SDCC讲师专访】腾讯潘安群:腾讯云金融级数据库TDSQL分析 高颜值、高品质——安全技术论坛议题曝光! 移动应用开发者正饱受折磨 在Android平台上加载本地库的危险性 《近匠》程序员客栈,程序员背后的经纪人 【CTO讲堂】浅析工业级物联网项目的快速开发 云适配陈本峰:平台型企业级浏览器是未来办公移动化的核心 警报:XcodeGhost已扩散至第三方框架 我们眼中的应用另一端是什么? 【SDCC讲师专访】百度马如悦:不写代码的架构师不是好架构师 企业级应用避免臃肿混乱的6大黄金法则 SDCC 2015讲师专访精彩集锦:程序员界“香饽饽”、大神级人物都在! 从技术经理的角度算一算,如何可以多快好省的做个App(一) 【SDCC讲师专访】Java泛型作者Gilad Bracha:优秀的程序员应该未雨绸缪 【CTO讲堂】微服务架构在云端的应用 SDCC 2015创业项目路演火爆征集:寻找中国好项目 被遗忘的设计模式——详解Swift语言中的Null Object Pattern Synaptics发布全新触控及生物识别方案,正式进军车联网 无人机、机器人,英特尔RealSense已扩展至新领域 SDCC 2015中国软件开发者大会盛大开幕 《近匠》逸创云客服创始人叶翔:做好客服产品静待SaaS大爆发时代的到来 Cannot open "Javac.exe"--菜鸟问题 请问怎么样实现Date的加减呢?? 怎样得到下一天的日期 前段时间出差,最近有忙着考研,没时间上网,散分 确认页面问题。 AfxMessageBox话框标题问题 不是我重复,只是这个问题让我发疯,旦求解决这个问题,死而无怨 smtp认证发信的源代码 在DLL中如何知道自己父进程(ParentProcess)的路径和文件名? cview里的precreatewindow和cframewnd的precreatewindow应该调用那个? 如何在dw4中给已做好的FLASH动画加上超链接? 关于Jmail组件的问题! 袁飞请进! redhat linux下jbuilder安装问题!!!帮帮忙!! 怎样得到一天的起始时间,例如:今天是2001-11-1,则我希望得到:2001-11-1 00:00:00 求教CEditView 华硕P2B主板怎么装联想商博士6xxx的内猫,猫是好的,可插上后怎么也找不着,怎么办? CSDN的服务器太差劲了!老是结不了分的! 有没有第二种方法加入2000的域呢?(详见正文) 时钟的实现初始化问题?? 我今天买了一本,这本书如何? 那儿有perl for win32的开发资料下载的! 我想知道鼠标在COMBOBOX上移动时所处的选项,在LISTBOX上可以实现,在COMBOBOX上如何实现,它没有MOUSEMOVE事件。 请问怎样自动捕捉网格啊? 定义以下变量,并以赋确定的值:char w;int x;float y;double z;则表达式:w*x+z-y所求的值的数据类型是什么 为什么我的treeview 值都成了双份的呢??? 哪人在线观看的源代码?比如:CIH,I LOVE YOU 怎样自动捕捉网格啊? 本人就快作毕业设计了,想作个vc项目,大家给我点意见吧! 怎么把CByteArray型数组转换成char*型. 关于纯资源DLL的问题! 超难问题:如何将一个EXE转换成SWF? 关于PHP程序员工资待遇问题的讨论! 网页中嵌入ActiveX控件,遇到的问题。 问个比较简单的问题:关于ASP上传的 送分啦~~~~~~~用什么方法可以获得鼠标的移动到那里的句柄(包括窗体和环境),就向SPY++里面的findwindows一样的功能 关于vb数据库的问题,请教了!!!!! 1982.12.12,2001.12.12是19岁生日还是20岁生日? 寻找调查投票程序,66分 在printf格式字符串中,用于输出字符串的格式字符是什么? 哪里有这样的jsp程序 轻松一分钟,统计一下看流星雨的程序员们是单身还是成双成对? c语言程序的基本单位是什么? 是什么原因产生stop:0x0000001e故障的,有办法解决吗 如何虚拟键盘输入?急!!! 请问怎样才能将用户选择的行或列在打印预览窗口中? 如何获得所运行的进程列表 设i,j,k均为int形变量,执行下列语句:for(i=0,j=10;j<=j;i++,j--)k=i+j;则k的值是多少? 怎样把kv3000解密到一张软盘????? 是高手的进来赚点分(全给) delphi中如何定义过程与函数,请帮我各写一行带参数与不带参数的例子, 盐水中有1g食盐和100g水十盐占盐水的几分之几 已知sin求cos怎么求如题 甲圆的半径是乙圆的4倍,甲圆的周长是乙圆的( )倍;甲圆的面积是乙圆面积的( )倍. 4.06等于多少克 Sin15度=cos多少度 甲、乙两个圆,甲圆的直径等于乙圆的半径.①写出甲、乙两圆的周长比.②写出乙圆和甲圆的面积比甲、乙两个圆,甲圆的直径等于乙圆的半径.①写出甲、乙两圆的周长比.②写出乙圆和甲圆的 ()米增加4分之1等于4米 cos平方35度+cos平方55度+cos15度cos75度= 甲圆的面积是乙圆的3分之1,甲乙两圆的周长比是多少 由碳酸氢铵和碳酸铵组成的白色固体混合物.称取溶于水配成1L溶液然后向溶液中加入足量氢氧化钠并加热.收集到气体22.4L (标况) 在往溶液中加过量盐酸, 又收集到气体13.44L 求此混合物中 cos75的平方+cos15的平方+cos75乘sin15的值 若甲圆的周长是乙圆半径的三分之一,大圆的面积是763.02平方厘米,小圆的面积是多少平方厘米? 碳酸氢铵溶液中加入过量的氢氧化钠溶液方程式 如果解cos平方75+cos平方15+cos75*cos15 sin15° 一条长90m的排水沟,5天挖完,平均每天挖这条排沟的几分之几?平均每天挖多少米?请烈算式 一个圆的周长缩小为原来的2分之1,它的直径和半径也缩小为原来的几分之几 sin15度cos165度的值是? 一条90米得排水沟,计划5天挖完,平均每天挖着这条沟的几分之几平均每天挖多少米 把一个直径是30厘米的圆缩小到原来的3分之1缩小后圆的周长是多少厘米,接着把缩小后的圆扩大到原来的2倍扩大后周长是多少厘米 求sin15°+cos165°的值 一个半径是4分米的圆,如果半径减少2分米,它的周长减少( )分米. 圆的直径缩小到原来的1/10,圆的周长也缩小到原来的1/10是判断题,对得打√,错的打× sin15°*cos165°= 求解答 一个圆,半径增加2分米,周长增加多少 12000等于多少公顷 有一批糖果,每袋装二分之有一千克,装4袋后,才装完这批糖果的五分之四,问这批糖果共有多少千克 四除二加三等于几? 12000立方米等于多少公顷 现在有相同只数的大袋和小袋装248千克的苹果已知每只小袋装1千克每只大袋装苹果的重量比小袋的2倍多1千克它们各有几袋 sin75度*cos75度 求求求~ 12000平方米=多少公顷? 为什么9^9/9^99=1/9^90它是如何约分的?约分的原理是什么? sin75度乘以cos75度的值是多少? 5g 盐放入20g 水中,盐占盐水的(). 一个圆的周长是75.36厘米,这个圆的面积是( )平方厘米? 一个圆的半径是1分米,它的周长是( ),面积是( ). 把5g食盐倒入20g水中,这份盐水的含盐率是25%. 一堆马铃薯6025千克,已经装了40袋,每袋装85千克,剩下的平均每袋装87千克,还要装多少袋? 2π-3π/4等于多少 12000平方米等于多少公顷 一千克的蛋糕白砂糖要0.25千克,一千克的蛋糕鸡蛋要0.4千克, 圆的周长扩大3倍它的面积扩大几倍? 是实验室需要0.1mol每升的氢氧化钠溶液100mL,现有2MOL每升氢氧化钠溶液. 计算所需2M是实验室需要0.1mol每升的氢氧化钠溶液100mL,现有2MOL每升氢氧化钠溶液.计算所需2MOL每升氢氧化钠的体积.(2) 一个鸡蛋多少千克,又是多少克,多少个几鸡蛋一千克谢谢了, 如果一个圆的周长扩大三倍,那么这个圆的面积就是扩大( )急 计算:cos15°sin15°=? 用分部积分法, 15g盐放入100g水中,盐占盐水的几分之几?盐是水的进分之几 包装工人一共要帮装240千克水果糖,每袋包装四分之一,已经装完了四分之三,已经装完了多少袋 我是一名高中生,每天为了方便,在铁饭盒里放保鲜袋,就是那种透明的,仔细看还有许多小孔的,然后去打热饭菜,知道塑料受热分解会释放致癌物质,长期这样做好吗? 4√2×√6等于多少还有一道:2√3×2√2等于多少, 一共有240千克水果糖,每袋装四分之一千克,才装完了总量的四分之三,已经装完了多少袋? 一共有240千克水果糖,每袋装4分之1千克,4位工人用了3小时装了4分之3,他们已经装完了多少袋? 两个圆的面积相等,这两个圆的周长也一定相等吗 一共有280千克的水果糖,每袋装四分之一千克,已经装完了这些糖果的四分之三,已经装完了几袋 sin75的理论计算值写出计算过程 实验室欲配置0.5mol/L的Naoh溶液500ml,用哪些仪器. 一共有240千克水果糖,每袋装四分之一千克.可以装多少袋?如果只装了四分之三,你知道装完了多少袋吗? 甲圆的半径是乙圆半径的3分之2,甲圆和乙圆的周长比是多少?乙圆的面积和甲圆的面积比是多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn