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

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



独家爆料:Facebook移动客户端开发揭秘 一个独立开发者的自白:我如何在一年赚得60万美元 Dropbox收购Snapjoy 意欲打造媒体中心 2012世界“末日”:有经过正确的分析吗?! 23.5亿美元!谷歌出售摩托罗拉机顶盒业务 两家巨头相继放弃移动广告,移动广告形势堪忧? 应用洗牌,还能免费多久?Google推出iPad版Quickoffice 2012末日APP推荐 求生自救必备! Windows8上网利器 不卡死的IE10浏览器 为何Java程序员学习Clojure有优势? 我们是如何阅读代码的? “热水冷却”技术将主导美国国防部数据中心改造 程序员想玩转大数据:需要知晓的12种工具 2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 这样的游戏一个值多少钱?请报价。 高手快进!小弟有一事不明!!告急! 取ADO的recordset对象的recordcount属性总是 -1,如何解决? 这样的网络游戏一个值多少钱?请报价。 软件发布:《加密樵夫》 软件发布:《加密樵夫》 谁有Dreamweaver4.0的注册码,我晕,555555555…~~~~~~~~~ 我曾在本论坛看到一篇“用纯ASP代码实现图片上传并存入数据库中”的文章,可是怎样实现一个页面上传多幅图片呢,高手能否帮忙看一下? 如何检测一个超链接是不是死链接 软件发布:加密专家系统 只要点一下,妹妹我就以身相许 谁有Dreamweaver4.0的注册码,我晕,555555555…~~~~~~~~~11 请问只要是线程就有消息队列,还是此线程产生window后才有消息队列?在控制台程序中,在消息循环中,当受到一wm_timer消息时,此消息将发送给那一window procedure? 软件发布:三维几何画板 CSDN有徐州的朋友吗 请教高手一个关于图像格式的问题 高手清帮忙:如何获得一个控件的电子签名认证?急,急,急! 觅有时间有经验用MAPINFO开发GIS的高手? IE 能不能同时浏览2种以上不同设置的网页? 初级asp问题 询问-----上海在哪里有软件考试报名? 怎样用SDK的方法改变文本框的前景色和背景色?(内空) 能推荐几个有关COM、ActiveX技术的网站吗?每个10分不够再加。 请问ljhua,ASP网页怎样调用*.bat文件,是服务器上的还是客户机上的bat? ****************** 先散掉点分,省得走的时候累赘 ****************** UNICODE和WinMain 一个空战游戏,附源程序! 创建WebSnap应用程序(一) 请教一个http错误号 vs.net安装(2) 请教高手,怎样使用信使服务向局域网内的其他用户发通知? 使用过DeviceIoControl的高手请进: 不知用过jbuilder5的朋友有何感想 如何用程序中断拔号连接? DLL调用 搞什么鬼?不给超过三次? ADOTable如何查询数据? 软件发布:小精灵 vcguy,come on! 我在用resin做标签库时遇到问题,请大家帮忙。 没有源代码的情况下,由*.DLL该如何生成相应的*.LIB文件? 那位先生对 Oracle Spatial比较感兴趣~~~~~~~~~~~~ 如何在电子邮件中加入JAVA语句,重谢!!! 我不知道~ 竟猜: 成精的狐狸不是狐狸mm就是狐狸jj。那HolyFire 是狐狸jj还是狐狸mm呢?? 软件发布:图标精灵 请问在网上怎样发传真! 为何我的表只能做一页 怎样从显示名称获得它的PItemIDList ********如何在窗体中动态的创建组建?********来者有分 笔记本电脑和台式机怎样连起来传输文件! 在括号里填上符合条件的最小自然数( )÷( )=19······6 将1-12分别填入图中的12个小方格内,使得每条边上的四个数的和相等,这个和最大是多少? 把19分成若干个自然数的和,如何分才能使他们的乘积最大 8[ ]8[ ]8[ ]8=2括号里填多少 将-8,-6,-4,-2,0,2,4,6,8这9个数分别填入图中9个方格中,使得每行3个数,每列3个数 把19分成n个自然数的和,怎样分才能使它的乘积最大. ( )+( )=( )( )-()=( )( ) 把这几个数字填到括号里去 任意画出由九个数组成的方框,设中间一个数为x,这九个数的和y,试用含x的代数式表示y 1.把19分成几个自然数的和,要使这些数的乘积最大,应该怎么分?最大的乘积是多少?2.甲、乙、丙三乡各出等量的钱,购买若干辆汽车,买好后,由于丙乡需要量少,结果丙乡比甲、乙两乡各少要15辆 在括号内填上合适的数字(不能重复)1/( )+1/( )+1/( )+1/( )+1/( )+1/( )+1/( )+1/( )=1 如图是某月的月历,用正方形圈出九个数,设最中间一个是x,则用x表示这9个数的和是? 把19分成若干个自然数的和,如何分才能使自然数的乘积最大?最大值是多少?要算式解. 一道数学题2()-()2=()7括号里的数该填几 从月历中框出3*3九个日期,他们的和有怎样的规律?将方框向左向上移动一格,这九个数的和会发生什么变化. 把19分成几个自然数的和,这些加数的连乘积最大是? 1/5=1/()+1/()【括号里填不同的数】 如图,机械手要将一个工件从图中A处移动到B处,但是这个工件不能碰到图中的障碍(不包括坐标轴),试用坐标写出一条机械手在移动中可能走的路程 已知四个互不相等的整数的乘积等于9,这四个数的和是? 4 4 4 4=16 顺序不变,中间要填什么符号才能等于16 设在排成每行7天的月历表中某数是a,那么它下方第1个数是几?用代数式表示.这是几次多项式? 已只4个互不相等的整数的乘积等于9这4个的和是几快 9 7 21 5 8 14 ( ) ,问:括号里填什么? 设在排成每行7天的月历表中某个数是a,那么它下方第一个数是几?用代数式表示,这是几次多项式? 一个整数和一个小数的乘积等于它们的和,求这两个数. 1.8分之3,12分之3和12分之2 2. 17分之5,16分之9和17分之9 小到?1.8分之3,12分之3和12分之2 2. 17分之5,16分之9和17分之9 小到大排列.%D£.14分之4,9分之4和9分之7 小到大排 把1,2,3,4,5,6,7,8,9分别填空在正方形的方格 某月的月历上连续三天的日期之和不可能是( ) a.18 b.78 c.65 d.9 在比例12:7=48:18中,如果第二项增加他的七分之二,那么第三项必须减少他的[]才能组成比例 把2.3 2.4 2.5 2.6 2.7 2.8 2.9 3.0 3.1分别填在9个格子里,使横竖斜行都得8.1 你能否用方框在如图的月历中圈出9个数,使这9个数之和为171?如能,请说明理由;如不能,在下一个月的月在下一个月的月历中能否圈出?为什么? X-二分之五乘以X=二十五分之十八方程题,我不会打分数 把0、1、2、3、4、5、6、7、8、9分别填在方框里怎样填? 口+口=口+口=口+口=口+口=口+口 在2008年12月的月历上能框出和是80的9个数吗?能框出和是180的9个数吗? -18-25=? 1、将九个连续自然数填入3*3的方格内,使得每行、每列以及每条对角线上的三个数的和都等于66.2、将图中的数重新排列,使得每行、每列以及每条对角线上的三个数的和都相等.(22 )(30 ) 2008年12月份的月历卡,一共可以框出几个不同的和?长方形的长是3,宽也是3!(每次都要框9个数) 数学题(填括号)~!谢谢3:4=24分之( )=( )%=( ) 小数 在九个方格中填入-8、-6、-4、-2、0、2、4、6、8使每行,每列,每条对角线上的三个数等于零 在2008年12月的月历上能框出和是80的9个数吗?要方法! 括号里填什么41、 28 、 27 、 83、( )、65A、36B、30C、45D、54 将数字1,4,5,6,7,8,9分别填入如图的方格中,要求每个格子中的数字都比它左边格子中的数字和上边格子中的数字大,问:共有几种填法 将0.3;0.6;0.9;1.2;1.5;1.8;2.1;2.4;2.7九个数填在方格中,使各行个列及对角线上的三个数的和均相等 1/12=1/() 1/()括号里填什么自然数 1、2、3、4、5、6中选出四个数字,填入方格里,使得右边的数比左边的大,下面的比上面的大,几种填法?图是“田”字图 将0.3 0.6 0.9 1.2 1.8 2.1 2.4 2.7九个数填在下面的方格里,是各行各列及对角上的三个数的和均相等. 1/12=1/()+1/() 括号里要填不同的自然数 从1、2、3、4、5中选出四个数字,填入下图的方格里,使得右边的数比左边的大,下面的数比上面的数大,一共有多少种不同的填法一个3列2行的表格,最右边的一列上行是6下行是7 把-7,-5,-3,-1,1,3,5,7,9这九个数填在九个方格内使每横的三个数每竖的三个数以及对角线上的三个数的和相等 三个连续自然数的和是27,这三个数的最小公倍数是( ). 九个方格,第一行左边一个数是3,第二行左边一个数是6右边一个数是2,在其他空格中填上什么数字才能让...九个方格,第一行左边一个数是3,第二行左边一个数是6右边一个数是2,在其他空格中填 把2,3,4,5,6,7,8,9,10这九个数填到九个方格中,使每行每列,以及对角线上的各数之和都相等 七个连续的自然数 最大的两个数的和比最小的数大1998 那么中间的那个数是?要用方程和等差数列来解 从1,2,3,4,5中选出四个数,填入图中的方格内,使得右面的数比左边的数大,下面的数比上面的数大,那么有多少种填法,写出算式.图片为长方形分成四个填数… 0.1.2.3.4.5.6.7.8.9这一组数字当中,分别填到方框里(每个数只能用一次),使三个算式成立(至少写两个答 已知:2^a·27^b·37^c=1998其中a.b.c为自然数,求(a-b-c)^1998的值 把-1、+2、-3、+4、-5、+6、-7、+8、-9填入图所示的的方框内(3×3),使得每行每列每一条对角线上的三个数都满足:1.三个数乘积都是负数 2.三个数绝对值得和都相等. 将0、1、2、3、4、5、6这七个数字分别填入下面算式的方框内,每个方框内只许填一个数字,使算式成立( )x( )=( )( )=( )( )除( ) 七个连续自然数的和,最大的两个数的和比最小的数大1998那么中间的那个数的和是多少?要求出中间那个数算式怎么列? 如图,在另两个方框内各填入一个数,使前两个数之和比后两个数之和小5,且三个数之和为0-3 ( )( ) 用0.1.2.3.4.5.6.7.8.9这10个数添在方框里,试下面的3个算式成立□+□〓□□―□〓□□□÷□〓□
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn