使用vb6绿色版做一个简易图片浏览器

在win10下看一下vb6能不能用；

在设计界面；在窗体上添加一个Drive控件，一个Dir控件，一个File控件，一个PictureBox控件；

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
    Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End Sub

Private Sub Form_Load()
    File1.Pattern = "*.jpg;*.png;*.jpeg;*.gif"
End Sub

Drive控件，用于选择驱动器；拖到窗体上，控件中就有本机的各个驱动器；

Dir控件，按上面代码设置了以后，显示当前驱动器下的目录，双击则展开一个目录；

File控件，在窗体启动时设置过滤模式为Pattern属性中的后缀名；

按上面代码设置了以后，在Dir中选中一个目录，则File控件显示此目录下的按Pattern过滤的文件名；

单击File控件中的一个条目，PictureBox控件装载选中的图片；

如果一个目录下图片很多，会在File控件列出；这样就可单击任何图片，然后查看；

这好像是VB的一个特性；其他各种语言，VC++，C#，等，如果要实现把一台电脑的所有驱动器装入一个下拉框，都自己要编一些程；VB是直接有此控件，拖过去本机驱动器列表就出来；

在Win10下不是很好用；设计界面时容易退出；

运行一下，结果如下；