Всё гениальное просто...

[Terarist]

Как заставить менять картинку через каждую секунду, я пробовал, но такое не катит...

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

Private Sub Command4_Click()
Timer1.Enabled = True
s = 300
Timer1_Timer

End Sub


Private Sub Timer1_Timer()
Label1.Caption = "Âû äîëæíû ïðîéòè èãðó çà îñòàâøèåñÿ / ñåê " & Str(s) & "ñåêóíä"
s = s - 1
If Image1.Picture = LoadPicture("c:\pt.bmp") Then
Image1.Picture = LoadPicture("c:\Ïòè÷êà1.bmp")
ElseIf Image1.Picture = LoadPicture("c:\Ïòè÷êà1.bmp") Then
Image1.Picture = LoadPicture("c:\pt.bmp")
End If
End Sub

[FaKk2]

Ты че? Афигел?
Столько тем создавать!
Делать нечего?

[LsD85]

Ты чо проверяешь равен ли обьект с картинкой загрузке картинкее, сделай переменную, которая если будет равна 1 то загружать картинку и приравнять переменную 0, начеЕсли переменная = 0 тогда другую загружать и переменную в единцу.

ох поставят тебе "!" за столько тем

[Urvin]

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

Private Sub Timer1.timer ()
    Static State As Integer
    Image1.picture = "C:\image" & cstr(State) & ".bmp"
    State = (State + 1) Mod 4
End Sub

Просто и красиво. Вот только нужны картинки с именами image0.bmp, image1.bmp image2.bmp image3.bmp

[Urvin]

Что-то в глазах двоится.
Если картинки 2, то

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

State = (state + 1) Mod 2

, и файлы соответственно image0.bmp b image1.bmp.
Ну, прости за ошибку, грузить их надо через

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

LoadPicture("C:\image" & cstr(State) & ".bmp")


[Boris_BGB]

Да блин, юзай select case и не надо ничего мудрить!

[alibek]

Urvin, сразу видно любителя красивых решений
Только для двух состояний лучше использовать State = 2 - State (переключение между 0 и 1)

[Urvin]

По-моему, универсализм никому не мешал.

[Urvin]

Alibek, тогда

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

State=1-State

Ибо две картинки, 1 и 0