如图：当我打开这个程序的时候 便会自动搜索该目录下的 所有文件夹 把文件夹的名字一一显示在List空件里

补充一点 怎么让文件夹里面的所有 图片 显示在下面列表里面？

详细点 具体怎么做？

非常感谢大家~~~

怎么把选择的图片 在 Image1里显示出来呀？？

谢谢、 我知道了 请问你最后一个问题 那里有基本教程下？我之前下了一些教程 全是废话一堆 不做实例给人看的 我学了3个月 只学到最皮毛的 连这些空件 教程都没讲 。。。失礼了

那个不知道 从那里看起啊。。。。超多

Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub

这个代码有点问题的哦 其他盘就不可以显示 只能显示C盘的

If File1.ListCount > 0 Then
File1.ListIndex = 0
Else
Image1.Picture = LoadPicture("")
Image1.Visible = False
End If
错在你的判断。。。