[VB.NET] Créez vos propres items. [Épisode 1 - ProgressBar arrondie / ProgressBar ]

[Paradise GTP]

Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

[VB.NET] Créez vos propres items. [Épisode 1 - ProgressBar arrondie / ProgressBar]​

[tabs]
[tab=Informations concernant ce tutoriel]• Temps de lecture : 15 minutes.
• Temps de rédaction : 03 heures.
• Difficulté : ★★★★
• Matériel requis : Ordinateur sous Windows XP/Vista/7/8/8.1, Visual Studio.
• Tutoriel proposé par la GTP, écris par Boosterz GTP.
[/tab]
[/tabs]

Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

ProgressBar Arrondie​

Donc durant ce tutoriel je vais vous apprendre à créer une ProgressBar arrondie en VB.NET.
Voila à quoi elle ressemblera :

( L'image bug car le .gif ne suis pas, je vous rassure vous cela fait % par %. )
Donc vous allez commencer par ajouté une classe à votre logiciel.
Vous l'appelez comme vous voulez cela a peu d'importance.
On commence par importer :

Imports System.Drawing.Drawing2D
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Text
Imports System.ComponentModel

Ensuite on va déclarer cette l'énumération

Enum MouseState As Byte
    Normal = 0
    Hovered = 1
    Pushed = 2
    Disabled = 3
End Enum

Ensuite on va faire un module que on va appeler " Draw "

Module Draw

Ensuite dans ce module on va mettre plusieurs sub, fonction.
On commence par le sub drawcorners :

    Public Sub drawcorners(ByVal B As Bitmap, ByVal c As Color)
        B.SetPixel(0, 0, c)
        B.SetPixel(1, 0, c)
        B.SetPixel(0, 1, c)

        B.SetPixel(B.Width - 1, 0, c)
        B.SetPixel(B.Width - 1, 1, c)
        B.SetPixel(B.Width - 2, 0, c)

        B.SetPixel(B.Width - 1, B.Height - 1, c)
        B.SetPixel(B.Width - 1, B.Height - 2, c)
        B.SetPixel(B.Width - 2, B.Height - 1, c)

        B.SetPixel(0, B.Height - 1, c)
        B.SetPixel(0, B.Height - 2, c)
        B.SetPixel(1, B.Height - 1, c)
    End Sub

C'est aussi simple que sa, ensuite deux fonctions :

    Public Function GetBrush(ByVal c As Color) As SolidBrush
        Return New SolidBrush(c)
    End Function

    Public Function GetPen(ByVal c As Color) As Pen
        Return New Pen(New SolidBrush(c))
    End Function

Et encore une autre fonction

    Function NoiseBrush(Colors As Color()) As TextureBrush
        Dim B As New Bitmap(128, 128)
        Dim R As New Random(128)

        For X As Integer = 0 To B.Width - 1
            For Y As Integer = 0 To B.Height - 1
                B.SetPixel(X, Y, Colors(R.Next(Colors.Length)))
            Next
        Next
        Dim T As New TextureBrush(B)
        B.Dispose()

        Return T
    End Function

Et encore deux sub :

    Public Sub InnerGlow(ByVal G As Graphics, ByVal Rectangle As Rectangle, ByVal Colors As Color())
        Dim SubtractTwo As Integer = 1
        Dim AddOne As Integer = 0
        For Each c In Colors
            G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(c.R, c.B, c.G))), Rectangle.X + AddOne, Rectangle.Y + AddOne, Rectangle.Width - SubtractTwo, Rectangle.Height - SubtractTwo)
            SubtractTwo += 2
            AddOne += 1
        Next
    End Sub

    Public Sub InnerGlowRounded(ByVal G As Graphics, ByVal Rectangle As Rectangle, ByVal Degree As Integer, ByVal Colors As Color())
        Dim SubtractTwo As Integer = 1
        Dim AddOne As Integer = 0
        For Each c In Colors
            G.DrawPath(New Pen(New SolidBrush(Color.FromArgb(c.R, c.B, c.G))), Draw.RoundRect(Rectangle.X + AddOne, Rectangle.Y + AddOne, Rectangle.Width - SubtractTwo, Rectangle.Height - SubtractTwo, Degree))
            SubtractTwo += 2
            AddOne += 1
        Next
    End Sub

