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

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



Android编程之实现GPS定位 android编程实现仿iphone的tab效果 系统变量 - DOS BAT批处理编程入门教程(三) Android编程获取手机的IMEI Android开发中14个很有用的编程技巧 如何用远程的sql连接打开本地的access数据库啊? 送给zhouqingyuan(浪帆)的积分 程序中用了treeview控件,安装程序该怎么做? fastreport中如何实现交叉报表? 请教Windows下的localtime()的线程安全问题 Oracle数据库服务占用了我要用于Tomcat的8080端口,怎么解决? 急!!!手动添加数据,应用程序打不开!!! EMS QuickDesk Professional Edition 3.6.5.1的密码和中文界面资源 请问各位所在的公司规模都有多大? 大哥大姐们,求你们了,小妹急这着用 细胞核用什么染色鱼的肾细胞系 染色的话 用什么染色 一个分数,分子与分母的和是37,如果把这个分数的分 两个因数中共有四位小数,积的小数也一定是四位.(对 关于细胞染色 比如 线粒体、高尔基体、细胞核、细胞 考马斯亮蓝染色和甲苯胺蓝染色都可以用在软骨细胞的鉴 在观察植物细胞与动物细胞的临时装片,经过染色后,能 观察细胞的临时装片时,经染色后,能清晰的看到细胞核 植物细胞细胞核不染色可以看到吗?染色后植物细胞的哪 成都亚非牙科命案宣判 母亲:希望看到女孩被女老师亲了一口 兴奋得不愿洗脸好声音姚贝娜有望与导师那英同登马年春英国王储查尔斯不急于登基 忧加冕成“外媒:斯诺登握有美国针对他国情报活动茅台逆势而上稳居行业头把交椅一周新书推荐晨报万事通从包头到重庆他用浪漫写满了这爱的15惊中甲也有超级吊射弹痕无罪蜀山清阳混沌剑王神洪荒之我是元始轶事传奇珍宝岛旅游李金镛祠堂旅游嘎仙洞旅游肇兴鼓楼旅游加榜梯田旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