Създаване на анимации чрез обекта Timer

1. Създаване на анимации чрез обекта Timer

2. 1. Анимация • Потребителски интерфейс

3. 2. Кодиране на обекта Timer Private Sub Timer1_Timer() i = i - 1 If i = -2 Then Play End If Image1.Picture = LoadPicture("C:\Documents and Settings\Admin\Desktop\Animation\" & i & ".jpg") If i = -1 Then Timer1.Interval = 5000 End If End Sub

4. 3. Кодиране на процедурата PlayAnimation() Private Sub PlayAnimation() Timer1.Enabled = True i = 10 Timer1.Interval = CInt(Text1.Text) Timer1_Timer End Sub

5. 4. Кодиране на бутоните Stop и Play • Бутон Play: Private Sub Command1_Click() PlayAnimation End Sub • Бутон Stop: Private Sub Command2_Click() Timer1.Enabled = False End Sub

6. 5. Стартиране на програмата • Компилиране на програмата; • Отстраняване на грешки;