我想实现这样一个功能，请指教！

Question

就是能否动态将某一个文件夹里所有的图片动态加载到imagelist中，比方说载应用程序所在的文件夹里，只要增加一个子文件夹，应用程序启用后会自动识别这个子文件夹并将其中的图片（不考虑其他原因，假设里面都是规格一样的图片）动态加载至imagelist中，请问这样的功能如何实现？ 
请指教！谢谢！  
 
 

Answer 1

Option Explicit'先在窗口中加一个图片框,一个文件控件
Private Sub Form_Load()
    Dim i As Long
    
    File1.Pattern = "*.ico"
    File1.Path = "C:\image"
    
    For i = 0 To File1.ListCount - 1
        Picture1.Picture = LoadPicture(File1.List(i))
        ImageList1.ListImages.Add , , Picture1.Picture
    Next
End Sub