Visual Basic For
Windows(VB)提供了丰富的控件,但其提供的公用对话框控件在打开文件时(例如*.Bmp和*.Pcx等)不能显示文件内容即图像,本文给出了一个实例,可以模拟一些图形软件包在打开文件的同时显示图像,模拟和扩充OPEN控件功能。 为模拟的扩充OPEN功能,下面给出了一个完整的VB程序,实现方法如下:
二、事件过程的建立 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$可以供应用程序调用,其中包含驱动器名、目录和文件名。