1. Si vous venez d'arriver sur le forum et que vous êtes un peu perdus, cliquez ici !
    Rejeter la notice

Autres [À l'arrêt] [VB/C# .NET] Créer un launcher compatible 1.8.x

Discussion dans 'Tutoriels' créé par Hawezo, 10 Fev 2016.

  1. Hawezo

    Hawezo Mineur de Fer

    Inscrit:
    6 Juin 2013
    Messages:
    546
    Points:
    136
    Sexe:
    Homme
    Wow, j'avais écris deux nouveaux chapitres, et j'ai appuyé sur Ctrl+W au lieu de Ctrl+X. J'suis tellement dég'.
     
    • J'aime J'aime x 1
    • Gagnant Gagnant x 1
    #16 Hawezo, 27 Fev 2016
    Dernière édition: 27 Fev 2016
  2. Dracoctix

    Dracoctix Rédacteur en Chef
    Staff

    Inscrit:
    15 Mai 2013
    Messages:
    5 256
    Points:
    229
    Sexe:
    Homme
    Normalement il sauvegarde régulièrement des brouillons, tu aurais aussi pu faire Ctrl - Shift - T pour récupérer l'onglet o/
     
    • J'aime J'aime x 1
  3. Hawezo

    Hawezo Mineur de Fer

    Inscrit:
    6 Juin 2013
    Messages:
    546
    Points:
    136
    Sexe:
    Homme
    J'ai pas du tout pensé au Ctrl+Shift+T :'(
    Et y'avait pas la sauvegarde, je crois que c'est que pour les réponses rapides...
     
    • J'aime J'aime x 1
    • Gagnant Gagnant x 1
  4. Sylfaen

    Sylfaen Mineur de Redstone

    Inscrit:
    18 Avr 2016
    Messages:
    1 171
    Points:
    123
    Sexe:
    Homme
    Un thème FLAT UI qui peut être utile pour le launcher.
    USIkxTv.png PNPvCGq.png hOGHmZM.png
    Voici le code source:
    Code (cpp):
    Imports System.Drawing.Drawing2D, System.ComponentModel

    ''' <summary>
    '
    '' Flat UI Theme
    ''' Coder: iSynthesis (HF)
    '
    '' Version: 1.0.1
    ''' Date Created: 16/06/2013
    '
    '' Date Changed: 18/06/2013
    ''' UID: 374648
    '
    '' </summary>
    ''' <remarks></remarks>

    Module Helpers

    #Region " Variables"
    Friend G As Graphics, B As Bitmap
    Friend _FlatColor As Color = Color.FromArgb(35, 168, 109)
    Friend NearSF As New StringFormat() With {.Alignment = StringAlignment.Near, .LineAlignment = StringAlignment.Near}
    Friend CenterSF As New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center}
    #End Region

    #Region " Functions"

    Public Function RoundRec(ByVal Rectangle As Rectangle, ByVal Curve As Integer) As GraphicsPath
    Dim P As GraphicsPath = New GraphicsPath()
    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))
    Return P
    End Function

    '
    -- Credit: AeonHack
    Public Function DrawArrow(x As Integer, y As Integer, flip As Boolean) As GraphicsPath
    Dim GP As New GraphicsPath()

    Dim W As Integer = 12
    Dim H As Integer = 6

    If flip Then
    GP.AddLine(x + 1, y, x + W + 1, y)
    GP.AddLine(x + W, y, x + H, y + H - 1)
    Else
    GP.AddLine(x, y + H, x + W, y + H)
    GP.AddLine(x + W, y + H, x + H, y)
    End If

    GP.CloseFigure()
    Return GP
    End Function

    #End Region

    End Module

    #Region " Mouse States"

    Enum MouseState As Byte
    None = 0
    Over = 1
    Down = 2
    Block = 3
    End Enum

    #End Region

    Class FormSkin : Inherits ContainerControl

    #Region " Variables"

    Private W, H As Integer
    Private Cap As Boolean = False
    Private _HeaderMaximize As Boolean = False
    Private MousePoint As New Point(0, 0)
    Private MoveHeight = 50

    #End Region

    #Region " Properties"

    #Region " Colors"

    <Category("Colors")> _
    Public Property HeaderColor() As Color
    Get
    Return _HeaderColor
    End Get
    Set(value As Color)
    _HeaderColor = value
    End Set
    End Property
    <Category("Colors")> _
    Public Property BaseColor() As Color
    Get
    Return _BaseColor
    End Get
    Set(value As Color)
    _BaseColor = value
    End Set
    End Property
    <Category("Colors")> _
    Public Property BorderColor() As Color
    Get
    Return _BorderColor
    End Get
    Set(value As Color)
    _BorderColor = value
    End Set
    End Property
    <Category("Colors")> _
    Public Property FlatColor() As Color
    Get
    Return _FlatColor
    End Get
    Set(value As Color)
    _FlatColor = value
    End Set
    End Property

    #End Region

    <Category("Options")>
    Public Property HeaderMaximize As Boolean
    Get
    Return _HeaderMaximize
    End Get
    Set(value As Boolean)
    _HeaderMaximize = value
    End Set
    End Property

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    If e.Button = Windows.Forms.MouseButtons.Left And New Rectangle(0, 0, Width, MoveHeight).Contains(e.Location) Then
    Cap = True
    MousePoint = e.Location
    End If
    End Sub

    Private Sub FormSkin_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles Me.MouseDoubleClick
    If HeaderMaximize Then
    If e.Button = Windows.Forms.MouseButtons.Left And New Rectangle(0, 0, Width, MoveHeight).Contains(e.Location) Then
    If FindForm.WindowState = FormWindowState.Normal Then
    FindForm.WindowState = FormWindowState.Maximized : FindForm.Refresh()
    ElseIf FindForm.WindowState = FormWindowState.Maximized Then
    FindForm.WindowState = FormWindowState.Normal : FindForm.Refresh()
    End If
    End If
    End If
    End Sub

    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    MyBase.OnMouseUp(e) : Cap = False
    End Sub

    Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
    MyBase.OnMouseMove(e)
    If Cap Then
    Parent.Location = MousePosition - MousePoint
    End If
    End Sub

    Protected Overrides Sub OnCreateControl()
    MyBase.OnCreateControl()
    ParentForm.FormBorderStyle = FormBorderStyle.None
    ParentForm.AllowTransparency = False
    ParentForm.TransparencyKey = Color.Fuchsia
    ParentForm.FindForm.StartPosition = FormStartPosition.CenterScreen
    Dock = DockStyle.Fill
    Invalidate()
    End Sub

    #End Region

    #Region " Colors"

    Private _HeaderColor As Color = Color.FromArgb(45, 47, 49)
    Private _BaseColor As Color = Color.FromArgb(60, 70, 73)
    Private _BorderColor As Color = Color.FromArgb(53, 58, 60)
    Private TextColor As Color = Color.FromArgb(234, 234, 234)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    DoubleBuffered = True
    BackColor = Color.White
    Font = New Font("Segoe UI", 12)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width : H = Height

    Dim Base As New Rectangle(0, 0, W, H), Header As New Rectangle(0, 0, W, 50)

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    '-- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)

    '
    -- Header
    .FillRectangle(New SolidBrush(_HeaderColor), Header)

    '-- Logo
    .FillRectangle(New SolidBrush(Color.FromArgb(243, 243, 243)), New Rectangle(8, 16, 4, 18))
    .FillRectangle(New SolidBrush(_FlatColor), 16, 16, 4, 18)
    .DrawString(Text, Font, New SolidBrush(TextColor), New Rectangle(26, 15, W, H), NearSF)

    '
    -- Border
    .DrawRectangle(New Pen(_BorderColor), Base)
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    Class FlatClose : Inherits Control

    #Region " Variables"

    Private State As MouseState = MouseState.None
    Private x As Integer

    #End Region

    #Region " Properties"

    #Region " Mouse States"

    Protected Overrides Sub OnMouseEnter(e As EventArgs)
    MyBase.OnMouseEnter(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    State = MouseState.Down : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
    MyBase.OnMouseLeave(e)
    State = MouseState.None : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    MyBase.OnMouseUp(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
    MyBase.OnMouseMove(e)
    x = e.X : Invalidate()
    End Sub

    Protected Overrides Sub OnClick(e As EventArgs)
    MyBase.OnClick(e)
    Environment.Exit(0)
    End Sub

    #End Region

    Protected Overrides Sub OnResize(e As EventArgs)
    MyBase.OnResize(e)
    Size = New Size(18, 18)
    End Sub

    #Region " Colors"

    <Category("Colors")> _
    Public Property BaseColor As Color
    Get
    Return _BaseColor
    End Get
    Set(value As Color)
    _BaseColor = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property TextColor As Color
    Get
    Return _TextColor
    End Get
    Set(value As Color)
    _TextColor = value
    End Set
    End Property

    #End Region

    #End Region

    #Region " Colors"

    Private _BaseColor As Color = Color.FromArgb(168, 35, 35)
    Private _TextColor As Color = Color.FromArgb(243, 243, 243)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    DoubleBuffered = True
    BackColor = Color.White
    Size = New Size(18, 18)
    Anchor = AnchorStyles.Top Or AnchorStyles.Right
    Font = New Font("Marlett", 10)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    Dim B As New Bitmap(Width, Height)
    Dim G As Graphics = Graphics.FromImage(B)

    Dim Base As New Rectangle(0, 0, Width, Height)

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    '-- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)

    '
    -- X
    .DrawString("r", Font, New SolidBrush(TextColor), New Rectangle(0, 0, Width, Height), CenterSF)

    '-- Hover/down
    Select Case State
    Case MouseState.Over
    .FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), Base)
    Case MouseState.Down
    .FillRectangle(New SolidBrush(Color.FromArgb(30, Color.Black)), Base)
    End Select
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    Class FlatMax : Inherits Control

    #Region " Variables"

    Private State As MouseState = MouseState.None
    Private x As Integer

    #End Region

    #Region " Properties"

    #Region " Mouse States"

    Protected Overrides Sub OnMouseEnter(e As EventArgs)
    MyBase.OnMouseEnter(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    State = MouseState.Down : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
    MyBase.OnMouseLeave(e)
    State = MouseState.None : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    MyBase.OnMouseUp(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
    MyBase.OnMouseMove(e)
    x = e.X : Invalidate()
    End Sub

    Protected Overrides Sub OnClick(e As EventArgs)
    MyBase.OnClick(e)
    Select Case FindForm.WindowState
    Case FormWindowState.Maximized
    FindForm.WindowState = FormWindowState.Normal
    Case FormWindowState.Normal
    FindForm.WindowState = FormWindowState.Maximized
    End Select
    End Sub

    #End Region

    Protected Overrides Sub OnResize(e As EventArgs)
    MyBase.OnResize(e)
    Size = New Size(18, 18)
    End Sub

    #Region " Colors"

    <Category("Colors")> _
    Public Property BaseColor As Color
    Get
    Return _BaseColor
    End Get
    Set(value As Color)
    _BaseColor = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property TextColor As Color
    Get
    Return _TextColor
    End Get
    Set(value As Color)
    _TextColor = value
    End Set
    End Property

    #End Region

    #End Region

    #Region " Colors"

    Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
    Private _TextColor As Color = Color.FromArgb(243, 243, 243)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    DoubleBuffered = True
    BackColor = Color.White
    Size = New Size(18, 18)
    Anchor = AnchorStyles.Top Or AnchorStyles.Right
    Font = New Font("Marlett", 12)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    Dim B As New Bitmap(Width, Height)
    Dim G As Graphics = Graphics.FromImage(B)

    Dim Base As New Rectangle(0, 0, Width, Height)

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    '
    -- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)

    '-- Maximize
    If FindForm.WindowState = FormWindowState.Maximized Then
    .DrawString("1", Font, New SolidBrush(TextColor), New Rectangle(1, 1, Width, Height), CenterSF)
    ElseIf FindForm.WindowState = FormWindowState.Normal Then
    .DrawString("2", Font, New SolidBrush(TextColor), New Rectangle(1, 1, Width, Height), CenterSF)
    End If

    '
    -- Hover/down
    Select Case State
    Case MouseState.Over
    .FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), Base)
    Case MouseState.Down
    .FillRectangle(New SolidBrush(Color.FromArgb(30, Color.Black)), Base)
    End Select
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    Class FlatMini : Inherits Control

    #Region " Variables"

    Private State As MouseState = MouseState.None
    Private x As Integer

    #End Region

    #Region " Properties"

    #Region " Mouse States"

    Protected Overrides Sub OnMouseEnter(e As EventArgs)
    MyBase.OnMouseEnter(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    State = MouseState.Down : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
    MyBase.OnMouseLeave(e)
    State = MouseState.None : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    MyBase.OnMouseUp(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
    MyBase.OnMouseMove(e)
    x = e.X : Invalidate()
    End Sub

    Protected Overrides Sub OnClick(e As EventArgs)
    MyBase.OnClick(e)
    Select Case FindForm.WindowState
    Case FormWindowState.Normal
    FindForm.WindowState = FormWindowState.Minimized
    Case FormWindowState.Maximized
    FindForm.WindowState = FormWindowState.Minimized
    End Select
    End Sub

    #End Region

    Protected Overrides Sub OnResize(e As EventArgs)
    MyBase.OnResize(e)
    Size = New Size(18, 18)
    End Sub

    #Region " Colors"

    <Category("Colors")> _
    Public Property BaseColor As Color
    Get
    Return _BaseColor
    End Get
    Set(value As Color)
    _BaseColor = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property TextColor As Color
    Get
    Return _TextColor
    End Get
    Set(value As Color)
    _TextColor = value
    End Set
    End Property

    #End Region

    #End Region

    #Region " Colors"

    Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
    Private _TextColor As Color = Color.FromArgb(243, 243, 243)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    DoubleBuffered = True
    BackColor = Color.White
    Size = New Size(18, 18)
    Anchor = AnchorStyles.Top Or AnchorStyles.Right
    Font = New Font("Marlett", 12)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    Dim B As New Bitmap(Width, Height)
    Dim G As Graphics = Graphics.FromImage(B)

    Dim Base As New Rectangle(0, 0, Width, Height)

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    '-- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)

    '
    -- Minimize
    .DrawString("0", Font, New SolidBrush(TextColor), New Rectangle(2, 1, Width, Height), CenterSF)

    '-- Hover/down
    Select Case State
    Case MouseState.Over
    .FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), Base)
    Case MouseState.Down
    .FillRectangle(New SolidBrush(Color.FromArgb(30, Color.Black)), Base)
    End Select
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    Class FlatColorPalette : Inherits Control

    #Region " Variables"

    Private W, H As Integer

    #End Region

    #Region " Properties"

    Protected Overrides Sub OnResize(e As EventArgs)
    MyBase.OnResize(e)
    Width = 180
    Height = 80
    End Sub

    #Region " Colors"

    <Category("Colors")> _
    Public Property Red As Color
    Get
    Return _Red
    End Get
    Set(value As Color)
    _Red = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property Cyan As Color
    Get
    Return _Cyan
    End Get
    Set(value As Color)
    _Cyan = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property Blue As Color
    Get
    Return _Blue
    End Get
    Set(value As Color)
    _Blue = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property LimeGreen As Color
    Get
    Return _LimeGreen
    End Get
    Set(value As Color)
    _LimeGreen = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property Orange As Color
    Get
    Return _Orange
    End Get
    Set(value As Color)
    _Orange = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property Purple As Color
    Get
    Return _Purple
    End Get
    Set(value As Color)
    _Purple = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property Black As Color
    Get
    Return _Black
    End Get
    Set(value As Color)
    _Black = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property Gray As Color
    Get
    Return _Gray
    End Get
    Set(value As Color)
    _Gray = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property White As Color
    Get
    Return _White
    End Get
    Set(value As Color)
    _White = value
    End Set
    End Property

    #End Region

    #End Region

    #Region " Colors"

    Private _Red As Color = Color.FromArgb(220, 85, 96)
    Private _Cyan As Color = Color.FromArgb(10, 154, 157)
    Private _Blue As Color = Color.FromArgb(0, 128, 255)
    Private _LimeGreen As Color = Color.FromArgb(35, 168, 109)
    Private _Orange As Color = Color.FromArgb(253, 181, 63)
    Private _Purple As Color = Color.FromArgb(155, 88, 181)
    Private _Black As Color = Color.FromArgb(45, 47, 49)
    Private _Gray As Color = Color.FromArgb(63, 70, 73)
    Private _White As Color = Color.FromArgb(243, 243, 243)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    DoubleBuffered = True
    BackColor = Color.FromArgb(60, 70, 73)
    Size = New Size(160, 80)
    Font = New Font("Segoe UI", 12)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width - 1 : H = Height - 1

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    '
    -- Colors
    .FillRectangle(New SolidBrush(_Red), New Rectangle(0, 0, 20, 40))
    .FillRectangle(New SolidBrush(_Cyan), New Rectangle(20, 0, 20, 40))
    .FillRectangle(New SolidBrush(_Blue), New Rectangle(40, 0, 20, 40))
    .FillRectangle(New SolidBrush(_LimeGreen), New Rectangle(60, 0, 20, 40))
    .FillRectangle(New SolidBrush(_Orange), New Rectangle(80, 0, 20, 40))
    .FillRectangle(New SolidBrush(_Purple), New Rectangle(100, 0, 20, 40))
    .FillRectangle(New SolidBrush(_Black), New Rectangle(120, 0, 20, 40))
    .FillRectangle(New SolidBrush(_Gray), New Rectangle(140, 0, 20, 40))
    .FillRectangle(New SolidBrush(_White), New Rectangle(160, 0, 20, 40))

    '-- Text
    .DrawString("Color Palette", Font, New SolidBrush(_White), New Rectangle(0, 22, W, H), CenterSF)
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    Class FlatGroupBox : Inherits ContainerControl

    #Region " Variables"

    Private W, H As Integer
    Private _ShowText As Boolean = True

    #End Region

    #Region " Properties"

    <Category("Colors")> _
    Public Property BaseColor As Color
    Get
    Return _BaseColor
    End Get
    Set(value As Color)
    _BaseColor = value
    End Set
    End Property

    Public Property ShowText As Boolean
    Get
    Return _ShowText
    End Get
    Set(value As Boolean)
    _ShowText = value
    End Set
    End Property

    #End Region

    #Region " Colors"

    Private _BaseColor As Color = Color.FromArgb(60, 70, 73)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or _
    ControlStyles.SupportsTransparentBackColor, True)
    DoubleBuffered = True
    BackColor = Color.Transparent
    Size = New Size(240, 180)
    Font = New Font("Segoe ui", 10)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width - 1 : H = Height - 1

    Dim GP, GP2, GP3 As New GraphicsPath
    Dim Base As New Rectangle(8, 8, W - 16, H - 16)

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    '
    -- Base
    GP = Helpers.RoundRec(Base, 8)
    .FillPath(New SolidBrush(_BaseColor), GP)

    '-- Arrows
    GP2 = Helpers.DrawArrow(28, 2, False)
    .FillPath(New SolidBrush(_BaseColor), GP2)
    GP3 = Helpers.DrawArrow(28, 8, True)
    .FillPath(New SolidBrush(Color.FromArgb(60, 70, 73)), GP3)

    '
    -- if ShowText
    If ShowText Then
    .DrawString(Text, Font, New SolidBrush(_FlatColor), New Rectangle(16, 16, W, H), NearSF)
    End If
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    Class FlatButton : Inherits Control

    #Region " Variables"

    Private W, H As Integer
    Private _Rounded As Boolean = False
    Private State As MouseState = MouseState.None

    #End Region

    #Region " Properties"

    #Region " Colors"

    <Category("Colors")> _
    Public Property BaseColor As Color
    Get
    Return _BaseColor
    End Get
    Set(value As Color)
    _BaseColor = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property TextColor As Color
    Get
    Return _TextColor
    End Get
    Set(value As Color)
    _TextColor = value
    End Set
    End Property

    <Category("Options")> _
    Public Property Rounded As Boolean
    Get
    Return _Rounded
    End Get
    Set(value As Boolean)
    _Rounded = value
    End Set
    End Property

    #End Region

    #Region " Mouse States"

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    State = MouseState.Down : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    MyBase.OnMouseUp(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
    MyBase.OnMouseEnter(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
    MyBase.OnMouseLeave(e)
    State = MouseState.None : Invalidate()
    End Sub

    #End Region

    #End Region

    #Region " Colors"

    Private _BaseColor As Color = _FlatColor
    Private _TextColor As Color = Color.FromArgb(243, 243, 243)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or _
    ControlStyles.SupportsTransparentBackColor, True)
    DoubleBuffered = True
    Size = New Size(106, 32)
    BackColor = Color.Transparent
    Font = New Font("Segoe UI", 12)
    Cursor = Cursors.Hand
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width - 1 : H = Height - 1

    Dim GP As New GraphicsPath
    Dim Base As New Rectangle(0, 0, W, H)

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    Select Case State
    Case MouseState.None
    If Rounded Then
    '-- Base
    GP = Helpers.RoundRec(Base, 6)
    .FillPath(New SolidBrush(_BaseColor), GP)

    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), Base, CenterSF)
    Else
    '-- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)

    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), Base, CenterSF)
    End If
    Case MouseState.Over
    If Rounded Then
    '-- Base
    GP = Helpers.RoundRec(Base, 6)
    .FillPath(New SolidBrush(_BaseColor), GP)
    .FillPath(New SolidBrush(Color.FromArgb(20, Color.White)), GP)

    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), Base, CenterSF)
    Else
    '-- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)
    .FillRectangle(New SolidBrush(Color.FromArgb(20, Color.White)), Base)

    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), Base, CenterSF)
    End If
    Case MouseState.Down
    If Rounded Then
    '-- Base
    GP = Helpers.RoundRec(Base, 6)
    .FillPath(New SolidBrush(_BaseColor), GP)
    .FillPath(New SolidBrush(Color.FromArgb(20, Color.Black)), GP)

    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), Base, CenterSF)
    Else
    '-- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)
    .FillRectangle(New SolidBrush(Color.FromArgb(20, Color.Black)), Base)

    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), Base, CenterSF)
    End If
    End Select
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    <DefaultEvent("CheckedChanged")> Class FlatToggle : Inherits Control

    #Region " Variables"

    Private W, H As Integer
    Private O As _Options
    Private _Checked As Boolean = False
    Private State As MouseState = MouseState.None

    #End Region

    #Region " Properties"
    Public Event CheckedChanged(ByVal sender As Object)

    <Flags()> _
    Enum _Options
    Style1
    Style2
    Style3
    Style4 '-- TODO: New Style
    Style5 '
    -- TODO: New Style
    End Enum

    #Region " Options"

    <Category("Options")> _
    Public Property Options As _Options
    Get
    Return O
    End Get
    Set(value As _Options)
    O = value
    End Set
    End Property

    <Category("Options")> _
    Public Property Checked As Boolean
    Get
    Return _Checked
    End Get
    Set(value As Boolean)
    _Checked = value
    End Set
    End Property

    #End Region

    Protected Overrides Sub OnTextChanged(e As EventArgs)
    MyBase.OnTextChanged(e) : Invalidate()
    End Sub

    Protected Overrides Sub OnResize(e As EventArgs)
    MyBase.OnResize(e)
    Width = 76
    Height = 33
    End Sub

    #Region " Mouse States"

    Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
    MyBase.OnMouseEnter(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
    MyBase.OnMouseDown(e)
    State = MouseState.Down : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
    MyBase.OnMouseLeave(e)
    State = MouseState.None : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
    MyBase.OnMouseUp(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnClick(e As EventArgs)
    MyBase.OnClick(e)
    _Checked = Not _Checked
    RaiseEvent CheckedChanged(Me)
    End Sub

    #End Region

    #End Region

    #Region " Colors"

    Private BaseColor As Color = _FlatColor
    Private BaseColorRed As Color = Color.FromArgb(220, 85, 96)
    Private BGColor As Color = Color.FromArgb(84, 85, 86)
    Private ToggleColor As Color = Color.FromArgb(45, 47, 49)
    Private TextColor As Color = Color.FromArgb(243, 243, 243)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or _
    ControlStyles.SupportsTransparentBackColor, True)
    DoubleBuffered = True
    BackColor = Color.Transparent
    Size = New Size(44, Height + 1)
    Cursor = Cursors.Hand
    Font = New Font("Segoe UI", 10)
    Size = New Size(76, 33)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width - 1 : H = Height - 1

    Dim GP, GP2 As New GraphicsPath
    Dim Base As New Rectangle(0, 0, W, H), Toggle As New Rectangle(CInt(W \ 2), 0, 38, H)

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    Select Case O
    Case _Options.Style1 '-- Style 1
    '
    -- Base
    GP = Helpers.RoundRec(Base, 6)
    GP2 = Helpers.RoundRec(Toggle, 6)
    .FillPath(New SolidBrush(BGColor), GP)
    .FillPath(New SolidBrush(ToggleColor), GP2)

    '-- Text
    .DrawString("OFF", Font, New SolidBrush(BGColor), New Rectangle(19, 1, W, H), CenterSF)

    If Checked Then
    '
    -- Base
    GP = Helpers.RoundRec(Base, 6)
    GP2 = Helpers.RoundRec(New Rectangle(CInt(W \ 2), 0, 38, H), 6)
    .FillPath(New SolidBrush(ToggleColor), GP)
    .FillPath(New SolidBrush(BaseColor), GP2)

    '-- Text
    .DrawString("ON", Font, New SolidBrush(BaseColor), New Rectangle(8, 7, W, H), NearSF)
    End If
    Case _Options.Style2 '
    -- Style 2
    '-- Base
    GP = Helpers.RoundRec(Base, 6)
    Toggle = New Rectangle(4, 4, 36, H - 8)
    GP2 = Helpers.RoundRec(Toggle, 4)
    .FillPath(New SolidBrush(BaseColorRed), GP)
    .FillPath(New SolidBrush(ToggleColor), GP2)

    '
    -- Lines
    .DrawLine(New Pen(BGColor), 18, 20, 18, 12)
    .DrawLine(New Pen(BGColor), 22, 20, 22, 12)
    .DrawLine(New Pen(BGColor), 26, 20, 26, 12)

    '-- Text
    .DrawString("r", New Font("Marlett", 8), New SolidBrush(TextColor), New Rectangle(19, 2, Width, Height), CenterSF)

    If Checked Then
    GP = Helpers.RoundRec(Base, 6)
    Toggle = New Rectangle(CInt(W \ 2) - 2, 4, 36, H - 8)
    GP2 = Helpers.RoundRec(Toggle, 4)
    .FillPath(New SolidBrush(BaseColor), GP)
    .FillPath(New SolidBrush(ToggleColor), GP2)

    '
    -- Lines
    .DrawLine(New Pen(BGColor), CInt(W \ 2) + 12, 20, CInt(W \ 2) + 12, 12)
    .DrawLine(New Pen(BGColor), CInt(W \ 2) + 16, 20, CInt(W \ 2) + 16, 12)
    .DrawLine(New Pen(BGColor), CInt(W \ 2) + 20, 20, CInt(W \ 2) + 20, 12)

    '-- Text
    .DrawString("?", New Font("Wingdings", 14), New SolidBrush(TextColor), New Rectangle(8, 7, Width, Height), NearSF)
    End If
    Case _Options.Style3 '
    -- Style 3
    '-- Base
    GP = Helpers.RoundRec(Base, 16)
    Toggle = New Rectangle(W - 28, 4, 22, H - 8)
    GP2.AddEllipse(Toggle)
    .FillPath(New SolidBrush(ToggleColor), GP)
    .FillPath(New SolidBrush(BaseColorRed), GP2)

    '
    -- Text
    .DrawString("OFF", Font, New SolidBrush(BaseColorRed), New Rectangle(-12, 2, W, H), CenterSF)

    If Checked Then
    '-- Base
    GP = Helpers.RoundRec(Base, 16)
    Toggle = New Rectangle(6, 4, 22, H - 8)
    GP2.Reset()
    GP2.AddEllipse(Toggle)
    .FillPath(New SolidBrush(ToggleColor), GP)
    .FillPath(New SolidBrush(BaseColor), GP2)

    '
    -- Text
    .DrawString("ON", Font, New SolidBrush(BaseColor), New Rectangle(12, 2, W, H), CenterSF)
    End If
    Case _Options.Style4
    '-- TODO: New Styles
    If Checked Then
    '
    --
    End If
    Case _Options.Style5
    '-- TODO: New Styles
    If Checked Then
    '
    --
    End If
    End Select

    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    <DefaultEvent("CheckedChanged")> Class FlatRadioButton : Inherits Control

    #Region " Variables"

    Private State As MouseState = MouseState.None
    Private W, H As Integer
    Private O As _Options
    Private _Checked As Boolean

    #End Region

    #Region " Properties"

    Event CheckedChanged(ByVal sender As Object)
    Property Checked() As Boolean
    Get
    Return _Checked
    End Get
    Set(value As Boolean)
    _Checked = value
    InvalidateControls()
    RaiseEvent CheckedChanged(Me)
    Invalidate()
    End Set
    End Property

    Protected Overrides Sub OnClick(e As EventArgs)
    If Not _Checked Then Checked = True
    MyBase.OnClick(e)
    End Sub

    Private Sub InvalidateControls()
    If Not IsHandleCreated OrElse Not _Checked Then Return
    For Each C As Control In Parent.Controls
    If C IsNot Me AndAlso TypeOf C Is RadioButton Then
    DirectCast(C, RadioButton).Checked = False
    Invalidate()
    End If
    Next
    End Sub

    Protected Overrides Sub OnCreateControl()
    MyBase.OnCreateControl()
    InvalidateControls()
    End Sub

    <Flags> _
    Enum _Options
    Style1
    Style2
    End Enum

    <Category("Options")> _
    Public Property Options As _Options
    Get
    Return O
    End Get
    Set(value As _Options)
    O = value
    End Set
    End Property

    Protected Overrides Sub OnResize(e As EventArgs)
    MyBase.OnResize(e)
    Height = 22
    End Sub

    #Region " Colors"

    <Category("Colors")> _
    Public Property BaseColor As Color
    Get
    Return _BaseColor
    End Get
    Set(value As Color)
    _BaseColor = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property BorderColor As Color
    Get
    Return _BorderColor
    End Get
    Set(value As Color)
    _BorderColor = value
    End Set
    End Property

    #End Region

    #Region " Mouse States"

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    State = MouseState.Down : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    MyBase.OnMouseUp(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
    MyBase.OnMouseEnter(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
    MyBase.OnMouseLeave(e)
    State = MouseState.None : Invalidate()
    End Sub

    #End Region

    #End Region

    #Region " Colors"

    Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
    Private _BorderColor As Color = _FlatColor
    Private _TextColor As Color = Color.FromArgb(243, 243, 243)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    DoubleBuffered = True
    Cursor = Cursors.Hand
    Size = New Size(100, 22)
    BackColor = Color.FromArgb(60, 70, 73)
    Font = New Font("Segoe UI", 10)
    End Sub
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width - 1 : H = Height - 1

    Dim Base As New Rectangle(0, 2, Height - 5, Height - 5), Dot As New Rectangle(4, 6, H - 12, H - 12)

    With G
    .SmoothingMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    Select Case O
    Case _Options.Style1 '-- Style 1
    '
    -- Base
    .FillEllipse(New SolidBrush(_BaseColor), Base)

    Select Case State '-- Mouse States
    Case MouseState.Over
    '
    -- Base
    .DrawEllipse(New Pen(_BorderColor), Base)
    Case MouseState.Down
    '-- Base
    .DrawEllipse(New Pen(_BorderColor), Base)
    End Select

    '
    -- If Checked
    If Checked Then
    '-- Base
    .FillEllipse(New SolidBrush(_BorderColor), Dot)
    End If

    '
    -- If Enabled
    If Me.Enabled = False Then
    '-- Base
    .FillEllipse(New SolidBrush(Color.FromArgb(54, 58, 61)), Base)
    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(Color.FromArgb(140, 142, 143)), New Rectangle(20, 2, W, H), NearSF)
    End If

    '-- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), New Rectangle(20, 2, W, H), NearSF)
    Case _Options.Style2 '
    -- Style 2
    '-- Base
    .FillEllipse(New SolidBrush(_BaseColor), Base)

    Select Case State
    Case MouseState.Over '
    -- Mouse States
    '-- Base
    .DrawEllipse(New Pen(_BorderColor), Base)
    .FillEllipse(New SolidBrush(Color.FromArgb(118, 213, 170)), Base)
    Case MouseState.Down
    '
    -- Base
    .DrawEllipse(New Pen(_BorderColor), Base)
    .FillEllipse(New SolidBrush(Color.FromArgb(118, 213, 170)), Base)
    End Select

    '-- If Checked
    If Checked Then
    '
    -- Base
    .FillEllipse(New SolidBrush(_BorderColor), Dot)
    End If

    '-- If Enabled
    If Me.Enabled = False Then
    '
    -- Base
    .FillEllipse(New SolidBrush(Color.FromArgb(54, 58, 61)), Base)
    '-- Text
    .DrawString(Text, Font, New SolidBrush(Color.FromArgb(48, 119, 91)), New Rectangle(20, 2, W, H), NearSF)
    End If

    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), New Rectangle(20, 2, W, H), NearSF)
    End Select
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    <DefaultEvent("CheckedChanged")> Class FlatCheckBox : Inherits Control

    #Region " Variables"

    Private W, H As Integer
    Private State As MouseState = MouseState.None
    Private O As _Options
    Private _Checked As Boolean

    #End Region

    #Region " Properties"
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
    MyBase.OnTextChanged(e)
    Invalidate()
    End Sub

    Property Checked() As Boolean
    Get
    Return _Checked
    End Get
    Set(ByVal value As Boolean)
    _Checked = value
    Invalidate()
    End Set
    End Property

    Event CheckedChanged(ByVal sender As Object)
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
    _Checked = Not _Checked
    RaiseEvent CheckedChanged(Me)
    MyBase.OnClick(e)
    End Sub

    <Flags> _
    Enum _Options
    Style1
    Style2
    End Enum

    <Category("Options")> _
    Public Property Options As _Options
    Get
    Return O
    End Get
    Set(value As _Options)
    O = value
    End Set
    End Property

    Protected Overrides Sub OnResize(e As EventArgs)
    MyBase.OnResize(e)
    Height = 22
    End Sub

    #Region " Colors"

    <Category("Colors")> _
    Public Property BaseColor As Color
    Get
    Return _BaseColor
    End Get
    Set(value As Color)
    _BaseColor = value
    End Set
    End Property

    <Category("Colors")> _
    Public Property BorderColor As Color
    Get
    Return _BorderColor
    End Get
    Set(value As Color)
    _BorderColor = value
    End Set
    End Property

    #End Region

    #Region " Mouse States"

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    State = MouseState.Down : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    MyBase.OnMouseUp(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
    MyBase.OnMouseEnter(e)
    State = MouseState.Over : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
    MyBase.OnMouseLeave(e)
    State = MouseState.None : Invalidate()
    End Sub

    #End Region

    #End Region

    #Region " Colors"

    Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
    Private _BorderColor As Color = _FlatColor
    Private _TextColor As Color = Color.FromArgb(243, 243, 243)

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    DoubleBuffered = True
    BackColor = Color.FromArgb(60, 70, 73)
    Cursor = Cursors.Hand
    Font = New Font("Segoe UI", 10)
    Size = New Size(112, 22)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width - 1 : H = Height - 1

    Dim Base As New Rectangle(0, 2, Height - 5, Height - 5)

    With G
    .SmoothingMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)
    Select Case O
    Case _Options.Style1 '-- Style 1
    '
    -- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)

    Select Case State
    Case MouseState.Over
    '-- Base
    .DrawRectangle(New Pen(_BorderColor), Base)
    Case MouseState.Down
    '
    -- Base
    .DrawRectangle(New Pen(_BorderColor), Base)
    End Select

    '-- If Checked
    If Checked Then
    .DrawString("?", New Font("Wingdings", 18), New SolidBrush(_BorderColor), New Rectangle(5, 7, H - 9, H - 9), CenterSF)
    End If

    '
    -- If Enabled
    If Me.Enabled = False Then
    .FillRectangle(New SolidBrush(Color.FromArgb(54, 58, 61)), Base)
    .DrawString(Text, Font, New SolidBrush(Color.FromArgb(140, 142, 143)), New Rectangle(20, 2, W, H), NearSF)
    End If

    '-- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), New Rectangle(20, 2, W, H), NearSF)
    Case _Options.Style2 '
    -- Style 2
    '-- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)

    Select Case State
    Case MouseState.Over
    '
    -- Base
    .DrawRectangle(New Pen(_BorderColor), Base)
    .FillRectangle(New SolidBrush(Color.FromArgb(118, 213, 170)), Base)
    Case MouseState.Down
    '-- Base
    .DrawRectangle(New Pen(_BorderColor), Base)
    .FillRectangle(New SolidBrush(Color.FromArgb(118, 213, 170)), Base)
    End Select

    '
    -- If Checked
    If Checked Then
    .DrawString("?", New Font("Wingdings", 18), New SolidBrush(_BorderColor), New Rectangle(5, 7, H - 9, H - 9), CenterSF)
    End If

    '-- If Enabled
    If Me.Enabled = False Then
    .FillRectangle(New SolidBrush(Color.FromArgb(54, 58, 61)), Base)
    .DrawString(Text, Font, New SolidBrush(Color.FromArgb(48, 119, 91)), New Rectangle(20, 2, W, H), NearSF)
    End If

    '
    -- Text
    .DrawString(Text, Font, New SolidBrush(_TextColor), New Rectangle(20, 2, W, H), NearSF)
    End Select
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class

    <DefaultEvent("TextChanged")> Class FlatTextBox : Inherits Control

    #Region " Variables"

    Private W, H As Integer
    Private State As MouseState = MouseState.None
    Private WithEvents TB As Windows.Forms.TextBox

    #End Region

    #Region " Properties"

    #Region " TextBox Properties"

    Private _TextAlign As HorizontalAlignment = HorizontalAlignment.Left
    <Category("Options")> _
    Property TextAlign() As HorizontalAlignment
    Get
    Return _TextAlign
    End Get
    Set(ByVal value As HorizontalAlignment)
    _TextAlign = value
    If TB IsNot Nothing Then
    TB.TextAlign = value
    End If
    End Set
    End Property
    Private _MaxLength As Integer = 32767
    <Category("Options")> _
    Property MaxLength() As Integer
    Get
    Return _MaxLength
    End Get
    Set(ByVal value As Integer)
    _MaxLength = value
    If TB IsNot Nothing Then
    TB.MaxLength = value
    End If
    End Set
    End Property
    Private _ReadOnly As Boolean
    <Category("Options")> _
    Property [ReadOnly]() As Boolean
    Get
    Return _ReadOnly
    End Get
    Set(ByVal value As Boolean)
    _ReadOnly = value
    If TB IsNot Nothing Then
    TB.ReadOnly = value
    End If
    End Set
    End Property
    Private _UseSystemPasswordChar As Boolean
    <Category("Options")> _
    Property UseSystemPasswordChar() As Boolean
    Get
    Return _UseSystemPasswordChar
    End Get
    Set(ByVal value As Boolean)
    _UseSystemPasswordChar = value
    If TB IsNot Nothing Then
    TB.UseSystemPasswordChar = value
    End If
    End Set
    End Property
    Private _Multiline As Boolean
    <Category("Options")> _
    Property Multiline() As Boolean
    Get
    Return _Multiline
    End Get
    Set(ByVal value As Boolean)
    _Multiline = value
    If TB IsNot Nothing Then
    TB.Multiline = value

    If value Then
    TB.Height = Height - 11
    Else
    Height = TB.Height + 11
    End If

    End If
    End Set
    End Property
    <Category("Options")> _
    Overrides Property Text As String
    Get
    Return MyBase.Text
    End Get
    Set(ByVal value As String)
    MyBase.Text = value
    If TB IsNot Nothing Then
    TB.Text = value
    End If
    End Set
    End Property
    <Category("Options")> _
    Overrides Property Font As Font
    Get
    Return MyBase.Font
    End Get
    Set(ByVal value As Font)
    MyBase.Font = value
    If TB IsNot Nothing Then
    TB.Font = value
    TB.Location = New Point(3, 5)
    TB.Width = Width - 6

    If Not _Multiline Then
    Height = TB.Height + 11
    End If
    End If
    End Set
    End Property

    Protected Overrides Sub OnCreateControl()
    MyBase.OnCreateControl()
    If Not Controls.Contains(TB) Then
    Controls.Add(TB)
    End If
    End Sub
    Private Sub OnBaseTextChanged(ByVal s As Object, ByVal e As EventArgs)
    Text = TB.Text
    End Sub
    Private Sub OnBaseKeyDown(ByVal s As Object, ByVal e As KeyEventArgs)
    If e.Control AndAlso e.KeyCode = Keys.A Then
    TB.SelectAll()
    e.SuppressKeyPress = True
    End If
    If e.Control AndAlso e.KeyCode = Keys.C Then
    TB.Copy()
    e.SuppressKeyPress = True
    End If
    End Sub
    Protected Overrides Sub OnResize(ByVal e As EventArgs)
    TB.Location = New Point(5, 5)
    TB.Width = Width - 10

    If _Multiline Then
    TB.Height = Height - 11
    Else
    Height = TB.Height + 11
    End If

    MyBase.OnResize(e)
    End Sub

    #End Region

    #Region " Colors"

    <Category("Colors")> _
    Public Property TextColor As Color
    Get
    Return _TextColor
    End Get
    Set(value As Color)
    _TextColor = value
    End Set
    End Property

    Public Overrides Property ForeColor() As Color
    Get
    Return _TextColor
    End Get
    Set(value As Color)
    _TextColor = value
    End Set
    End Property

    #End Region

    #Region " Mouse States"

    Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    State = MouseState.Down : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
    MyBase.OnMouseUp(e)
    State = MouseState.Over : TB.Focus() : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
    MyBase.OnMouseEnter(e)
    State = MouseState.Over : TB.Focus() : Invalidate()
    End Sub
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
    MyBase.OnMouseLeave(e)
    State = MouseState.None : Invalidate()
    End Sub

    #End Region

    #End Region

    #Region " Colors"

    Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
    Private _TextColor As Color = Color.FromArgb(192, 192, 192)
    Private _BorderColor As Color = _FlatColor

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or _
    ControlStyles.SupportsTransparentBackColor, True)
    DoubleBuffered = True

    BackColor = Color.Transparent

    TB = New Windows.Forms.TextBox
    TB.Font = New Font("Segoe UI", 10)
    TB.Text = Text
    TB.BackColor = _BaseColor
    TB.ForeColor = _TextColor
    TB.MaxLength = _MaxLength
    TB.Multiline = _Multiline
    TB.ReadOnly = _ReadOnly
    TB.UseSystemPasswordChar = _UseSystemPasswordChar
    TB.BorderStyle = BorderStyle.None
    TB.Location = New Point(5, 5)
    TB.Width = Width - 10

    TB.Cursor = Cursors.IBeam

    If _Multiline Then
    TB.Height = Height - 11
    Else
    Height = TB.Height + 11
    End If

    AddHandler TB.TextChanged, AddressOf OnBaseTextChanged
    AddHandler TB.KeyDown, AddressOf OnBaseKeyDown
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width - 1 : H = Height - 1

    Dim Base As New Rectangle(0, 0, W, H)

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(BackColor)

    '-- Colors
    TB.BackColor = _BaseColor
    TB.ForeColor = _TextColor

    '
    -- Base
    .FillRectangle(New SolidBrush(_BaseColor), Base)
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub

    End Class

    Class FlatTabControl : Inherits TabControl

    #Region " Variables"

    Private W, H As Integer

    #End Region

    #Region " Properties"

    Protected Overrides Sub CreateHandle()
    MyBase.CreateHandle()
    Alignment = TabAlignment.Top
    End Sub

    #Region " Colors"

    <Category("Colors")> _
    Public Property ActiveColor As Color
    Get
    Return _ActiveColor
    End Get
    Set(value As Color)
    _ActiveColor = value
    End Set
    End Property

    '<Category("Colors")> _ '-- Arrow
    'Public Property IndicatorColor As Color
    '
    Get
    ' Return _IndicatorColor
    '
    End Get
    ' Set(value As Color)
    '
    _IndicatorColor = value
    ' End Set
    '
    End Property

    #End Region

    #End Region

    #Region " Colors"

    Private BaseColor As Color = Color.FromArgb(60, 70, 73)
    Private _ActiveColor As Color = _FlatColor
    'Private _IndicatorColor As Color = Color.FromArgb(44, 56, 54) '-- Arrow

    #End Region

    Sub New()
    SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
    ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    DoubleBuffered = True
    BackColor = Color.FromArgb(60, 70, 73)

    Font = New Font("Segoe UI", 10)
    SizeMode = TabSizeMode.Fixed
    ItemSize = New Size(120, 40)
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
    B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    W = Width - 1 : H = Height - 1

    Dim GP As New GraphicsPath
    Dim PGB As PathGradientBrush

    With G
    .SmoothingMode = 2
    .PixelOffsetMode = 2
    .TextRenderingHint = 5
    .Clear(_ActiveColor)

    Try : SelectedTab.BackColor = BaseColor : Catch : End Try

    For i = 0 To TabCount - 1
    Dim Base As New Rectangle(New Point(GetTabRect(i).Location.X + 2, GetTabRect(i).Location.Y), New Size(GetTabRect(i).Width, GetTabRect(i).Height))
    Dim BaseSize As New Rectangle(Base.Location, New Size(Base.Width, Base.Height))

    If i = SelectedIndex Then
    '-- Base
    .FillRectangle(New SolidBrush(_ActiveColor), BaseSize)

    GP.Reset()
    GP.AddRectangle(BaseSize)

    '
    -- Gradiant
    PGB = New PathGradientBrush(GP)
    With PGB
    .CenterColor = _ActiveColor
    .SurroundColors = {Color.FromArgb(45, BaseColor)}
    .FocusScales = New PointF(0.5F, 0.5F)
    End With
    .FillPath(PGB, GP)

    '-- ImageList
    If ImageList IsNot Nothing Then
    Try
    If ImageList.Images(TabPages(i).ImageIndex) IsNot Nothing Then
    '
    -- Image
    .DrawImage(ImageList.Images(TabPages(i).ImageIndex), New Point(BaseSize.Location.X + 8, BaseSize.Location.Y + 6))
    '-- Text
    .DrawString(" " & TabPages(i).Text, Font, Brushes.White, BaseSize, CenterSF)
    Else
    '
    -- Text
    .DrawString(TabPages(i).Text, Font, Brushes.White, BaseSize, CenterSF)
    End If
    Catch ex As Exception
    Throw New Exception(ex.Message)
    End Try
    Else
    '-- Text
    .DrawString(TabPages(i).Text, Font, Brushes.White, BaseSize, CenterSF)
    End If
    Else
    '
    -- Base
    .FillRectangle(New SolidBrush(_ActiveColor), BaseSize)

    '-- ImageList
    If ImageList IsNot Nothing Then
    Try
    If ImageList.Images(TabPages(i).ImageIndex) IsNot Nothing Then
    '
    -- Image
    .DrawImage(ImageList.Images(TabPages(i).ImageIndex), New Point(BaseSize.Location.X + 8, BaseSize.Location.Y + 6))
    '-- Text
    .DrawString(" " & TabPages(i).Text, Font, New SolidBrush(Color.White), BaseSize, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center})
    Else
    '
    -- Text
    .DrawString(TabPages(i).Text, Font, New SolidBrush(Color.White), BaseSize, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center})
    End If
    Catch ex As Exception
    Throw New Exception(ex.Message)
    End Try
    Else
    '-- Text
    .DrawString(TabPages(i).Text, Font, New SolidBrush(Color.White), BaseSize, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center})
    End If
    End If
    Next
    End With

    MyBase.OnPaint(e)
    G.Dispose()
    e.Graphics.InterpolationMode = 7
    e.Graphics.DrawImageUnscaled(B, 0, 0)
    B.Dispose()
    End Sub
    End Class
    Le pastebin: http://pastebin.com/wE40UEhq
     
    • J'aime J'aime x 1
    • J'approuve J'approuve x 1
    • Je désapprouve Je désapprouve x 1
  5. Hawezo

    Hawezo Mineur de Fer

    Inscrit:
    6 Juin 2013
    Messages:
    546
    Points:
    136
    Sexe:
    Homme
    J'ai, autrefois, apprécié ce thème, mais je le trouve trop lent et contraignant.
    De plus, lorsque je continuerai ce tutoriel, je le ferai en WPF, et ce thème-ci est pour les WinForms.
    Merci quand même :)
     
    • J'approuve J'approuve x 2
  6. Sylfaen

    Sylfaen Mineur de Redstone

    Inscrit:
    18 Avr 2016
    Messages:
    1 171
    Points:
    123
    Sexe:
    Homme
    Je ne m'y connais pas du tout dans les launcher, je voulais juste envoyer un bout de code que j'ai trouvé sur un forum de dev et qui pouvait, à l'occasion, aider certaines personnes.
     
    • J'aime J'aime x 1
    • Informatif Informatif x 1

Partager cette page