Public Class animator
    Public Event FrameChanged(ByVal rec As Rectangle)
    Public Sub New()
 
    End Sub
    Public currentlyAnimating As Boolean = False
 
    'This method begins the animation.
    Public Sub AnimateImage(ByVal img As Image)
        If Not currentlyAnimating Then
 
            'Begin the animation only once.
            ImageAnimator.Animate(img, _
            New EventHandler(AddressOf OnFrameChanged))
            currentlyAnimating = True
        End If
    End Sub
 
    Public Sub OnFrameChanged(ByVal o As Object, ByVal e As EventArgs)
        RaiseEvent FrameChanged(DirectCast(o.tag, Rectangle))
 
 
    End Sub
End Class
Public Class QuickTabControl
    Inherits Windows.Forms.TabControl
    Private lstanimator As New List(Of animator)
    Private imglst As New List(Of Image)
    Public Sub New()
        MyBase.New()
        imglst.Add(My.Resources.anbird1_e0)
        imglst.Add(My.Resources._3d_bird)
        Me.DrawMode = TabDrawMode.OwnerDrawFixed
        'Me.SetStyle(ControlStyles.UserPaint, True)
        Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        Me.SetStyle(ControlStyles.DoubleBuffer, True)
        Me.SetStyle(ControlStyles.ResizeRedraw, True)
        Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    End Sub
    Private Sub changer(ByVal r As Rectangle)
        Me.Invalidate()
    End Sub
    Protected Overrides Sub OnControlAdded(ByVal e As _
      System.Windows.Forms.ControlEventArgs)
        MyBase.OnControlAdded(e)
        Dim an As New animator
        AddHandler an.FrameChanged, AddressOf changer
        lstanimator.Add(an)
    End Sub
    Protected Overrides Sub OnDrawItem(ByVal e As _
      System.Windows.Forms.DrawItemEventArgs)
        MyBase.OnDrawItem(e)
        lstanimator.Item(e.Index).AnimateImage(imglst.Item(e.Index))
 
        'Get the next frame ready for rendering.
        ImageAnimator.UpdateFrames(imglst.Item(e.Index))
 
        'Draw the next frame in the animation.
        imglst.Item(e.Index).Tag = e.Bounds
        e.Graphics.DrawImage(imglst.Item(e.Index), e.Bounds)
    End Sub
 
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

Beitrag wurde zuletzt am 01.05.10 um 19:08:43 editiert.