Шаг 120 - Первая анимация с помощью Direct Animation

Вот код:

Private Sub Form_Load()

  Set m = DAControl.PixelLibrary
  Set fillImg = m.Until(m.SolidColorImage(m.Red), m.LeftButtonDown, m.SolidColorImage(m.Green))
  Set ovalImg = m.Oval(100, 100).Fill(m.DefaultLineStyle, fillImg)
  Set rotXf = m.Rotate3RateDegrees(m.Vector3(1, 1, 1), 45).ParallelTransform2()
  Set finalImg = ovalImg.Transform(rotXf)
  DAControl.Image = finalImg
  DAControl.BackgroundImage = m.SolidColorImage(m.Blue)
  DAControl.Start
  
End Sub

Пояснений пока никаких. Мы просто пробуем и смотрим. О Direct Animation нужно разговаривать отдельно. Запускаем и смотрим.

gif/120_1.gif (3773 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.