ImageList

[Мика]

Как работать с ImageList' ом.
Я запихнул в него картинки 10 штук, теперб мне их надо по очереди выводить на PicturreBox. Как это сделать
Спасибо!!!

[N.Y.B.]

Все эти картинки, по-моему, хранятся в наборе, а следовательно, добраться к ним можно через свойство ImageList'а, которое ссылается на набор и индекс конкретной картинки в наборе.

[skiperski]

Код: Выделить всё

Option Explicit

Dim ImageNr As Long

Private Sub Form_Load()
    Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
    ImageNr = ImageNr + 1
    If (ImageNr > ImageList1.ListImages.Count) Then ImageNr = 1
    Picture1.Picture = ImageList1.ListImages(ImageNr).Picture
End Sub

[Мика]

Спасибо, все работает!!!