Переключатель картинок

[Saturn.65]

На форме имеется несколько картинок в формате bmp, наложенных одна на другую.
Одна картинка Visible = True, а остальные =False. Имеется две кнопки:
"Назад" и "Вперед". Как можно сделать, чтоб при нажатии на кнопку "Вперед" по очереди появлялась следующая картинка? И также на кнопку "Назад". Т.е. следующая была Visible = True, а остальные Visible = False. Нечто вроде слайд шоу.
Желательно пример. Заранее благодарен.

[Debugger]

Вот он. Пример. Всё, вроде, понятно. Только "Назад": сделай провеку SI на -1.

[Saturn.65]

Спасибо за внимание, но АРХИВ не открывается, выдает ошибку! Что делать?

[Debugger]

Не знаю, что там. Всё оставил, только на ZIP поменял:

[Saturn.65]

Большое спасибо! Сейчас архив открылся.

[Saturn.65]

Все работает. Но есть одно НО. Я бы хотел вот еще как сделать. Когда появится нужная картинка, кликнуть по самой картинке и чтоб например загрузилась новая форма. Ну эти команды не проблема. Проблема в том, как сюда прикрепить команды, ведь тут нет например Img1, Img2 и т.д.

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

Dim SI As Integer
Private Sub Reset()
Dim c As Integer
For c = 0 To 2 'Тут кол-во картинок
    If c = SI Then
        img(c).Visible = True
    Else
        img(c).Visible = False
   
   
   
    End If
Next
End Sub

Private Sub cmd_Click()
SI = SI + 1
If SI = 3 Then SI = 0   'Тут тоже есть кол-во картинок, но +1
Reset
End Sub

[Debugger]

Читай сюда внимательно .
Я запихнул для простоты имаги в массив (ну, так лучше).
И, короче, код.

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


'Например, у тебя в картинке img(0) заяц, а в img(1) - волк.
Private Sub img_Click(Index As Integer)
'Тут-то смотри: в переменной Index - номер кликнутой картинки.
Select Case Index
      Case 0   'Кликнута картинка 0
            msgbox "1!"
      Case 1
            msgbox "2!"
End Select
End Sub