Загрузка изображений в Imagelist - VB

Формулировка задачи:

Нужно чтобы при запуске программы в imagelist добавлялись все изображения из определенной папки

Решение задачи: «Загрузка изображений в Imagelist»

textual
                            Листинг программы 
                        
                            Private Sub Form_Load()
Dim Img As ListImage
 
        HomeDir$ = App.Path
        
        cF$ = Dir$(HomeDir$ & "\*.gif", vbNormal)
        
        nGif% = 0
        
        Do
        
          If cF$ = "" Then Exit Do
          
          Set Img = Me.ImageList1.ListImages.Add(, , LoadPicture(HomeDir$ & "\" & cF$))
          
          nGif% = nGif% + 1
          
          cF$ = Dir$()
                
        Loop
        
        MsgBox "Загружено изображений " & CStr(nGif%)
 
End Sub

Оцени полезность:

6 голосов , оценка 3.333 из 5

Похожие ответы