19.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

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