下列程序运行时，在驱动器列表框中选择驱动器，目录列表框相应变为所选驱动器的目录列表，在目录

列表框中选择相应目录，文件列表框的内容变为所选目录下的文件列表，只要单击其中扩展名为".bmp"的文件，即可在图像框中显示该图像。

Private Sub Dir1_Change()

File1. Path =dir1.Path

End Sub

Private Sub Drive1_Change()

----1----

End Sub

Private Sub File1_Click()

Dim PathStr As String

if right(file1.path,1)="/" then

PathStr=File1.Path & File1.FileName

else

----2----

end if

If Right(PathStr,4)= “.bmp” Or Right(PathStr,4)= “.BMP” Then

----3----

End If

End Sub