Bon je vais arrêter vous avez compris je vous met tout le reste.

    Function ToBrush(ByVal A As Integer, ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Brush
        Return New SolidBrush(Color.FromArgb(A, R, G, B))
    End Function
    Function ToBrush(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Brush
        Return New SolidBrush(Color.FromArgb(R, G, B))
    End Function
    Function ToBrush(ByVal A As Integer, ByVal C As Color) As Brush
        Return New SolidBrush(Color.FromArgb(A, C))
    End Function
    Function ToBrush(ByVal Pen As Pen) As Brush
        Return New SolidBrush(Pen.Color)
    End Function
    Function ToBrush(ByVal Color As Color) As Brush
        Return New SolidBrush(Color)
    End Function
    Function ToPen(ByVal A As Integer, ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Pen
        Return New Pen(New SolidBrush(Color.FromArgb(A, R, G, B)))
    End Function
    Function ToPen(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Pen
        Return New Pen(New SolidBrush(Color.FromArgb(R, G, B)))
    End Function
    Function ToPen(ByVal A As Integer, ByVal C As Color) As Pen
        Return New Pen(New SolidBrush(Color.FromArgb(A, C)))
    End Function
    Function ToPen(ByVal Brush As SolidBrush) As Pen
        Return New Pen(Brush)
    End Function
    Function ToPen(ByVal Color As Color) As Pen
        Return New Pen(New SolidBrush(Color))
    End Function

    Public Function RoundRect(ByVal Rectangle As Rectangle, ByVal Curve As Integer) As GraphicsPath
        Dim P As GraphicsPath = New GraphicsPath()
        Dim ArcRectangleWidth As Integer = Curve * 2
        P.FillMode = FillMode.Winding
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -180, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -90, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 0, 90)
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 90, 90)
        P.AddLine(New Point(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y), New Point(Rectangle.X, Curve + Rectangle.Y))
        P.CloseAllFigures()
        Return P
    End Function
    Public Function RoundRect(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal Curve As Integer) As GraphicsPath
        Dim Rectangle As Rectangle = New Rectangle(X, Y, Width, Height)
        Dim P As GraphicsPath = New GraphicsPath()
        P.FillMode = FillMode.Winding
        Dim ArcRectangleWidth As Integer = Curve * 2
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -180, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -90, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 0, 90)
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 90, 90)
        P.AddLine(New Point(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y), New Point(Rectangle.X, Curve + Rectangle.Y))
        P.CloseAllFigures()
        Return P
    End Function

    Public Sub DrawDropShadow(G As Graphics, Color As Color, pth As GraphicsPath, size As Integer, Optional Angle As Single = 120, Optional Distance As Single = 0, Optional Opacity As Single = 1, Optional Spread As Single = 2)

        If Angle > 360 Then Angle = 360 * (Angle / 360 - Math.Floor(Angle / 360))
        If Angle < 0 Then Angle = 360 * (Angle / 360 - Math.Floor(Angle / 360))

        If Distance < 0 Then Throw New Exception("The distance have to be => 0")
        If Opacity < 0 Or Opacity > 1 Then Throw New Exception("The opacity have to be between 1 and 0")

        Dim pthCopy As GraphicsPath = pth.Clone
        size *= 2

        Dim xi As Double = Math.Cos((Math.PI / 180) * (Angle - 90)) * Distance
        Dim yi As Double = Math.Sin((Math.PI / 180) * (Angle - 90)) * Distance
        If Distance > 0 Then pthCopy.Transform(New Matrix(1, 0, 0, 1, xi, yi))

        Dim OldClip As Region = G.Clip
        Dim NewClip As GraphicsPath = pth.Clone
        Dim b = NewClip.GetBounds
        NewClip.Transform(New Matrix((b.Width - 1) / b.Width, 0, 0, (b.Height - 1) / b.Height, 0.5, 0.5))
        NewClip.AddRectangle(New RectangleF((b.X - size) * 2, (b.Y - size) * 2, (b.Width + size) * 2, (b.Height + size) * 2))
        G.SetClip(NewClip)

        For i = 0 To size
            b = pthCopy.GetBounds

            Using m As New Matrix((b.Width + 1) / b.Width, 0, 0, (b.Height + 1) / b.Height, -0.5, -0.5)
                Using br As New SolidBrush(Color.FromArgb((((255 - Math.Pow(i / size, 1 + Spread) * 255) * Opacity) / size), Color))
                    pthCopy.Transform(m)
                    G.FillPath(br, pthCopy)
                End Using
            End Using
        Next
        pthCopy.Dispose()
        NewClip.Dispose()
        If OldClip IsNot Nothing Then G.Clip = OldClip Else G.ResetClip()
    End Sub
End Module

Voila donc pour le module Draw c'est bon.
Ensuite on va codé la ProgressBar.
Donc moi je l'appel ProgressBarGTP vous vous modifiez si vous voulez.

Public Class ProgressBarGTP
    Inherits Control

Ensuite on va faire les Propriétés de la progressbar c'est à dire ce que l'utilisateur peut modifié.
Par exemple ceci :

#Region "Var & Propeties"
    Private _Value As Integer = 100
    Private _Thickness As Integer = 15
    Private _Angle As Integer = -90
    Private _Symbol As String = "%"
    Private _ValueText As Boolean = True
    Private _ShadowColor As Color = Color.Gray
    Private _GroundColor As Color = Color.FromArgb(64, 0, 0, 0)
    Private _BarColor1 As Color = Color.DarkOrange
    Private _BarColor2 As Color = Color.Yellow
    Private _BarColor3 As Color = Color.GreenYellow
    Private _BarThickness As Integer = 20
    Private _MaxValue As Integer = 100
    Private _AvoidAngle As Integer = 90
    Private _3DEffect As Boolean = True
    Private _BarColorMode As LinearGradientMode = LinearGradientMode.ForwardDiagonal
    Private _EndBarForm As LineCap = LineCap.Round

