Little animations

[Cheetah]

Hi there,

I was wondering whether anyone has some tutorials for integrating animations into my application.

Things like page transitions, menu animations, etc....

Thanks.

 

[karim]

Try this. its animates series of images.

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Collections

public class AnimationBasedOnTimer
   public Shared Sub Main
        Application.Run(New FrmLogoAnimator)
   End Sub
End class

Public Class FrmLogoAnimator
   Inherits System.Windows.Forms.Form

   Private mImages As ArrayList = New ArrayList()
   Private mCount As Integer = 1

   Public Sub New()
      MyBase.New()

      InitializeComponent()

      Dim i As Integer

      For i = 0 To 29
         mImages.Add(Image.FromFile( i & ".gif"))
      Next

      logoPictureBox.Image = CType(mImages(0), Image)

      logoPictureBox.Size = logoPictureBox.Image.Size
   End Sub ' New

   Friend WithEvents timer As System.Windows.Forms.Timer

   Friend WithEvents logoPictureBox As _
      System.Windows.Forms.PictureBox

#Region " Windows Form Designer generated code "

   'Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
      If disposing Then
         If Not (components Is Nothing) Then
            components.Dispose()
         End If
      End If
      MyBase.Dispose(disposing)
   End Sub

   Private components As System.ComponentModel.IContainer

   'Required by the Windows Form Designer

   'NOTE: The following procedure is required by the Windows Form Designer
   'It can be modified using the Windows Form Designer.  
   'Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
      Me.components = New System.ComponentModel.Container()
      Me.timer = New System.Windows.Forms.Timer(Me.components)
      Me.logoPictureBox = New System.Windows.Forms.PictureBox()
      Me.SuspendLayout()
      '
      'Timer
      '
      Me.timer.Enabled = True
      '
      'logoPictureBox
      '
      Me.logoPictureBox.Location = New System.Drawing.Point(32, 24)
      Me.logoPictureBox.Name = "logoPictureBox"
      Me.logoPictureBox.Size = New System.Drawing.Size(168, 88)
      Me.logoPictureBox.TabIndex = 0
      Me.logoPictureBox.TabStop = False
      '
      'Form1
      '
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.ClientSize = New System.Drawing.Size(232, 141)
      Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.logoPictureBox})
      Me.Name = "Form1"
      Me.Text = "LogoAnimator"
      Me.ResumeLayout(False)

   End Sub

#End Region

   Private Sub timer_Tick(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles timer.Tick

      mCount = (mCount + 1) Mod 30

      logoPictureBox.Image = CType(mImages(mCount), Image)
   End Sub 

End Class