Сап, ночной. В чём проблема? Меняется три раза анимация. ВБ6Dim lastpic1 As Long, lastpic2 As LongPrivate Sub Form_Load() Image1.Picture = LoadPicture(App.Path & "/walk1.bmp") lastpic1 = Image1.Picture Text1.Text = Image1.PictureEnd SubPrivate Sub Command1_click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If Image1.Picture = lastpic1 Then Image1.Picture = LoadPicture(App.Path & "/walk2.bmp") lastpic2 = Image1.Picture ElseIf Image1.Picture = lastpic2 Then Image1.Picture = LoadPicture(App.Path & "/walk1.bmp") End IfEnd Sub
Наверх.
Ну помогите же.
>>151217591 (OP)смотри, меняешь в третьей строчке код на этот:ОП-пидор, тупой пидор, тупой хуесоси должно пойти
бамп.
>>151218068ой всё блять иди нахуй я проебался с разметкой ты победил иди нахуй
>>151218068заработало, спасибоохуеть, ты зашёл в тред ради этой хуйни?
>>151218090>охуеть, ты зашёл в тред ради этой хуйни?да
>>151218090а да, ещё забыл сказать, что VB-кодеры не люди
>>151218150и нахуя?>>151218179ну а ты у нас кто?
>>151218191я человек
>>151218191это я же ответил, мы вдвоём с тобой тут, ты что, не понял? КТО МЫ? КТО МЫ ТО? Я ОДИН ЗДЕСЬ БЛЯТЬ
>>151218265Я понял, но нид хэлп, ибо завтра хочу сдать работу, но не пойму в чём прикол у меня.
Окей, даже не вижу смысла бампать.
