怎么使用和扩充Visual Basic的Open对话框控件？

    Visual Basic for Windows(Visual Basic)提供了丰富的控件，但其提供的公用对话框控件在打开文件时(例如*．bmp．pcx等)不能显示文件内容即图像，下面将给出个实例，可以模拟些图形软件包在打开文件的同时显示图像，模拟和扩充Open控件功能。

    为模拟的扩充Open功能，下面给出了个完整的Visual Basic程序，实现方法如下：

    1、建立窗体

    首先建立个窗体(窗体名为opnfile)，窗体上包含驱动器列表、目录列表、文件列表、两个命令按钮(确认、取消)和显示影像的控件(Picture或Image，下面是这6个控件的建立方法和有关属性的改变。

    (1)DriveListBox驱动器列表控件
    双击驱动器列表控件，在窗体上调准控件的位置，控件名称为drive1。

    (2)DriListBox目录列表控件
    双击目录列表控件，在窗体上调准控件的位置，控件名称为dir1。

    (3)FileListBox文件列表控件
    双击文件列表控件，在窗体上调准控件的位置和尺寸，控件名称为file1，修改pattem属性为*．bmp、*．pcx。

    (4)Command Buttom命令按钮控件
    双击命令按钮控件，建立命令按钮，好个取名为Command1，修改Caption属性为确认，第二个取名为Command2，修改Caption属性为取消。

    (5)显示影像的控件
    既可以选Picture控件，也可选Image控件显示图像，以Image控件为例。双击Image控件，调准矩形框的大小和位置，取名为Image1，设置Strtch属性。Strtch=False时，图形以原尺寸显示。

    2、事件过程的建立

    (1)驱动器更改事件过程
    sub drive_change()
      dirl.path=drive1.drive
      chdrive drive1.drive
    end sub

    其中①当驱动器发生更改时，改变目录路径；②更改路径。

    (2)目录更改事件过程
    sub dirl change()
      file1.path=dirl.path
    end sub

    该事件过程是对目录发生更改时，作出文件路径更改的响应。

    (3)文件列表单击事件
    sub file1_Click()
      Image1.Picture=loadPicture(file1.path+"\"+file1.fileName)
    end sub

    单击任图形文件名时，在Image控件框上显示图像。

    (4)命令按钮控件
    sub Command1_Click()
      f1 $ =file1.path+"\"+fileName
      end
      end sub
      sub Command2_Click()
      f1 $ =""
    end sub

    f1 $为选择文件名称，供软件使用，若用户单击“取消”按钮，f1 $为空串。

    单击驱动器名可以改变驱动器，单击目录列表中某目录可以更改目录，单击某图形文件可以显示图形，在文件列表中按向上或向下键，可以随着文件名的变化，图像框中的图形也随之发生更改。

    f1 $可以供应用程序调用，其中包含驱动器名、目录和文件名。