Si vous voulez modifier vous faites ce que vous voulez perso pour le tutoriel je laisse.
Donc ensuite on fait ce sub :

    Sub New()
        SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        BackColor = Color.Transparent
        ForeColor = Color.Gray
        Font = New Font("Arial", 13)
        Size = New Size(125, 125)
        Invalidate()
    End Sub

Puis pour finir :

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        If Me.Width < 24 Then Me.Width = 24 : If Me.Height < 24 Then Me.Height = 24
        Dim i As Integer = (360 - (AvoidAngle)) / MaxValue * _Value
        Using B1 As New Bitmap(Width, Height)

            Using G As Graphics = Graphics.FromImage(B1)
                G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
                G.SmoothingMode = SmoothingMode.AntiAlias
                DoubleBuffered = True

                Dim TBrush1 As TextureBrush = NoiseBrush(New Color() {Color.FromArgb(10, BackColor), Color.FromArgb(10, Color.Gray), Color.FromArgb(10, Color.DarkGray)})
                G.FillRectangle(TBrush1, ClientRectangle)

                Dim GP2 As GraphicsPath = New GraphicsPath()
                GP2.AddEllipse(ClientRectangle)
                Dim PGB2 As PathGradientBrush = New PathGradientBrush(GP2)
                PGB2.CenterPoint = New PointF(Width / 2, Height / 2)
                PGB2.CenterColor = Color.FromArgb(128, ShadowColor)
                PGB2.SurroundColors = New Color() {Color.Transparent}
                PGB2.SetBlendTriangularShape(0.3, 1)
                PGB2.FocusScales = New PointF(0.4, 0.4)
                G.FillPath(PGB2, GP2)
                PGB2.Dispose() : GP2.Dispose()

                Using LGB As New LinearGradientBrush(ClientRectangle, GroundColor, GroundColor, LinearGradientMode.Vertical)
                    Using P1 As New Pen(LGB, Thickness)
                        G.DrawArc(P1, CInt(Thickness / 2) + 9, CInt(Thickness / 2) + 9, Width - Thickness - 18, Height - Thickness - 18, -90, 360)
                    End Using
                End Using

                Using LGB1 As New LinearGradientBrush(ClientRectangle, Color.Black, Color.Black, BarColorMode)
                    Using P1 As New Pen(LGB1, BarThickness)
                        Dim gp1 As New GraphicsPath

                        Dim CB As New ColorBlend
                        CB.Colors = New Color() {BarColor1, BarColor2, BarColor3}
                        CB.Positions = New Single() {0.0F, 0.5F, 1.0F}

                        LGB1.InterpolationColors = CB
                        P1.Brush = LGB1
                        P1.EndCap = EndBarForm
                        G.DrawArc(P1, CInt(Thickness / 2) + 9, CInt(Thickness / 2) + 9, Width - Thickness - 18, Height - Thickness - 18, CInt(_Angle + (AvoidAngle / 2)), i)
                        If _3DEffect Then
                            Dim LGB2 As New LinearGradientBrush(ClientRectangle, Color.FromArgb(48, Color.White), Color.FromArgb(48, Color.Black), 90)
                            Dim P2 As New Pen(LGB2, BarThickness / 2)
                            P2.EndCap = EndBarForm
                            G.DrawArc(P2, CInt(Thickness / 2) + 4, CInt(Thickness / 2) + 4, Width - Thickness - 8, Height - Thickness - 8, CInt(_Angle + (AvoidAngle / 2)), i)
                        End If
                    End Using
                End Using

                If TextVisible Then
                    G.DrawString(_Value & _Symbol, Font, New SolidBrush(ForeColor), New Point(Me.Width / 2 - G.MeasureString(_Value & _Symbol, Font).Width / 2 + 1, Me.Height / 2 - G.MeasureString(_Value & "%", Font).Height / 2 + 1))
                End If
            End Using
            e.Graphics.DrawImage(B1, 0, 0)
        End Using
    End Sub

Voila votre progressbar arrondie est codé vous avez qu'à générer votre projet et elle va apparaître ici :

Elle s'utilise comme une progressbar normal
Voila donc votre item en VB est créer !

Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

Utilisé la ProgressBar arrondie dans un autre langage.​

Donc si vous voulez utilisé l'item dans un autre langage moi ce sera en C#
Vous allez créer une dll en VB.NET :

Et vous allez y collé tout le code entier.
Si vous ne voulez pas vous faire chier

Imports System.Drawing.Drawing2D
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Text
Imports System.ComponentModel


Enum MouseState As Byte
    Normal = 0
    Hovered = 1
    Pushed = 2
    Disabled = 3
End Enum

