Анимация , или учимся юзать меньше контролов

[miksayer]

Все знают, что чем больше в программе контролов тем больше она весит. Некоторые используют
контрол Image с Visible = False для хранения картинок, которые не должны быть видны на форме
(например, для вставки картинок в меню). Но в VB есть замечательный объект Picture, который
позволяет хранить картинки в памяти. Загрузим картинку в объект Picture изображение:

 
Dim picTest As Picture
Set objPic = LoadPicture("c:\mypic.bmp")
Picture1.Picture = picTest

Массивы объектов Picture помогут вам создать анимацию. Давайте сделаем анимацию таким способом.
Для начала объявим переменные:

 
'ОБЪЯВЛЯЕМ МАССИВ ОБЪЕКТОВ PICTURE
Dim pics(8) As Picture
'ПЕРЕМЕННАЯ ОПРЕДЕЛЯЮЩАЯ ТЕКУЩИЙ КАДР
Dim a As Integer

Загрузим в массив картинки:

 
Private Sub Form_Load()
AutoRedraw = True
'ЗАГРУЖАЕМ КАРТИНКИ В ПАМЯТЬ
For i = 1 To 9
Set pics(i - 1) = LoadPicture(App.Path & "\" & i & ".ico")
Next
End Sub

Теперь кинем на форму таймер и с Interval = 250. И пишем код:

 
Private Sub Timer1_Timer()
a = a + 1
If a < 9 Then
'ОЧИЩАЕМ ФОРМУ
Cls
'РИСУЕМ КАРТИНКУ
PaintPicture pics(a), 0, 0
Else
a = 0
Cls
PaintPicture pics(a), 0, 0
End If
End Sub

Вот и готова наша анимация. В прикпепленном архиве лежит пример.

[miksayer]

Забыл прикрепить
Прикреплённый файлaimation.rar (7.9 Кбайт, скачиваний: 330)

[SCINER]

Использование контрола PictureClip.
Прикреплённый файлanimation.zip (22.95 Кбайт, скачиваний: 287)

[miksayer]

Цитата SCINER,8.09.04, 03:30

Использование контрола PictureClip.

Но мой пример не юзает контролов вообще! Тем он и хорош.