Progressbar Pacman Animé

 Voici comment realiser un progressbar Pacman animé.

Vous pouvez changer de couleur du pacman et aussi drawborder et les cercles.

mon code :

 Public Class ProgressbarPacMan : Inherits ProgressBar

    Private _ColorFill As Color = Color.Black
    Public Property ColorFill As Color
        Get
            Return _ColorFill
        End Get
        Set(value As Color)
            If value = Color.Transparent OrElse value = _ColorCercle OrElse value = _ColorPacman Then
                Return
            Else
                _ColorFill = value
                Me.Invalidate()
            End If
        End Set
    End Property

    Private _ColorCercle As Color = Color.White
    Public Property ColorCercle As Color
        Get
            Return _ColorCercle
        End Get
        Set(value As Color)
            If value = Color.Transparent OrElse value = Color.Black Then
                Return
            Else
                _ColorCercle = value
                Me.Invalidate()
            End If
        End Set
    End Property

    Private _ColorPacman As Color = Color.Yellow
    Public Property ColorPacman As Color
        Get
            Return _ColorPacman
        End Get
        Set(value As Color)
            If value = Color.Transparent OrElse value = Color.Black Then
                Return
            Else
                _ColorPacman = value
                Me.Invalidate()
            End If
        End Set
    End Property
    Private _ColorDraw As Color = Color.Blue
    Public Property ColorDraw As Color
        Get
            Return _ColorDraw
        End Get
        Set(value As Color)
            If value = Color.Transparent Then
                Return
            Else
                _ColorDraw = value
                Me.Invalidate()
            End If
        End Set
    End Property

    Private rect As New Rectangle
    Private timer As New Timer With {.Enabled = True, .Interval = 125}
    Private counter As Integer = 0
    Private moving As Boolean = False

    Public Sub New()
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
        Me.Size = New Size(300, 30)
        Me.counter = 0
        AddHandler timer.Tick, New EventHandler(AddressOf timer_Tick)
    End Sub

    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        rect = New Rectangle(0, 0, Me.Width, Me.Height)
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        DrawRectangle(e.Graphics, _ColorDraw, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3, 6)
        FillRectangle(e.Graphics, _ColorFill, rect.X + 2, rect.Y + 2, rect.Width - 5, rect.Height - 5, 6)
        Dim progressbarWidth As Integer = CInt(((rect.Width - 35) / (Maximum - Minimum)) * Value)
        GETCirleColor(e.Graphics, _ColorFill, _ColorCercle, rect, progressbarWidth)
        PacMan(e.Graphics, counter, rect, progressbarWidth, _ColorPacman)
    End Sub

    Private Sub DrawRectangle(ByVal g As Graphics, ByVal _Colors As Color, ByVal x As Int32, ByVal y As Int32, ByVal width As Int32, ByVal height As Int32, ByVal radius As Int32)
        Dim area As Rectangle = New Rectangle(x, y, width, height)
        Dim path As Drawing2D.GraphicsPath = New Drawing2D.GraphicsPath
        path.AddArc(area.Left, area.Top, radius * 2, radius * 2, 180, 90)
        path.AddArc(area.Right - (radius * 2), area.Top, radius * 2, radius * 2, 270, 90)
        path.AddArc(area.Right - (radius * 2), area.Bottom - (radius * 2), radius * 2, radius * 2, 0, 90)
        path.AddArc(area.Left, area.Bottom - (radius * 2), radius * 2, radius * 2, 90, 90)
        path.CloseAllFigures()
        g.DrawPath(New Pen(_Colors, 3), path)
    End Sub

    Private Sub FillRectangle(g As Graphics, _colors As Color, x As Integer, y As Integer, Width As Integer, Height As Integer, Radius As Integer)
        Dim area As Rectangle = New Rectangle(x, y, Width, Height)
        Dim path As Drawing2D.GraphicsPath = New Drawing2D.GraphicsPath
        path.AddArc(area.Left, area.Top, Radius * 2, Radius * 2, 180, 90)
        path.AddArc(area.Right - (Radius * 2), area.Top, Radius * 2, Radius * 2, 270, 90)
        path.AddArc(area.Right - (Radius * 2), area.Bottom - (Radius * 2), Radius * 2, Radius * 2, 0, 90)
        path.AddArc(area.Left, area.Bottom - (Radius * 2), Radius * 2, Radius * 2, 90, 90)
        path.CloseAllFigures()
        g.FillPath(New SolidBrush(_colors), path)
    End Sub

    Private Sub timer_Tick(sender As System.Object, e As System.EventArgs)
        If Value = Minimum Then
            counter = 0
        ElseIf Value > Minimum Then
            timer.Start()
            counter += 1
            If counter > 3 Then
                counter = 0
            End If
        ElseIf Value = Maximum Then
            counter = 0
            timer.Stop()
        End If
    End Sub

    Private Sub PacMan(g As Graphics, count As Integer, rect As Rectangle, valeur As Integer, colors As Color)
        Select Case count
            Case 0
                g.FillPie(New SolidBrush(colors), CInt(rect.X + 1) + valeur, rect.Y + 1, 30, rect.Height - 4, 45, 270)
                g.FillEllipse(Brushes.Black, CInt(rect.X + 12) + valeur, CInt(rect.Y + 3), 7, 7)
            Case 1
                g.FillPie(New SolidBrush(colors), CInt(rect.X + 1) + valeur, rect.Y + 1, 30, rect.Height - 4, 30, 300)
                g.FillEllipse(Brushes.Black, CInt(rect.X + 12) + valeur, CInt(rect.Y + 3), 7, 7)
            Case 2
                g.FillPie(New SolidBrush(colors), CInt(rect.X + 1) + valeur, rect.Y + 1, 30, rect.Height - 4, 20, 330)
                g.FillEllipse(Brushes.Black, CInt(rect.X + 12) + valeur, CInt(rect.Y + 3), 7, 7)
            Case 3
                g.FillPie(New SolidBrush(colors), CInt(rect.X + 1) + valeur, rect.Y + 1, 30, rect.Height - 4, 0, 360)
                g.FillEllipse(Brushes.Black, CInt(rect.X + 12) + valeur, CInt(rect.Y + 3), 7, 7)
        End Select
    End Sub

    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseDown(e)
        If rect.Contains(e.Location) OrElse e.Button = Windows.Forms.MouseButtons.Left Then
            moving = True
        End If
    End Sub
    Protected Overrides Sub OnMouseup(ByVal e As System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseUp(e)
        moving = False
    End Sub
    Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        If moving AndAlso e.X > -1 AndAlso e.X < CInt(rect.Width + 2) Then
            Value = CInt((Maximum - Minimum) * (e.X / rect.Width))
        End If
        MyBase.OnMouseMove(e)
    End Sub

    Protected Overrides Sub OnMouseEnter(e As System.EventArgs)
        MyBase.OnMouseEnter(e)
        If Cursor.Equals(Cursors.Arrow) Then
            Me.Cursor = Cursors.Hand
        End If
    End Sub

    Protected Overrides Sub OnMouseLeave(e As System.EventArgs)
        MyBase.OnMouseLeave(e)
        If Cursor.Equals(Cursors.Hand) Then
            Me.Cursor = Cursors.Arrow
        End If
    End Sub

    Private Sub GETCirleColor(g As Graphics, colors1 As Color, colors2 As Color, rect As Rectangle, Valeur As Integer)
        For i = 0 To 22 Step 2
            g.FillEllipse(New SolidBrush(colors2), CInt(rect.X + 30) + i * 10, CInt(rect.Y + 10), 10, 10)
        Next
        If Valeur = 0 Then Return
        FillRectangle(g, colors1, CInt(rect.X + 26), CInt(rect.Y + 4), Valeur, CInt(rect.Height - 8), 6)
    End Sub

    Protected Overrides Sub OnResize(ByVal e As EventArgs)
        MyBase.OnResize(e)
        If Me.Height <> 30 Then
            Me.Height = 30
        ElseIf Me.Width <> 300 Then
            Me.Width = 300
        End If
    End Sub
End Class