Организация слайд шоу

[an-tu]

Всем привет.Долбаюсь с очень простой задачей: организация слайд шоу. Вот то, что имеется на данный момент:

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

Option Explicit
Dim c As Integer

Private Sub Command1_Click()
c = 0
Image1.Visible = True
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1000
c = c + 1
Select Case c
Case c = 1: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\1.jpg")
Case c = 3: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\2.jpg")
Case c = 5: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\3.jpg")
Case c = 7: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\4.jpg")
Case c = 9: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\5.jpg")
Case c = 11: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\6.jpg")
Case c = 13: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\7.jpg")
Case c = 15: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\8.jpg")
Case c = 17: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\9.jpg")
Case c = 19: Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\10.gif")
End Select
If c = 22 Then
c = 0
End If
Label1.Caption = c
End Sub


Счетчик работает, а картинки не меняються. Кто подскажет че за нафиг такой? О_о

[dr.MIG]

А зачем в условии писать Case c=1? Если надо Case 1 и т.д. Да и код нехороший -- а если там будет 200 картинок?..
Какая конкретно задача -- вывести все картинки из определенной папки? Если да, то в таймере перебирай все файлы в этой папке, проверяй -- картинка ли это и если да -- загружай.

[Antonariy]

Хм, а почему не

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

Private Sub Timer1_Timer()
    c = c + 1
    Image1.Picture = LoadPicture("img\stones\for_gallery\aquamarime\" & с & ".gif")
    If c = 10 Then c = 0
    Label1.Caption = c
End Sub

По сути - выставь Autoredraw = True.