Module Draw
    Public Sub drawcorners(ByVal B As Bitmap, ByVal c As Color)
        B.SetPixel(0, 0, c)
        B.SetPixel(1, 0, c)
        B.SetPixel(0, 1, c)

        B.SetPixel(B.Width - 1, 0, c)
        B.SetPixel(B.Width - 1, 1, c)
        B.SetPixel(B.Width - 2, 0, c)

        B.SetPixel(B.Width - 1, B.Height - 1, c)
        B.SetPixel(B.Width - 1, B.Height - 2, c)
        B.SetPixel(B.Width - 2, B.Height - 1, c)

        B.SetPixel(0, B.Height - 1, c)
        B.SetPixel(0, B.Height - 2, c)
        B.SetPixel(1, B.Height - 1, c)
    End Sub

    Public Function GetBrush(ByVal c As Color) As SolidBrush
        Return New SolidBrush(c)
    End Function

    Public Function GetPen(ByVal c As Color) As Pen
        Return New Pen(New SolidBrush(c))
    End Function

    Function NoiseBrush(Colors As Color()) As TextureBrush
        Dim B As New Bitmap(128, 128)
        Dim R As New Random(128)

        For X As Integer = 0 To B.Width - 1
            For Y As Integer = 0 To B.Height - 1
                B.SetPixel(X, Y, Colors(R.Next(Colors.Length)))
            Next
        Next
        Dim T As New TextureBrush(B)
        B.Dispose()

        Return T
    End Function

    Public Sub InnerGlow(ByVal G As Graphics, ByVal Rectangle As Rectangle, ByVal Colors As Color())
        Dim SubtractTwo As Integer = 1
        Dim AddOne As Integer = 0
        For Each c In Colors
            G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(c.R, c.B, c.G))), Rectangle.X + AddOne, Rectangle.Y + AddOne, Rectangle.Width - SubtractTwo, Rectangle.Height - SubtractTwo)
            SubtractTwo += 2
            AddOne += 1
        Next
    End Sub

    Public Sub InnerGlowRounded(ByVal G As Graphics, ByVal Rectangle As Rectangle, ByVal Degree As Integer, ByVal Colors As Color())
        Dim SubtractTwo As Integer = 1
        Dim AddOne As Integer = 0
        For Each c In Colors
            G.DrawPath(New Pen(New SolidBrush(Color.FromArgb(c.R, c.B, c.G))), Draw.RoundRect(Rectangle.X + AddOne, Rectangle.Y + AddOne, Rectangle.Width - SubtractTwo, Rectangle.Height - SubtractTwo, Degree))
            SubtractTwo += 2
            AddOne += 1
        Next
    End Sub
    'r
    Function ToBrush(ByVal A As Integer, ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Brush
        Return New SolidBrush(Color.FromArgb(A, R, G, B))
    End Function
    Function ToBrush(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Brush
        Return New SolidBrush(Color.FromArgb(R, G, B))
    End Function
    Function ToBrush(ByVal A As Integer, ByVal C As Color) As Brush
        Return New SolidBrush(Color.FromArgb(A, C))
    End Function
    Function ToBrush(ByVal Pen As Pen) As Brush
        Return New SolidBrush(Pen.Color)
    End Function
    Function ToBrush(ByVal Color As Color) As Brush
        Return New SolidBrush(Color)
    End Function
    Function ToPen(ByVal A As Integer, ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Pen
        Return New Pen(New SolidBrush(Color.FromArgb(A, R, G, B)))
    End Function
    Function ToPen(ByVal R As Integer, ByVal G As Integer, ByVal B As Integer) As Pen
        Return New Pen(New SolidBrush(Color.FromArgb(R, G, B)))
    End Function
    Function ToPen(ByVal A As Integer, ByVal C As Color) As Pen
        Return New Pen(New SolidBrush(Color.FromArgb(A, C)))
    End Function
    Function ToPen(ByVal Brush As SolidBrush) As Pen
        Return New Pen(Brush)
    End Function
    Function ToPen(ByVal Color As Color) As Pen
        Return New Pen(New SolidBrush(Color))
    End Function

    Public Function RoundRect(ByVal Rectangle As Rectangle, ByVal Curve As Integer) As GraphicsPath
        Dim P As GraphicsPath = New GraphicsPath()
        Dim ArcRectangleWidth As Integer = Curve * 2
        P.FillMode = FillMode.Winding
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -180, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -90, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 0, 90)
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 90, 90)
        P.AddLine(New Point(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y), New Point(Rectangle.X, Curve + Rectangle.Y))
        P.CloseAllFigures()
        Return P
    End Function
    Public Function RoundRect(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal Curve As Integer) As GraphicsPath
        Dim Rectangle As Rectangle = New Rectangle(X, Y, Width, Height)
        Dim P As GraphicsPath = New GraphicsPath()
        P.FillMode = FillMode.Winding
        Dim ArcRectangleWidth As Integer = Curve * 2
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -180, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), -90, 90)
        P.AddArc(New Rectangle(Rectangle.Width - ArcRectangleWidth + Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 0, 90)
        P.AddArc(New Rectangle(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y, ArcRectangleWidth, ArcRectangleWidth), 90, 90)
        P.AddLine(New Point(Rectangle.X, Rectangle.Height - ArcRectangleWidth + Rectangle.Y), New Point(Rectangle.X, Curve + Rectangle.Y))
        P.CloseAllFigures()
        Return P
    End Function

    Public Sub DrawDropShadow(G As Graphics, Color As Color, pth As GraphicsPath, size As Integer, Optional Angle As Single = 120, Optional Distance As Single = 0, Optional Opacity As Single = 1, Optional Spread As Single = 2)

        If Angle > 360 Then Angle = 360 * (Angle / 360 - Math.Floor(Angle / 360))
        If Angle < 0 Then Angle = 360 * (Angle / 360 - Math.Floor(Angle / 360))

        If Distance < 0 Then Throw New Exception("The distance have to be => 0")
        If Opacity < 0 Or Opacity > 1 Then Throw New Exception("The opacity have to be between 1 and 0")

        Dim pthCopy As GraphicsPath = pth.Clone
        size *= 2 '

        Dim xi As Double = Math.Cos((Math.PI / 180) * (Angle - 90)) * Distance
        Dim yi As Double = Math.Sin((Math.PI / 180) * (Angle - 90)) * Distance
        If Distance > 0 Then pthCopy.Transform(New Matrix(1, 0, 0, 1, xi, yi))

        Dim OldClip As Region = G.Clip
        Dim NewClip As GraphicsPath = pth.Clone
        Dim b = NewClip.GetBounds
        NewClip.Transform(New Matrix((b.Width - 1) / b.Width, 0, 0, (b.Height - 1) / b.Height, 0.5, 0.5))
        NewClip.AddRectangle(New RectangleF((b.X - size) * 2, (b.Y - size) * 2, (b.Width + size) * 2, (b.Height + size) * 2))
        G.SetClip(NewClip)

        For i = 0 To size
            b = pthCopy.GetBounds

            Using m As New Matrix((b.Width + 1) / b.Width, 0, 0, (b.Height + 1) / b.Height, -0.5, -0.5)
                Using br As New SolidBrush(Color.FromArgb((((255 - Math.Pow(i / size, 1 + Spread) * 255) * Opacity) / size), Color))
                    pthCopy.Transform(m)
                    G.FillPath(br, pthCopy)
                End Using
            End Using
        Next
        pthCopy.Dispose()
        NewClip.Dispose()
        If OldClip IsNot Nothing Then G.Clip = OldClip Else G.ResetClip()
    End Sub
End Module

Public Class ProgressBarGTP
    Inherits Control

#Region "Var & Propeties"
    Private _Value As Integer = 100
    Private _Thickness As Integer = 15
    Private _Angle As Integer = -90
    Private _Symbol As String = "%"
    Private _ValueText As Boolean = True
    Private _ShadowColor As Color = Color.Gray
    Private _GroundColor As Color = Color.FromArgb(64, 0, 0, 0)
    Private _BarColor1 As Color = Color.DarkOrange
    Private _BarColor2 As Color = Color.Yellow
    Private _BarColor3 As Color = Color.GreenYellow
    Private _BarThickness As Integer = 20
    Private _MaxValue As Integer = 100
    Private _AvoidAngle As Integer = 90
    Private _3DEffect As Boolean = True
    Private _BarColorMode As LinearGradientMode = LinearGradientMode.ForwardDiagonal
    Private _EndBarForm As LineCap = LineCap.Round

    Public Property EndBarForm As LineCap
        Get
            Return _EndBarForm
        End Get
        Set(value As LineCap)
            _EndBarForm = value : Invalidate()
        End Set
    End Property

    Public Property BarColorMode As LinearGradientMode
        Get
            Return _BarColorMode
        End Get
        Set(value As LinearGradientMode)
            _BarColorMode = value : Invalidate()
        End Set
    End Property

    Public Property EffectEnabled As Boolean
        Get
            Return _3DEffect
        End Get
        Set(value As Boolean)
            _3DEffect = value : Invalidate()
        End Set
    End Property

    Public Property GroundColor As Color
        Get
            Return _GroundColor
        End Get
        Set(value As Color)
            _GroundColor = value : Invalidate()
        End Set
    End Property

    Public Property BarColor1 As Color
        Get
            Return _BarColor1
        End Get
        Set(value As Color)
            _BarColor1 = value : Invalidate()
        End Set
    End Property
    Public Property BarColor2 As Color
        Get
            Return _BarColor2
        End Get
        Set(value As Color)
            _BarColor2 = value : Invalidate()
        End Set
    End Property
    Public Property BarColor3 As Color
        Get
            Return _BarColor3
        End Get
        Set(value As Color)
            _BarColor3 = value : Invalidate()
        End Set
    End Property

    Public Property ShadowColor As Color
        Get
            Return _ShadowColor
        End Get
        Set(value As Color)
            _ShadowColor = value : Invalidate()
        End Set
    End Property

    Event ValueChanged()
    Public Property Value As Integer
        Get
            Return _Value
        End Get
        Set(ByVal v As Integer)
            If v > MaxValue Or v < 0 Then
                _Value = _Value
            Else
                _Value = v : Invalidate()
            End If
            RaiseEvent ValueChanged()
        End Set
    End Property

    Public Property MaxValue As Integer
        Get
            Return _MaxValue
        End Get
        Set(ByVal value As Integer)
            _MaxValue = value : Invalidate()
        End Set
    End Property

    Public Property TextVisible As Boolean
        Get
            Return _ValueText
        End Get
        Set(ByVal value As Boolean)
            _ValueText = value : Invalidate()
        End Set
    End Property

    Public Property Angle() As Integer
        Get
            Return _Angle
        End Get
        Set(ByVal v As Integer)
            _Angle = v : Invalidate()
        End Set
    End Property

    Public Property AvoidAngle() As Integer
        Get
            Return _AvoidAngle
        End Get
        Set(ByVal v As Integer)
            If v < 0 Or v >= 360 Then
                _AvoidAngle = _AvoidAngle
            Else
                _AvoidAngle = v : Invalidate()
            End If
        End Set
    End Property

    Public Property Symbol() As String
        Get
            Return _Symbol
        End Get
        Set(ByVal v As String)
            _Symbol = v : Invalidate()
        End Set
    End Property

    Public Property Thickness() As Integer
        Get
            Return _Thickness
        End Get
        Set(ByVal v As Integer)
            _Thickness = v : Invalidate()
        End Set
    End Property

    Public Property BarThickness() As Integer
        Get
            Return _BarThickness
        End Get
        Set(ByVal v As Integer)
            _BarThickness = v : Invalidate()
        End Set
    End Property
#End Region

    Sub New()
        SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        BackColor = Color.Transparent
        ForeColor = Color.Gray
        Font = New Font("Arial", 13)
        Size = New Size(125, 125)
        Invalidate()
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)
        If Me.Width < 24 Then Me.Width = 24 : If Me.Height < 24 Then Me.Height = 24
        Dim i As Integer = (360 - (AvoidAngle)) / MaxValue * _Value
        Using B1 As New Bitmap(Width, Height)

            Using G As Graphics = Graphics.FromImage(B1)
                G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
                G.SmoothingMode = SmoothingMode.AntiAlias
                DoubleBuffered = True

                Dim TBrush1 As TextureBrush = NoiseBrush(New Color() {Color.FromArgb(10, BackColor), Color.FromArgb(10, Color.Gray), Color.FromArgb(10, Color.DarkGray)})
                G.FillRectangle(TBrush1, ClientRectangle)

                Dim GP2 As GraphicsPath = New GraphicsPath()
                GP2.AddEllipse(ClientRectangle)
                Dim PGB2 As PathGradientBrush = New PathGradientBrush(GP2)
                PGB2.CenterPoint = New PointF(Width / 2, Height / 2)
                PGB2.CenterColor = Color.FromArgb(128, ShadowColor)
                PGB2.SurroundColors = New Color() {Color.Transparent}
                PGB2.SetBlendTriangularShape(0.3, 1)
                PGB2.FocusScales = New PointF(0.4, 0.4)
                G.FillPath(PGB2, GP2)
                PGB2.Dispose() : GP2.Dispose()

                Using LGB As New LinearGradientBrush(ClientRectangle, GroundColor, GroundColor, LinearGradientMode.Vertical)
                    Using P1 As New Pen(LGB, Thickness)
                        G.DrawArc(P1, CInt(Thickness / 2) + 9, CInt(Thickness / 2) + 9, Width - Thickness - 18, Height - Thickness - 18, -90, 360)
                    End Using
                End Using

                Using LGB1 As New LinearGradientBrush(ClientRectangle, Color.Black, Color.Black, BarColorMode)
                    Using P1 As New Pen(LGB1, BarThickness)
                        Dim gp1 As New GraphicsPath

                        Dim CB As New ColorBlend
                        CB.Colors = New Color() {BarColor1, BarColor2, BarColor3}
                        CB.Positions = New Single() {0.0F, 0.5F, 1.0F}

                        LGB1.InterpolationColors = CB
                        P1.Brush = LGB1
                        P1.EndCap = EndBarForm
                        G.DrawArc(P1, CInt(Thickness / 2) + 9, CInt(Thickness / 2) + 9, Width - Thickness - 18, Height - Thickness - 18, CInt(_Angle + (AvoidAngle / 2)), i)
                        If _3DEffect Then
                            Dim LGB2 As New LinearGradientBrush(ClientRectangle, Color.FromArgb(48, Color.White), Color.FromArgb(48, Color.Black), 90)
                            Dim P2 As New Pen(LGB2, BarThickness / 2)
                            P2.EndCap = EndBarForm
                            G.DrawArc(P2, CInt(Thickness / 2) + 4, CInt(Thickness / 2) + 4, Width - Thickness - 8, Height - Thickness - 8, CInt(_Angle + (AvoidAngle / 2)), i)
                        End If
                    End Using
                End Using

                If TextVisible Then
                    G.DrawString(_Value & _Symbol, Font, New SolidBrush(ForeColor), New Point(Me.Width / 2 - G.MeasureString(_Value & _Symbol, Font).Width / 2 + 1, Me.Height / 2 - G.MeasureString(_Value & "%", Font).Height / 2 + 1))
                End If
            End Using
            e.Graphics.DrawImage(B1, 0, 0)
        End Using
    End Sub
