vb的open对话框控件图示功能扩充

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

本文出自天涯风铃

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

vb的open对话框控件图示功能扩充

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

vb的open对话框控件图示功能扩充

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范