Как анимировать картинку "Бешеный Конь"? - VB
Формулировка задачи:
Добрый вечер!
Подскажите, пожалуйста, могу ли разложить анимацию по кадрам GIF "Сайт Бешеного Коня". Сам увидел час назад. Ссылка http://madsteed.ru/load/programmy/si...iuk/13-1-0-513 Сам никогда не пользовался программой для подобной анимации отPro_grammer
. Ссылка ...вырезано... Пока буду пробовать самостоятельно получится долгая история.Как всё сделать быстрее и правильно?
Решение задачи: «Как анимировать картинку "Бешеный Конь"?»
textual
Листинг программы
VERSION 5.00 Begin VB.Form Form28 Caption = "Form28" ClientHeight = 1515 ClientLeft = 60 ClientTop = 450 ClientWidth = 2400 LinkTopic = "Form28" MaxButton = 0 'False ScaleHeight = 1515 ScaleWidth = 2400 StartUpPosition = 2 'CenterScreen Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1210 Left = 120 ScaleHeight = 1155 ScaleWidth = 1995 TabIndex = 0 Top = 120 Width = 2050 End Begin VB.Timer Timer1 Interval = 30 Left = 600 Top = 1560 End Begin VB.Image Image1 Height = 135 Index = 0 Left = 3240 Top = 360 Width = 135 End End Attribute VB_Name = "Form28" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim dk As Integer Private Sub Form_Load() Dim i As Integer dk = 1 For i = 1 To 21 Load Image1(i) Image1(i).Picture = LoadPicture(App.Path & "/Crazy_Horse/madsteed" & i & ".bmp") Next i End Sub Private Sub Timer1_Timer() Static k As Integer k = k + dk If k >= 22 Then k = 1 If k <= 0 Then k = 21 Picture1.Picture = Image1(k).Picture End Sub Private Sub Picture1_Click() dk = -dk End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д