728x90
Imports System.Drawing.Drawing2D, System.ComponentModel, System.Windows.Forms
'''
''' Flat UI Theme
''' Creator: iSynthesis (HF)
''' FIXED BY DUCKIETY FOR NET 4.5.2+ (MAYBE LOWER)!!
''' Version: 1.0.4
''' Date Created: 17/06/2013
''' Date Changed: 26/06/2013
''' UID: 374648
''' For any bugs / errors, PM me.
'''
'''
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
Public Function RoundRect(x!, y!, w!, h!, Optional r! = 0.3, Optional TL As Boolean = True, Optional TR As Boolean = True, Optional BR As Boolean = True, Optional BL As Boolean = True) As GraphicsPath
Dim d! = Math.Min(w, h) * r, xw = x + w, yh = y + h
RoundRect = New GraphicsPath
With RoundRect
If TL Then .AddArc(x, y, d, d, 180, 90) Else .AddLine(x, y, x, y)
If TR Then .AddArc(xw - d, y, d, d, 270, 90) Else .AddLine(xw, y, xw, y)
If BR Then .AddArc(xw - d, yh - d, d, d, 0, 90) Else .AddLine(xw, yh, xw, yh)
If BL Then .AddArc(x, yh - d, d, d, 90, 90) Else .AddLine(x, yh, x, yh)
.CloseFigure()
End With
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
#Region " Options"
<Category("Options")>
Public Property HeaderMaximize As Boolean
Get
Return _HeaderMaximize
End Get
Set(value As Boolean)
_HeaderMaximize = value
End Set
End Property
#End Region
Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
MyBase.OnMouseDown(e)
If e.Button = System.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 = System.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"
#Region " Dark 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
#Region " Light Colors"
Private _HeaderLight As Color = Color.FromArgb(171, 171, 172)
Private _BaseLight As Color = Color.FromArgb(196, 199, 200)
Public TextLight As Color = Color.FromArgb(45, 47, 49)
#End Region
#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
#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
Protected Overrides Sub OnResize(e As EventArgs)
MyBase.OnResize(e)
Size = New Size(18, 18)
End Sub
#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
#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
Protected Overrides Sub OnResize(e As EventArgs)
MyBase.OnResize(e)
Size = New Size(18, 18)
End Sub
#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 RadioButton : 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"
Property Checked() As Boolean
Get
Return _Checked
End Get
Set(value As Boolean)
_Checked = value
InvalidateControls()
RaiseEvent CheckedChanged(Me)
Invalidate()
End Set
End Property
Event CheckedChanged(ByVal sender As Object)
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
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 " 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
'-- Base
.FillEllipse(New SolidBrush(_BaseColor), Base)
Select Case State
Case MouseState.Over
.DrawEllipse(New Pen(_BorderColor), Base)
Case MouseState.Down
.DrawEllipse(New Pen(_BorderColor), Base)
End Select
'-- If Checked
If Checked Then
.FillEllipse(New SolidBrush(_BorderColor), Dot)
End If
Case _Options.Style2
'-- Base
.FillEllipse(New SolidBrush(_BaseColor), Base)
Select Case State
Case MouseState.Over
'-- 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
End Select
.DrawString(Text, Font, New SolidBrush(_TextColor), New Rectangle(20, 2, W, H), NearSF)
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
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 System.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 System.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 BaseColor As Color
Get
Return _BaseColor
End Get
Set(value As Color)
_BaseColor = value
End Set
End Property
<Category("Colors")>
Public Property ActiveColor As Color
Get
Return _ActiveColor
End Get
Set(value As Color)
_ActiveColor = value
End Set
End Property
#End Region
#End Region
#Region " Colors"
Private BGColor As Color = Color.FromArgb(60, 70, 73)
Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
Private _ActiveColor As Color = _FlatColor
#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
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(_BaseColor)
Try : SelectedTab.BackColor = BGColor : 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(_BaseColor), BaseSize)
'-- Gradiant
'.fill
.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, 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(_BaseColor), 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
Class FlatAlertBox : Inherits Control
'''
''' How to use: FlatAlertBox.ShowControl(Kind, String, Interval)
'''
'''
#Region " Variables"
Private W, H As Integer
Private K As _Kind
Private _Text As String
Private State As MouseState = MouseState.None
Private X As Integer
Private WithEvents T As Timer
#End Region
#Region " Properties"
<Flags()>
Enum _Kind
[Success]
[Error]
[Info]
End Enum
#Region " Options"
<Category("Options")>
Public Property kind As _Kind
Get
Return K
End Get
Set(value As _Kind)
K = value
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 _Text IsNot Nothing Then
_Text = value
End If
End Set
End Property
<Category("Options")>
Shadows Property Visible As Boolean
Get
Return MyBase.Visible = False
End Get
Set(value As Boolean)
MyBase.Visible = 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)
Height = 42
End Sub
Public Sub ShowControl(Kind As _Kind, Str As String, Interval As Integer)
K = Kind
Text = Str
Me.Visible = True
T = New Timer
T.Interval = Interval
T.Enabled = True
End Sub
Private Sub T_Tick(sender As Object, e As EventArgs) Handles T.Tick
Me.Visible = False
T.Enabled = False
T.Dispose()
End Sub
#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
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)
Me.Visible = False
End Sub
#End Region
#End Region
#Region " Colors"
Private SuccessColor As Color = Color.FromArgb(60, 85, 79)
Private SuccessText As Color = Color.FromArgb(35, 169, 110)
Private ErrorColor As Color = Color.FromArgb(87, 71, 71)
Private ErrorText As Color = Color.FromArgb(254, 142, 122)
Private InfoColor As Color = Color.FromArgb(70, 91, 94)
Private InfoText As Color = Color.FromArgb(97, 185, 186)
#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(576, 42)
Location = New Point(10, 61)
Font = New Font("Segoe UI", 10)
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 Base As New Rectangle(0, 0, W, H)
With G
.SmoothingMode = 2
.TextRenderingHint = 5
.Clear(BackColor)
Select Case K
Case _Kind.Success
'-- Base
.FillRectangle(New SolidBrush(SuccessColor), Base)
'-- Ellipse
.FillEllipse(New SolidBrush(SuccessText), New Rectangle(8, 9, 24, 24))
.FillEllipse(New SolidBrush(SuccessColor), New Rectangle(10, 11, 20, 20))
'-- Checked Sign
.DrawString("ü", New Font("Wingdings", 22), New SolidBrush(SuccessText), New Rectangle(7, 7, W, H), NearSF)
.DrawString(Text, Font, New SolidBrush(SuccessText), New Rectangle(48, 12, W, H), NearSF)
'-- X button
.FillEllipse(New SolidBrush(Color.FromArgb(35, Color.Black)), New Rectangle(W - 30, H - 29, 17, 17))
.DrawString("r", New Font("Marlett", 8), New SolidBrush(SuccessColor), New Rectangle(W - 28, 16, W, H), NearSF)
Select Case State ' -- Mouse Over
Case MouseState.Over
.DrawString("r", New Font("Marlett", 8), New SolidBrush(Color.FromArgb(25, Color.White)), New Rectangle(W - 28, 16, W, H), NearSF)
End Select
Case _Kind.Error
'-- Base
.FillRectangle(New SolidBrush(ErrorColor), Base)
'-- Ellipse
.FillEllipse(New SolidBrush(ErrorText), New Rectangle(8, 9, 24, 24))
.FillEllipse(New SolidBrush(ErrorColor), New Rectangle(10, 11, 20, 20))
'-- X Sign
.DrawString("r", New Font("Marlett", 16), New SolidBrush(ErrorText), New Rectangle(6, 11, W, H), NearSF)
.DrawString(Text, Font, New SolidBrush(ErrorText), New Rectangle(48, 12, W, H), NearSF)
'-- X button
.FillEllipse(New SolidBrush(Color.FromArgb(35, Color.Black)), New Rectangle(W - 32, H - 29, 17, 17))
.DrawString("r", New Font("Marlett", 8), New SolidBrush(ErrorColor), New Rectangle(W - 30, 17, W, H), NearSF)
Select Case State
Case MouseState.Over ' -- Mouse Over
.DrawString("r", New Font("Marlett", 8), New SolidBrush(Color.FromArgb(25, Color.White)), New Rectangle(W - 30, 15, W, H), NearSF)
End Select
Case _Kind.Info
'-- Base
.FillRectangle(New SolidBrush(InfoColor), Base)
'-- Ellipse
.FillEllipse(New SolidBrush(InfoText), New Rectangle(8, 9, 24, 24))
.FillEllipse(New SolidBrush(InfoColor), New Rectangle(10, 11, 20, 20))
'-- Info Sign
.DrawString("¡", New Font("Segoe UI", 20, FontStyle.Bold), New SolidBrush(InfoText), New Rectangle(12, -4, W, H), NearSF)
.DrawString(Text, Font, New SolidBrush(InfoText), New Rectangle(48, 12, W, H), NearSF)
'-- X button
.FillEllipse(New SolidBrush(Color.FromArgb(35, Color.Black)), New Rectangle(W - 32, H - 29, 17, 17))
.DrawString("r", New Font("Marlett", 8), New SolidBrush(InfoColor), New Rectangle(W - 30, 17, W, H), NearSF)
Select Case State
Case MouseState.Over ' -- Mouse Over
.DrawString("r", New Font("Marlett", 8), New SolidBrush(Color.FromArgb(25, Color.White)), New Rectangle(W - 30, 17, W, H), NearSF)
End Select
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 FlatProgressBar : Inherits Control
#Region " Variables"
Private W, H As Integer
Private _Value As Integer = 0
Private _Maximum As Integer = 100
#End Region
#Region " Properties"
#Region " Control"
<Category("Control")>
Public Property Maximum() As Integer
Get
Return _Maximum
End Get
Set(V As Integer)
Select Case V
Case Is < _Value
_Value = V
End Select
_Maximum = V
Invalidate()
End Set
End Property
<Category("Control")>
Public Property Value() As Integer
Get
Select Case _Value
Case 0
Return 0
Invalidate()
Case Else
Return _Value
Invalidate()
End Select
End Get
Set(V As Integer)
Select Case V
Case Is > _Maximum
V = _Maximum
Invalidate()
End Select
_Value = V
Invalidate()
End Set
End Property
#End Region
#Region " Colors"
<Category("Colors")>
Public Property ProgressColor As Color
Get
Return _ProgressColor
End Get
Set(value As Color)
_ProgressColor = value
End Set
End Property
<Category("Colors")>
Public Property DarkerProgress As Color
Get
Return _DarkerProgress
End Get
Set(value As Color)
_DarkerProgress = value
End Set
End Property
#End Region
Protected Overrides Sub OnResize(e As EventArgs)
MyBase.OnResize(e)
Height = 42
End Sub
Protected Overrides Sub CreateHandle()
MyBase.CreateHandle()
Height = 42
End Sub
Public Sub Increment(ByVal Amount As Integer)
Value += Amount
End Sub
#End Region
#Region " Colors"
Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
Private _ProgressColor As Color = _FlatColor
Private _DarkerProgress As Color = Color.FromArgb(23, 148, 92)
#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)
Height = 42
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, 24, W, H)
Dim GP, GP2, GP3 As New GraphicsPath
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(BackColor)
'-- Progress Value
Dim iValue As Integer = CInt(_Value / _Maximum * Width)
Select Case Value
Case 0
'-- Base
.FillRectangle(New SolidBrush(_BaseColor), Base)
'--Progress
.FillRectangle(New SolidBrush(_ProgressColor), New Rectangle(0, 24, iValue - 1, H - 1))
Case 100
'-- Base
.FillRectangle(New SolidBrush(_BaseColor), Base)
'--Progress
.FillRectangle(New SolidBrush(_ProgressColor), New Rectangle(0, 24, iValue - 1, H - 1))
Case Else
'-- Base
.FillRectangle(New SolidBrush(_BaseColor), Base)
'--Progress
GP.AddRectangle(New Rectangle(0, 24, iValue - 1, H - 1))
.FillPath(New SolidBrush(_ProgressColor), GP)
'-- Hatch Brush
Dim HB As New HatchBrush(HatchStyle.Plaid, _DarkerProgress, _ProgressColor)
.FillRectangle(HB, New Rectangle(0, 24, iValue - 1, H - 1))
'-- Balloon
Dim Balloon As New Rectangle(iValue - 18, 0, 34, 16)
GP2 = Helpers.RoundRec(Balloon, 4)
.FillPath(New SolidBrush(_BaseColor), GP2)
'-- Arrow
GP3 = Helpers.DrawArrow(iValue - 9, 16, True)
.FillPath(New SolidBrush(_BaseColor), GP3)
'-- Value > You can add "%" > value & "%"
.DrawString(Value, New Font("Segoe UI", 10), New SolidBrush(_ProgressColor), New Rectangle(iValue - 11, -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
Class FlatComboBox : Inherits System.Windows.Forms.ComboBox
#Region " Variables"
Private W, H As Integer
Private _StartIndex As Integer = 0
Private x, y As Integer
#End Region
#Region " Properties"
#Region " Mouse States"
Private State As MouseState = MouseState.None
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
Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
MyBase.OnMouseMove(e)
x = e.Location.X
y = e.Location.Y
Invalidate()
If e.X < Width - 41 Then Cursor = Cursors.IBeam Else Cursor = Cursors.Hand
End Sub
Protected Overrides Sub OnDrawItem(e As DrawItemEventArgs)
MyBase.OnDrawItem(e) : Invalidate()
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
Invalidate()
End If
End Sub
Protected Overrides Sub OnClick(e As EventArgs)
MyBase.OnClick(e) : Invalidate()
End Sub
#End Region
#Region " Colors"
<Category("Colors")>
Public Property HoverColor As Color
Get
Return _HoverColor
End Get
Set(value As Color)
_HoverColor = value
End Set
End Property
#End Region
Private Property StartIndex As Integer
Get
Return _StartIndex
End Get
Set(ByVal value As Integer)
_StartIndex = value
Try
MyBase.SelectedIndex = value
Catch
End Try
Invalidate()
End Set
End Property
Sub DrawItem_(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
If e.Index < 0 Then Exit Sub
e.DrawBackground()
e.DrawFocusRectangle()
e.Graphics.SmoothingMode = 2
e.Graphics.PixelOffsetMode = 2
e.Graphics.TextRenderingHint = 5
e.Graphics.InterpolationMode = 7
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
'-- Selected item
e.Graphics.FillRectangle(New SolidBrush(_HoverColor), e.Bounds)
Else
'-- Not Selected
e.Graphics.FillRectangle(New SolidBrush(_BaseColor), e.Bounds)
End If
'-- Text
e.Graphics.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), New Font("Segoe UI", 8),
Brushes.White, New Rectangle(e.Bounds.X + 2, e.Bounds.Y + 2, e.Bounds.Width, e.Bounds.Height))
e.Graphics.Dispose()
End Sub
Protected Overrides Sub OnResize(e As EventArgs)
MyBase.OnResize(e)
Height = 18
End Sub
#End Region
#Region " Colors"
Private _BaseColor As Color = Color.FromArgb(25, 27, 29)
Private _BGColor As Color = Color.FromArgb(45, 47, 49)
Private _HoverColor As Color = Color.FromArgb(35, 168, 109)
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or
ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
DoubleBuffered = True
DrawMode = DrawMode.OwnerDrawFixed
BackColor = Color.FromArgb(45, 45, 48)
ForeColor = Color.White
DropDownStyle = ComboBoxStyle.DropDownList
Cursor = Cursors.Hand
StartIndex = 0
ItemHeight = 18
Font = New Font("Segoe UI", 8, FontStyle.Regular)
End Sub
Protected Overrides Sub OnPaint(ByVal 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)
Dim Button As New Rectangle(CInt(W - 40), 0, W, H)
Dim GP, GP2 As New GraphicsPath
With G
.Clear(Color.FromArgb(45, 45, 48))
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
'-- Base
.FillRectangle(New SolidBrush(_BGColor), Base)
'-- Button
GP.Reset()
GP.AddRectangle(Button)
.SetClip(GP)
.FillRectangle(New SolidBrush(_BaseColor), Button)
.ResetClip()
'-- Lines
.DrawLine(Pens.White, W - 10, 6, W - 30, 6)
.DrawLine(Pens.White, W - 10, 12, W - 30, 12)
.DrawLine(Pens.White, W - 10, 18, W - 30, 18)
'-- Text
.DrawString(Text, Font, Brushes.White, New Point(4, 6), NearSF)
End With
G.Dispose()
e.Graphics.InterpolationMode = 7
e.Graphics.DrawImageUnscaled(B, 0, 0)
B.Dispose()
End Sub
End Class
Class FlatStickyButton : Inherits Control
#Region " Variables"
Private W, H As Integer
Private State As MouseState = MouseState.None
Private _Rounded As Boolean = False
#End Region
#Region " Properties"
#Region " MouseStates"
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
#Region " Function"
Private Function GetConnectedSides() As Boolean()
Dim Bool = New Boolean(3) {False, False, False, False}
For Each B As Control In Parent.Controls
If TypeOf B Is FlatStickyButton Then
If B Is Me Or Not Rect.IntersectsWith(Rect) Then Continue For
Dim A = Math.Atan2(Left() - B.Left, Top - B.Top) * 2 / Math.PI
If A \ 1 = A Then Bool(A + 1) = True
End If
Next
Return Bool
End Function
Private ReadOnly Property Rect() As Rectangle
Get
Return New Rectangle(Left, Top, Width, Height)
End Get
End Property
#End Region
#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
Protected Overrides Sub OnResize(e As EventArgs)
MyBase.OnResize(e)
'Height = 32
End Sub
Protected Overrides Sub OnCreateControl()
MyBase.OnCreateControl()
'Size = New Size(112, 32)
End Sub
#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 : H = Height
Dim GP As New GraphicsPath
Dim GCS = GetConnectedSides()
Dim RoundedBase = Helpers.RoundRect(0, 0, W, H, , Not (GCS(2) Or GCS(1)), Not (GCS(1) Or GCS(0)), Not (GCS(3) Or GCS(0)), Not (GCS(3) Or GCS(2)))
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 = RoundedBase
.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 = RoundedBase
.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 = RoundedBase
.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
Class FlatNumeric : Inherits Control
#Region " Variables"
Private W, H As Integer
Private State As MouseState = MouseState.None
Private x, y As Integer
Private _Value, _Min, _Max As Long
Private Bool As Boolean
#End Region
#Region " Properties"
Public Property Value As Long
Get
Return _Value
End Get
Set(value As Long)
If value <= _Max And value >= _Min Then _Value = value
Invalidate()
End Set
End Property
Public Property Maximum As Long
Get
Return _Max
End Get
Set(value As Long)
If value > _Min Then _Max = value
If _Value > _Max Then _Value = _Max
Invalidate()
End Set
End Property
Public Property Minimum As Long
Get
Return _Min
End Get
Set(value As Long)
If value < _Max Then _Min = value
If _Value < _Min Then _Value = Minimum
Invalidate()
End Set
End Property
Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
MyBase.OnMouseMove(e)
x = e.Location.X
y = e.Location.Y
Invalidate()
If e.X < Width - 23 Then Cursor = Cursors.IBeam Else Cursor = Cursors.Hand
End Sub
Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
MyBase.OnMouseDown(e)
If x > Width - 21 AndAlso x < Width - 3 Then
If y < 15 Then
If (Value + 1) <= _Max Then _Value += 1
Else
If (Value - 1) >= _Min Then _Value -= 1
End If
Else
Bool = Not Bool
Focus()
End If
Invalidate()
End Sub
Protected Overrides Sub OnKeyPress(e As KeyPressEventArgs)
MyBase.OnKeyPress(e)
Try
If Bool Then _Value = CStr(CStr(_Value) & e.KeyChar.ToString())
If _Value > _Max Then _Value = _Max
Invalidate()
Catch : End Try
End Sub
Protected Overrides Sub OnKeyDown(e As KeyEventArgs)
MyBase.OnKeyDown(e)
If e.KeyCode = Keys.Back Then
Value = 0
End If
End Sub
Protected Overrides Sub OnResize(e As EventArgs)
MyBase.OnResize(e)
Height = 30
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 ButtonColor As Color
Get
Return _ButtonColor
End Get
Set(value As Color)
_ButtonColor = value
End Set
End Property
#End Region
#End Region
#Region " Colors"
Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
Private _ButtonColor 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
Font = New Font("Segoe UI", 10)
BackColor = Color.FromArgb(60, 70, 73)
ForeColor = Color.White
_Min = 0
_Max = 9999999
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)
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(BackColor)
'-- Base
.FillRectangle(New SolidBrush(_BaseColor), Base)
.FillRectangle(New SolidBrush(_ButtonColor), New Rectangle(Width - 24, 0, 24, H))
'-- Add
.DrawString("+", New Font("Segoe UI", 12), Brushes.White, New Point(Width - 12, 8), CenterSF)
'-- Subtract
.DrawString("-", New Font("Segoe UI", 10, FontStyle.Bold), Brushes.White, New Point(Width - 12, 22), CenterSF)
'-- Text
.DrawString(Value, Font, Brushes.White, New Rectangle(5, 1, W, H), New StringFormat() With {.LineAlignment = StringAlignment.Center})
End With
MyBase.OnPaint(e)
G.Dispose()
e.Graphics.InterpolationMode = 7
e.Graphics.DrawImageUnscaled(B, 0, 0)
B.Dispose()
End Sub
End Class
Class FlatListBox : Inherits Control
#Region " Variables"
Private WithEvents ListBx As New ListBox
Private _items As String() = {""}
#End Region
#Region " Poperties"
<Category("Options")>
Public Property items As String()
Get
Return _items
End Get
Set(value As String())
_items = value
ListBx.Items.Clear()
ListBx.Items.AddRange(value)
Invalidate()
End Set
End Property
<Category("Colors")>
Public Property SelectedColor As Color
Get
Return _SelectedColor
End Get
Set(value As Color)
_SelectedColor = value
End Set
End Property
Public ReadOnly Property SelectedItem() As String
Get
Return ListBx.SelectedItem
End Get
End Property
Public ReadOnly Property SelectedIndex() As Integer
Get
Return ListBx.SelectedIndex
If ListBx.SelectedIndex < 0 Then Exit Property
End Get
End Property
Public Sub Clear()
ListBx.Items.Clear()
End Sub
Public Sub ClearSelected()
For i As Integer = (ListBx.SelectedItems.Count - 1) To 0 Step -1
ListBx.Items.Remove(ListBx.SelectedItems(i))
Next
End Sub
Sub Drawitem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles ListBx.DrawItem
If e.Index < 0 Then Exit Sub
e.DrawBackground()
e.DrawFocusRectangle()
e.Graphics.SmoothingMode = 2
e.Graphics.PixelOffsetMode = 2
e.Graphics.InterpolationMode = 7
e.Graphics.TextRenderingHint = 5
If InStr(e.State.ToString, "Selected,") > 0 Then '-- if selected
'-- Base
e.Graphics.FillRectangle(New SolidBrush(_SelectedColor), New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))
'-- Text
e.Graphics.DrawString(" " & ListBx.Items(e.Index).ToString(), New Font("Segoe UI", 8), Brushes.White, e.Bounds.X, e.Bounds.Y + 2)
Else
'-- Base
e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(51, 53, 55)), New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))
'-- Text
e.Graphics.DrawString(" " & ListBx.Items(e.Index).ToString(), New Font("Segoe UI", 8), Brushes.White, e.Bounds.X, e.Bounds.Y + 2)
End If
e.Graphics.Dispose()
End Sub
Protected Overrides Sub OnCreateControl()
MyBase.OnCreateControl()
If Not Controls.Contains(ListBx) Then
Controls.Add(ListBx)
End If
End Sub
Sub AddRange(ByVal items As Object())
ListBx.Items.Remove("")
ListBx.Items.AddRange(items)
End Sub
Sub AddItem(ByVal item As Object)
ListBx.Items.Remove("")
ListBx.Items.Add(item)
End Sub
#End Region
#Region " Colors"
Private BaseColor As Color = Color.FromArgb(45, 47, 49)
Private _SelectedColor As Color = _FlatColor
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or
ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
DoubleBuffered = True
ListBx.DrawMode = DrawMode.OwnerDrawFixed
ListBx.ScrollAlwaysVisible = False
ListBx.HorizontalScrollbar = False
ListBx.BorderStyle = BorderStyle.None
ListBx.BackColor = BaseColor
ListBx.ForeColor = Color.White
ListBx.Location = New Point(3, 3)
ListBx.Font = New Font("Segoe UI", 8)
ListBx.ItemHeight = 20
ListBx.Items.Clear()
ListBx.IntegralHeight = False
Size = New Size(131, 101)
BackColor = BaseColor
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
Dim Base As New Rectangle(0, 0, Width, Height)
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(BackColor)
'-- Size
ListBx.Size = New Size(Width - 6, Height - 2)
'-- 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 FlatContextMenuStrip : Inherits ContextMenuStrip
Protected Overrides Sub OnTextChanged(e As EventArgs)
MyBase.OnTextChanged(e) : Invalidate()
End Sub
Sub New()
MyBase.New()
Renderer = New ToolStripProfessionalRenderer(New TColorTable())
ShowImageMargin = False
ForeColor = Color.White
Font = New Font("Segoe UI", 8)
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
MyBase.OnPaint(e)
e.Graphics.TextRenderingHint = 5
End Sub
Class TColorTable : Inherits ProfessionalColorTable
#Region " Properties"
#Region " Colors"
<Category("Colors")>
Public Property _BackColor As Color
Get
Return BackColor
End Get
Set(value As Color)
BackColor = value
End Set
End Property
<Category("Colors")>
Public Property _CheckedColor As Color
Get
Return CheckedColor
End Get
Set(value As Color)
CheckedColor = 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
#End Region
#Region " Colors"
Private BackColor As Color = Color.FromArgb(45, 47, 49)
Private CheckedColor As Color = _FlatColor
Private BorderColor As Color = Color.FromArgb(53, 58, 60)
#End Region
#Region " Overrides"
Public Overrides ReadOnly Property ButtonSelectedBorder As Color
Get
Return BackColor
End Get
End Property
Public Overrides ReadOnly Property CheckBackground() As Color
Get
Return CheckedColor
End Get
End Property
Public Overrides ReadOnly Property CheckPressedBackground() As Color
Get
Return CheckedColor
End Get
End Property
Public Overrides ReadOnly Property CheckSelectedBackground() As Color
Get
Return CheckedColor
End Get
End Property
Public Overrides ReadOnly Property ImageMarginGradientBegin() As Color
Get
Return CheckedColor
End Get
End Property
Public Overrides ReadOnly Property ImageMarginGradientEnd() As Color
Get
Return CheckedColor
End Get
End Property
Public Overrides ReadOnly Property ImageMarginGradientMiddle() As Color
Get
Return CheckedColor
End Get
End Property
Public Overrides ReadOnly Property MenuBorder() As Color
Get
Return BorderColor
End Get
End Property
Public Overrides ReadOnly Property MenuItemBorder() As Color
Get
Return BorderColor
End Get
End Property
Public Overrides ReadOnly Property MenuItemSelected() As Color
Get
Return CheckedColor
End Get
End Property
Public Overrides ReadOnly Property SeparatorDark() As Color
Get
Return BorderColor
End Get
End Property
Public Overrides ReadOnly Property ToolStripDropDownBackground() As Color
Get
Return BackColor
End Get
End Property
#End Region
End Class
End Class
<DefaultEvent("Scroll")> Class FlatTrackBar : Inherits Control
#Region " Variables"
Private W, H As Integer
Private Val As Integer
Private Bool As Boolean
Private Track As Rectangle
Private Knob As Rectangle
Private Style_ As _Style
#End Region
#Region " Properties"
#Region " Mouse States"
Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
MyBase.OnMouseDown(e)
If e.Button = System.Windows.Forms.MouseButtons.Left Then
Val = CInt((_Value - _Minimum) / (_Maximum - _Minimum) * (Width - 11))
Track = New Rectangle(Val, 0, 10, 20)
Bool = Track.Contains(e.Location)
End If
End Sub
Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
MyBase.OnMouseMove(e)
If Bool AndAlso e.X > -1 AndAlso e.X < (Width + 1) Then
Value = _Minimum + CInt((_Maximum - _Minimum) * (e.X / Width))
End If
End Sub
Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
MyBase.OnMouseUp(e) : Bool = False
End Sub
#End Region
#Region " Styles"
Enum _Style
Slider
Knob
End Enum
Public Property Style As _Style
Get
Return Style_
End Get
Set(value As _Style)
Style_ = value
End Set
End Property
#End Region
#Region " Colors"
<Category("Colors")>
Public Property TrackColor As Color
Get
Return _TrackColor
End Get
Set(value As Color)
_TrackColor = value
End Set
End Property
<Category("Colors")>
Public Property HatchColor As Color
Get
Return _HatchColor
End Get
Set(value As Color)
_HatchColor = value
End Set
End Property
#End Region
Event Scroll(ByVal sender As Object)
Private _Minimum As Integer
Public Property Minimum As Integer
Get
Return Minimum
End Get
Set(value As Integer)
If value < 0 Then
End If
_Minimum = value
If value > _Value Then _Value = value
If value > _Maximum Then _Maximum = value
Invalidate()
End Set
End Property
Private _Maximum As Integer = 10
Public Property Maximum As Integer
Get
Return _Maximum
End Get
Set(value As Integer)
If value < 0 Then
End If
_Maximum = value
If value < _Value Then _Value = value
If value < _Minimum Then _Minimum = value
Invalidate()
End Set
End Property
Private _Value As Integer
Public Property Value As Integer
Get
Return _Value
End Get
Set(value As Integer)
If value = _Value Then Return
If value > _Maximum OrElse value < _Minimum Then
End If
_Value = value
Invalidate()
RaiseEvent Scroll(Me)
End Set
End Property
Private _ShowValue As Boolean = False
Public Property ShowValue As Boolean
Get
Return _ShowValue
End Get
Set(value As Boolean)
_ShowValue = value
End Set
End Property
Protected Overrides Sub OnKeyDown(e As KeyEventArgs)
MyBase.OnKeyDown(e)
If e.KeyCode = Keys.Subtract Then
If Value = 0 Then Exit Sub
Value -= 1
ElseIf e.KeyCode = Keys.Add Then
If Value = _Maximum Then Exit Sub
Value += 1
End If
End Sub
Protected Overrides Sub OnTextChanged(e As EventArgs)
MyBase.OnTextChanged(e) : Invalidate()
End Sub
Protected Overrides Sub OnResize(e As EventArgs)
MyBase.OnResize(e)
Height = 23
End Sub
#End Region
#Region " Colors"
Private BaseColor As Color = Color.FromArgb(45, 47, 49)
Private _TrackColor As Color = _FlatColor
Private SliderColor As Color = Color.FromArgb(25, 27, 29)
Private _HatchColor As Color = Color.FromArgb(23, 148, 92)
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or
ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
DoubleBuffered = True
Height = 18
BackColor = Color.FromArgb(60, 70, 73)
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(1, 6, W - 2, 8)
Dim GP, GP2 As New GraphicsPath
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(BackColor)
'-- Value
Val = CInt((_Value - _Minimum) / (_Maximum - _Minimum) * (W - 10))
Track = New Rectangle(Val, 0, 10, 20)
Knob = New Rectangle(Val, 4, 11, 14)
'-- Base
GP.AddRectangle(Base)
.SetClip(GP)
.FillRectangle(New SolidBrush(BaseColor), New Rectangle(0, 7, W, 8))
.FillRectangle(New SolidBrush(_TrackColor), New Rectangle(0, 7, Track.X + Track.Width, 8))
.ResetClip()
'-- Hatch Brush
Dim HB As New HatchBrush(HatchStyle.Plaid, HatchColor, _TrackColor)
.FillRectangle(HB, New Rectangle(-10, 7, Track.X + Track.Width, 8))
'-- Slider/Knob
Select Case Style
Case _Style.Slider
GP2.AddRectangle(Track)
.FillPath(New SolidBrush(SliderColor), GP2)
Case _Style.Knob
GP2.AddEllipse(Knob)
.FillPath(New SolidBrush(SliderColor), GP2)
End Select
'-- Show the value
If ShowValue Then
.DrawString(Value, New Font("Segoe UI", 8), Brushes.White, New Rectangle(1, 6, W, H), New StringFormat() _
With {.Alignment = StringAlignment.Far, .LineAlignment = StringAlignment.Far})
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 FlatStatusBar : Inherits Control
#Region " Variables"
Private W, H As Integer
Private _ShowTimeDate As Boolean = False
#End Region
#Region " Properties"
Protected Overrides Sub CreateHandle()
MyBase.CreateHandle()
Dock = DockStyle.Bottom
End Sub
Protected Overrides Sub OnTextChanged(e As EventArgs)
MyBase.OnTextChanged(e) : Invalidate()
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
<Category("Colors")>
Public Property RectColor As Color
Get
Return _RectColor
End Get
Set(value As Color)
_RectColor = value
End Set
End Property
#End Region
Public Property ShowTimeDate As Boolean
Get
Return _ShowTimeDate
End Get
Set(value As Boolean)
_ShowTimeDate = value
End Set
End Property
Function GetTimeDate() As String
Return DateTime.Now.Date & " " & DateTime.Now.Hour & ":" & DateTime.Now.Minute
End Function
#End Region
#Region " Colors"
Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
Private _TextColor As Color = Color.White
Private _RectColor As Color = _FlatColor
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or
ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
DoubleBuffered = True
Font = New Font("Segoe UI", 8)
ForeColor = Color.White
Size = New Size(Width, 20)
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)
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(BaseColor)
'-- Base
.FillRectangle(New SolidBrush(BaseColor), Base)
'-- Text
.DrawString(Text, Font, Brushes.White, New Rectangle(10, 4, W, H), NearSF)
'-- Rectangle
.FillRectangle(New SolidBrush(_RectColor), New Rectangle(4, 4, 4, 14))
'-- TimeDate
If ShowTimeDate Then
.DrawString(GetTimeDate, Font, New SolidBrush(_TextColor), New Rectangle(-4, 2, W, H), New StringFormat() _
With {.Alignment = StringAlignment.Far, .LineAlignment = StringAlignment.Center})
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 FlatLabel : Inherits Label
Protected Overrides Sub OnTextChanged(e As EventArgs)
MyBase.OnTextChanged(e) : Invalidate()
End Sub
Sub New()
SetStyle(ControlStyles.SupportsTransparentBackColor, True)
Font = New Font("Segoe UI", 8)
ForeColor = Color.White
BackColor = Color.Transparent
Text = Text
End Sub
End Class
Class FlatTreeView : Inherits TreeView
#Region " Variables"
Private State As TreeNodeStates
#End Region
#Region " Properties"
Protected Overrides Sub OnDrawNode(e As DrawTreeNodeEventArgs)
Try
Dim Bounds As New Rectangle(e.Bounds.Location.X, e.Bounds.Location.Y, e.Bounds.Width, e.Bounds.Height)
'e.Node.Nodes.Item.
Select Case State
Case TreeNodeStates.Default
e.Graphics.FillRectangle(Brushes.Red, Bounds)
e.Graphics.DrawString(e.Node.Text, New Font("Segoe UI", 8), Brushes.LimeGreen, New Rectangle(Bounds.X + 2, Bounds.Y + 2, Bounds.Width, Bounds.Height), NearSF)
Invalidate()
Case TreeNodeStates.Checked
e.Graphics.FillRectangle(Brushes.Green, Bounds)
e.Graphics.DrawString(e.Node.Text, New Font("Segoe UI", 8), Brushes.Black, New Rectangle(Bounds.X + 2, Bounds.Y + 2, Bounds.Width, Bounds.Height), NearSF)
Invalidate()
Case TreeNodeStates.Selected
e.Graphics.FillRectangle(Brushes.Green, Bounds)
e.Graphics.DrawString(e.Node.Text, New Font("Segoe UI", 8), Brushes.Black, New Rectangle(Bounds.X + 2, Bounds.Y + 2, Bounds.Width, Bounds.Height), NearSF)
Invalidate()
End Select
Catch ex As Exception
MsgBox(ex.Message)
End Try
MyBase.OnDrawNode(e)
End Sub
#End Region
#Region " Colors"
Private _BaseColor As Color = Color.FromArgb(45, 47, 49)
Private _LineColor As Color = Color.FromArgb(25, 27, 29)
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or
ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
DoubleBuffered = True
BackColor = _BaseColor
ForeColor = Color.White
LineColor = _LineColor
DrawMode = TreeViewDrawMode.OwnerDrawAll
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
Dim Base As New Rectangle(0, 0, Width, Height)
With G
.SmoothingMode = 2
.PixelOffsetMode = 2
.TextRenderingHint = 5
.Clear(BackColor)
.FillRectangle(New SolidBrush(_BaseColor), Base)
.DrawString(Text, New Font("Segoe UI", 8), Brushes.Black, New Rectangle(Bounds.X + 2, Bounds.Y + 2, Bounds.Width, Bounds.Height), NearSF)
End With
MyBase.OnPaint(e)
G.Dispose()
e.Graphics.InterpolationMode = 7
e.Graphics.DrawImageUnscaled(B, 0, 0)
B.Dispose()
End Sub
End Class728x90
'자료' 카테고리의 다른 글
| Image to base64 (0) | 2020.06.06 |
|---|---|
| VB.net 클래스 호출 (0) | 2020.06.05 |
| DD 키코드 정리 (0) | 2020.06.04 |
| 네이버 bvsd 로그인 dll (0) | 2020.06.03 |
| DDXOFT (0) | 2020.06.03 |