End Class

Vous allez avoir beaucoup d'erreur donc vous allez ajouter c'est dll :

• System.Windows.Forms
• System.Drawing

Une fois ajouté plus d'erreur vous pouvez donc générez votre dll.

Ce message est normal vous faites OK
Ensuite vous créez votre projet en C# une fois créer vous cliquez sur la boite à outil ( clique droit ) puis Choisir les éléments

Une fois la page charger il faut cliquer sur Parcourir puis chercher la dll dans le dossier

Une fois ceci fait vous aurez l'item ProgressBarGTP
Vous cliquez sur OK et vous aurez votre item

Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.

ProgressBar
​

Donc maintenant on ce retrouve pour la seconde partie qui est la progressbar normal.
Donc comme le nombre de caractères sur RG est limité :/ je ne vais pas tout refaire comme je voulais faire seulement vous ajoutez le code de la progressbar, vous devez mettre toutes les fonctions disponible dans la première partie.

Voila le code a mettre dans la classe :

Public Class ProgressBarGTP
    Inherits Control

    Private _Value As Integer = 50
    Private _Thickness As Integer = 20
    Private _Symbol As String = "%"
    Private _ValueText As Boolean = True
    Private _GlowColor As Color = Color.Gold
    Private _GroundColor As Color = Color.Silver
    Private _BarColor1 As Color = Color.DarkOrange
    Private _BarColor2 As Color = Color.Yellow
    Private _BarColor3 As Color = Color.GreenYellow
    Private _MaxValue As Integer = 100
    Private _GlowEnabled As Boolean = True
    Private _LinesEnabled As Boolean = True
    Private _Angle As Integer = 0
    Private _LinesColor As Color = Color.Black
    Sub New()
        Me.SetStyle(ControlStyles.DoubleBuffer Or _
            ControlStyles.AllPaintingInWmPaint Or _
            ControlStyles.ResizeRedraw Or _
            ControlStyles.UserPaint Or _
            ControlStyles.Selectable Or _
            ControlStyles.SupportsTransparentBackColor, True)
        BackColor = Color.Transparent
        ForeColor = Color.Gray
        Font = New Font("Arial", 10)
        Size = New Size(125, 25)
        Invalidate()
    End Sub

    Public Property Angle As Integer
        Get
            Return _Angle
        End Get
        Set(value As Integer)
            _Angle = value : Invalidate()
        End Set
    End Property

    Public Property GlowEnabled As Boolean
        Get
            Return _GlowEnabled
        End Get
        Set(value As Boolean)
            _GlowEnabled = value : Invalidate()
        End Set
    End Property

    Public Property LinesEnabled As Boolean
        Get
            Return _LinesEnabled
        End Get
        Set(value As Boolean)
            _LinesEnabled = value : Invalidate()
        End Set
    End Property

    Public Property GroundColor As Color
        Get
            Return _GroundColor
        End Get
        Set(value As Color)
            _GroundColor = value : Invalidate()
        End Set
    End Property

    Public Property BarColor1 As Color
        Get
            Return _BarColor1
        End Get
        Set(value As Color)
            _BarColor1 = value : Invalidate()
        End Set
    End Property
    Public Property BarColor2 As Color
        Get
            Return _BarColor2
        End Get
        Set(value As Color)
            _BarColor2 = value : Invalidate()
        End Set
    End Property
    Public Property BarColor3 As Color
        Get
            Return _BarColor3
        End Get
        Set(value As Color)
            _BarColor3 = value : Invalidate()
        End Set
    End Property

    Public Property GlowColor As Color
        Get
            Return _GlowColor
        End Get
        Set(value As Color)
            _GlowColor = value : Invalidate()
        End Set
    End Property

    Event ValueChanged()
    Public Property Value As Integer
        Get
            Return _Value
        End Get
        Set(ByVal v As Integer)
            If v > MaxValue Or v < 0 Then
                _Value = _Value
            Else
                _Value = v : Invalidate()
            End If
            RaiseEvent ValueChanged()
        End Set
    End Property

    Public Property MaxValue As Integer
        Get
            Return _MaxValue
        End Get
        Set(ByVal value As Integer)
            _MaxValue = value : Invalidate()
        End Set
    End Property

    Public Property TextVisible As Boolean
        Get
            Return _ValueText
        End Get
        Set(ByVal value As Boolean)
            _ValueText = value : Invalidate()
        End Set
    End Property

    Public Property Symbol() As String
        Get
            Return _Symbol
        End Get
        Set(ByVal v As String)
            _Symbol = v : Invalidate()
        End Set
    End Property

    Public Property Thickness() As Integer
        Get
            Return _Thickness
        End Get
        Set(ByVal v As Integer)
            _Thickness = v : Invalidate()
        End Set
    End Property

    Public Property LinesColor As Color
        Get
            Return _LinesColor
        End Get
        Set(value As Color)
            _LinesColor = value : Invalidate()
        End Set
    End Property

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)

        Size = New Size(Width, Thickness + 10) : Me.Update()

        Dim Track As Size = New Size(20, 20)

        Dim TS As Integer

        Using B1 As New Bitmap(Width, Height)

            Using G As Graphics = Graphics.FromImage(B1)
                If TextVisible Then
                    TS = G.MeasureString(_Value & _Symbol, Font).Width - 10
                Else
                    TS = -10
                End If

                G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
                G.Clear(BackColor)
                G.SmoothingMode = SmoothingMode.AntiAlias

                Dim TBrush1 As TextureBrush = NoiseBrush(New Color() {Color.FromArgb(10, BackColor), Color.FromArgb(10, Color.Gray), Color.FromArgb(10, Color.DarkGray)})
                G.FillRectangle(TBrush1, ClientRectangle)

                Dim Base As GraphicsPath = RoundRect(5, CInt((Height / 2) - CInt(Thickness / 2)), Width - 20 - TS, Thickness, CInt(Thickness / 2) - CInt(Thickness * 0.2))
                Dim BackLine As LinearGradientBrush = New LinearGradientBrush(New Point(5, CInt((Height / 2) - CInt(Thickness / 2))), New Point(5, CInt((Height / 2) + CInt(Thickness / 2))), Color.FromArgb(25, Color.Black), Color.FromArgb(25, GroundColor))
                G.FillPath(BackLine, Base)
                BackLine.Dispose()

                If Value <> 0 Then
                    Dim Bar As GraphicsPath = RoundRect(5, CInt((Height / 2) - CInt(Thickness / 2)), CInt((Width - 20 - TS) * (Value / MaxValue)), Thickness, CInt(Thickness / 2) - CInt(Thickness * 0.2))
                    If GlowEnabled Then
                        If Thickness >= 10 Then
                            DrawDropShadow(G, GlowColor, Bar, 3, 0, , 0.4, 3)
                            DrawDropShadow(G, GlowColor, Bar, 3, 90, , 0.4, 3)
                        End If
                    End If
                    Dim BarLGB1 As LinearGradientBrush = New LinearGradientBrush(New Rectangle(New Point(4, CInt((Height / 2) - CInt(Thickness / 2))), New Point(Width - 8 - TS, CInt((Height / 2 - TS) + CInt(Thickness / 2)))), Color.Transparent, Color.FromArgb(40, Color.Black), Angle)
                    Dim CB As New ColorBlend
                    CB.Colors = New Color() {BarColor1, BarColor2, BarColor3}
                    CB.Positions = New Single() {0.0F, 0.5F, 1.0F}
                    BarLGB1.InterpolationColors = CB
                    G.FillPath(BarLGB1, Bar)

                    Dim BarLGB2 As LinearGradientBrush = New LinearGradientBrush(New Point(1, CInt((Height / 2) - CInt(Thickness / 2))), New Point(1, CInt((Height / 2) + CInt(Thickness / 2))), Color.Transparent, Color.FromArgb(40, Color.Black))
                    G.FillPath(BarLGB2, Bar)

                    If LinesEnabled Then
                        Dim LinesLGB1 As New LinearGradientBrush(ClientRectangle, Color.Black, Color.Black, 90)
                        Dim CB2 As New ColorBlend
                        CB2.Colors = New Color() {Color.Transparent, Color.FromArgb(32, LinesColor), Color.Transparent}
                        CB2.Positions = New Single() {0, 1 / 2, 1}
                        LinesLGB1.InterpolationColors = CB2
                        For i = 5 To CInt((Width - TS) * (Value / MaxValue)) Step 45
                            G.DrawLine(New Pen(LinesLGB1, 20), New Point(i, CInt((Height / 2) - Thickness * 2)), New Point(i - Thickness * 2, CInt((Height / 2) + Thickness * 2)))
                        Next
                    End If


                End If

                G.DrawPath(ToPen(50, Color.Black), Base)

                If TextVisible Then
                    G.DrawString(_Value & _Symbol, Font, New SolidBrush(ForeColor), New Point(Me.Width - 5 - G.MeasureString(_Value & Symbol, Font).Width, Me.Height / 2 - G.MeasureString(_Value & Symbol, Font).Height / 2 + 2))
                End If
            End Using
            e.Graphics.DrawImage(B1, 0, 0)
        End Using
    End Sub
End Class

Pour l'utiliser par exemple en C# c'est pareil que l'autre il faut mettre dans une dll et l'importer ( Chapitre 2 )

FIN DU TUTORIEL
​

Merci à tous d'avoir lu ce tutoriel, je vous dis à très bientôt pour de prochains tutoriels !

Sujet rédigé entièrement par Boosterz GTP​

​

 

[Lyrix]

C'est super, et sa serait cool, à la fin que c'est à 100% sur la barre sa soit écrit un texte comme " Chargement effectué avec succès " ou autre à sa guise

 

[Paradise GTP]

C'est super, et sa serait cool, à la fin que c'est à 100% sur la barre sa soit écrit un texte comme " Chargement effectué avec succès " ou autre à sa guise

L'utilisateur de l'item doit le faire lui avec un label ^^

 

[Nathan - Photographe]

C'est super, et sa serait cool, à la fin que c'est à 100% sur la barre sa soit écrit un texte comme " Chargement effectué avec succès " ou autre à sa guise

ben tu fait un label " Chargement effectué avec succès " et tu fait if ProgressBar1.value = 100 then label1.visible si je me souviens bien (sa fait 1 ans que j'ai pas fait de vb.net xD ! (bien sur le label tu le met invisible avant