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

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



请不要忽略API的安全性 发布将近?苹果在多地注册“iWatch”商标 苹果聘请某时尚公司CEO为副总裁 将负责“特殊项目” 雅虎5000万美元收购视频分享应用Qwiki 创业第一年易犯的8大错误 苹果推iOS游戏手柄,掌上游戏主机格局变天? 代码审查固然伟大,那还有其他替代品吗? 怎样维护一个成功的开源项目 麻省理工专家发布新系统Ascend,专注内存访问安全缺陷 Oracle Database 12c面临的最大挑战是开源+开放的生态系统?! 浸入式数据中心:高密度计算的新前沿 2013年腾讯合作伙伴大会要点回顾 “鼠标之父”和超文本研究先驱Douglas Engelbart去世 享年88岁 Web服务器排行:Nginx超越Apache 成为全球TOP 1000网站最常用的Web Server Windows 8之父Steven Sinofsky正式离职微软 不得接受竞争者聘用 Yelp处理1.02亿/月绝对造访人次及3900万评论的省钱秘诀 可视化:图像的主题色提取算法,是不是太高端了? 不利于写出好代码的15个职场因素 GPU Saturday技术沙龙:分享异构计算新技术及应用 微软隐藏最深的秘密武器之一——Visual Studio可作为Python IDE 历时六月,Qt 5.1正式版终于面世! HTML5全硬件加速游戏引擎:Sphinx正式公测 专访“Monster Blade”创始人:无需营销,百万下载背后的秘密 Twitter实时分析平台主要合作伙伴Dataminr:让用户不再错过重要的推文 OpenStack、OpenNebula、Eucalyptus、CloudStack社区活跃度比较 XOR的黄色大象:Erasure Code为Hadoop节省数据恢复带宽 竞争将越来越激烈:戴尔或也进军可穿戴计算市场 新技术:可直接在人脑播放广告 编程调试和诊断的五大规则 70%开发者:对现有应用推广和广告并不满意 四种方案:将OpenStack私有云部署到Hadoop MapReduce环境中 怎么将int转为CString 有的论坛采用从数据库得到帖子,有的使用shtml,有的使用xml,孰优???还有其他吗? 100分==在JSP中打开word文件的实例 紧急在线等一个很简单的问题 DTPicker 怎样和数据库绑定? 如何动态改变VB报表中Section中的一个与数据环境绑定的rptTextBox的颜色!(100分求教) datediff()这个函数怎么用哪位高手可否给小弟讲解一下急用在线等 和女友分手了,痛苦! 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 关于多个表通过相同的字段级联的问题,进来看看,一定给分! windowd server 2003许可证问题 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 求合作伙伴——推广抗非典病毒的消毒剂!!! 在表分区中,按某个varchar2的字段的值和范围如何分呢 我又來了,不僅你們煩,我更煩. 服务器端与客户端的问题 服务器端与客户端的问题 最后的问题,谢谢帮我看看 发现MS WINDOWS版的C标准库一个在BUG!!!!! 在用VFP操作EXCEL时出现无法用字段内容填充单元格问题,请各位帮忙看看. 算法 救命! 有没有rmi的好例程,一用就灵,急 fast report 和 qreport 到底应该用哪一个???(来者有分!!) 关于“数据结构书”的回应——版主莫删 如何进入另一个对话框 在一字符串中怎样取出某一个字符出现的次数. 急! infopower 2000、 3000、4000 Password?? 自定下载的问题,请教高手 如何屏蔽播放.wav文件但找不到相应.wav文件时发出的默认声音? 如何打开另一个对话框 政治因素对我国军事专家的困扰[ZT] if ((btime==null)&&(etime==null )) 请教 一位女同事辭職,一位男同事說跟我有關,鬱悶中... 请问如何在B/S模式下,在页面上实现,如word,excel中的编辑功能? 如何画一个二元函数的图象 急!高分求教:Epson TM U300微型打印机打印作业丢失问题!(100分) word中如何做浮动窗口或按钮等? 大于255个字符的SQL语句如何来写?在线等待 請大家不要煩這種貼子,我都更煩.我是沒有辦法了 兼职Java软件工程师 怎样去掉用户输入的字符串里的引号? 如何获得 表中定位的 消息? 在keil下的debug session下遇到的问题。 高分相送,不够另开贴相送 有没有类似数字里的sum函数对应的把文本连接起来的函数啊 It hosts Microsoft ActiveX® Controls and supports the OLE Control '96 (OC96) specification for windowless controls请帮忙翻译 数组的问题 关于CString.Format的问题! 送分问题!!请问怎样在客户端用sqlplus连入远程数据库!save me! 已知△AOB的顶点坐标分别是A(4,0),B(0,3),O(0,0),求△AOB外接圆的方程. 孟子原文到底是 天降大任于是人也 还是天降大任于斯人也?我要证据 课本上的不算要尊重原文啊 虽然意思差不多 原文到底是啥. 女字旁,右边可字,这个字念什么音, 已知△AOB的顶点坐标分别是A(4,0),B(0,3),O(0,0),求△AOB外接圆方程. 孟子的“天降大任于斯人也”后面是什么? 从1831年到时2011年一共有多少年 化简m-n+3(m-n)-5(m-n)的结果等于 初四数学二次函数图像,16题,求讲解, 2011年2月5日至2011年10月24日共有几天如题!快速. 已知集合M={x-y,x+y,xy},P={x²+y²,x²-y²,0},且M=P,求实数x,y的值. 求f(x)=2cos(x+π/3)-1,求当x∈[π/6,π]的最值 求f(x)=2cos(x+π/3)-1,求当x∈[π/6,π]的最值 2011年2月份有多少天? 外偏旁口内一女字怎么读如题 f[f(x)]的定义域是R,但不包括1? 2011年2月共有几天 分光计的反射镜能不能随便放置 邻补角是互补的一种特殊情况,数量上()位置上有一条() 用一张长20cm,宽15cm的矩形纸板,在它的四个角各剪去一个大小相等的正方形,做成一个无盖的长方体纸盒.1.求纸盒的底面积y(cm²)与所剪去正方形的边长x(cm)之间的关系式.2.做出这个函 已知三角形AOB的顶点分别A(-1,5),B(5,5),O(6,-2),求此三角形的外接圆的方程 导数问题,大神来! 如果任意x1∈A,存在x2属于B,若f(x1)>g(x2)应该转化为f(x1)min>g(x2)max还是f(x1)min>g(x2)min还有,如果两个都是任意,或都是存在,那样应该怎么转化? 已知二次函数y1=ax²+bx+c(a≠0)的图像于一次函数y2=kx=m(k≠0)的图像相交于点A(-2,4)B(8,2)则能使y1>y2成立的x的取值范围是_________ 家长用什么教育方法让孩子初步感知生活中数学的有用和有趣 “插叙”这一方面的定义、作用 如果3A-2B=7/9那么2/3A-B=( ),7/6-(3A-2B)+1/3=( ) 高一数学题在线求解 x可以是2吗 在第三步 为什么 求插叙的意思 3a-2b=7/9,那么2/3a-b=( ) 如何引导幼儿感知和体会生活中的数的有用 已知a、b、c是三角形abc的三边.且满足a4+b2c2=b4+a2c2,试判断三角形abc的形状.阅读下面解题过程:由a4+b2c2=b2+a2c2 得:a4-b4=a2c2-b2c2 1(a2+b2)(a2-b2)=c2(a2-b2) 2即a2+b2=c2 3所以三角形ABC为直角三角形试问 容器内装水,保持10cm的水位不变,在边侧底部有一个直径为5cm的圆孔.如何计算这个圆孔的水流量?这个容器没有盖子,在大气中. 已知关于x的一元二次方程x²+(m+1)=0,求证:无论m取何值,原方程总有两个不相等实数根 孩子体验盲人生活后家长的感受 a,b,c是三角形ABC三条边,满足a4-a2c2=b4-b2c2,判断三角形形状、 m的2次方加m加1/4,分解因式 (m+3)的平方-4m大于等于零,可以化简为(m+3)的平方-4m大于等于零,可以化简为 绝对值最小的数是是什麼? 已知一元二次方程x²-2x+m-1=0 (1)说明当m取任何实数时,方程有两个不相等的实数根已知一元二次方程x²-2x+m-1=0 (1)说明当m取任何实数时,方程有两个不相等的实数根 (2)当m分别取-2.0. n的平方减去m的平方 分之 m的平方减去n的平方 化简 等于多少 二次函数,初四.已知抛物线与x轴交于A(-2,0) B(4,0),和y轴交于C(0,8).(1)求抛物线的解析式和它的顶点D的坐标 (2)设直线CD交x轴于E,在线段OB的垂直平分线上是否存在点P,使得P到直线CD 直线m平行于直线n,则此时角1角2角3角4之间有什么关系最好要过程 恻隐之心,仁之端也;差恶之心,义之端也,辞怀之心,礼之端也是非之心,智之端也,]这名言的意思是什么� 在EXCEL表格中,将一组数字设了加法公式,后来又删除了其中一个数字,所得数字为什么变大了得数不但没变小,反而变大了,得数是加上那个数字的和.减去一个数字后的得数是刚才总和再加上减 邮编056200每个数字是什么意思 1道初四数学二次函数题在一个直角三角形的内部作一个矩形ABCD,其中AB和CD分别在两条直角边上.(点A就是直角A)1.设矩形的一边AB=x,那么边AD的长度表示为( )2.设矩形的面积为y,当x取何值时y 已知abc为三角形ABC的三边长,且满足a2c2-b2c2=a4-b4,试判三角行ABC的行状. 邮编的每个数字有什么含义? 有没有高人能告诉我初四数学二次函数怎么学?哎天哪,英语,政治都是第一,数学考得很烂,最后虽然考了第一但是非常侥幸,冒了我一身虚汗,有人能告诉我这部分数学知识怎么学吗?听课听得很 已知△ABC的三边长为a.b.c,他们满足a2c2-b2c2=a4-b4求三角形的形状,证明 如图所示 在三角形ABC中,角C=90度,AC=BC,角平分线AD=8cm,试求三角形ABC的面积. 实践调查作业的格式怎么写绿色环保实践作业与生活有关 一个样本容量为50,分成若干组,在它的频数分布直方图中(纵轴为 频数/组距),某一组相应的小长方形的面积为20,则落在该组的频数为( ),图中个小长方形的面积和为( ). 三个和尚为什么没水喝? 地理(大洋洲)位置:位于______ 与 ______ 之间,西临______ ,东临______ ,与 ______ 洲, ______ 洲隔海相望,既跨 ___半球,也跨___ 半球 2、范围:包括______ 大陆,______ 岛,______ 南、北岛,______ 岛 什么叫样本?什么叫样本容量? 效率高的复习方法 题目是我为祖国自豪,要写我的实践和体会,该怎么写呢? 语文填空题回答 已知△AOB的顶点坐标分别是A(4,0)B(0,3)C(0,0)求AOB外接圆方程(两种方法)我要具体过程! 孟子的“天降大任”的含义是什么?对此你有什么看法? 初四数学二次函数二次函数y=ax^2+bx+c的图像与x轴交于B、C两点,与y轴交于A点.(1)根据图像确定a、b、c的符号,并说明理由;(2)如果点A的坐标为(0,-3),∠ABC=45°,∠ACB=60°,求这个二次函数的解析 新加坡欲购88套美国多管制导火箭发射分析称土耳其宣布选中国导弹只是向欧美挪威峡谷小镇靠三面“巨镜”首次沐浴冬日本研究发现治疗糖尿病和代谢综合症物加拿大多伦多市长身陷吸毒疑案 拒绝辞万圣节当天加拿大机场查获借南瓜暗藏毒日政府拟制定相关措施援助海外核爆受害日媒披露日本或早已成为美情报机构窃听俄计划将驻吉尔吉斯斯坦一空军基地飞机日本3男女光天化日在公园拍AV被警方中国部分军事设施现安全隐患 影响武器黑客因不满新加坡媒体局规定威胁将发动美泄密士兵欲在狱中以女性身份生活 或中东欧四国支持西巴尔干国家加入欧盟日本农工商界携手强化农业国际竞争力 罗马尼亚:保管箱频失窃 银行安全自查黎晓宏任中央巡视工作领导小组办公室主4G临近 中国三大运营商相继抛出采购大众点评网就麦当劳团购事件道歉上海交大新技术 裸眼3D有望进入家庭掘金比特币:从虚拟走进现实 上演\"继承父业!巴里之子再现“端尿盆”罚球口碑营销为什么要选择微信公众号和朋友一大暴发比蓝筹更惊天!沪股通连续8日净流入 贵州茅台获港合和昌在复旦大学设立奖学基金凤凰军评:歼20难令中国称霸亚太 应买入大盘股明天肯定涨!斯科特怒斥当家球星:成也科比,败也科四维金融:加入SDR和雾霾的辩证关系切莫“十步笑百步” 它的未来无可预计警惕!留学生在Airbnb租房险些被金英权:不惜一切代价助球队战巴萨长痔疮怎么办,痔疮的危害德隆砍30+8:吃饭睡觉打保罗的日子神舟 联想 华硕 盘点那些不输于苹果四川遂宁网警官微发布淫秽段子 警方称姚明刘翔首度跨界演微电影 深情对望岁末年初涉会员卡投诉增加 官方提醒消按照“三严三实”的要求认真开好民主生凤姐变身霸道女总裁 转型做天使投资人《少年丛书》百年之后再版发行
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