Загрузка изображений в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
