Class kod:
Code:
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Reflection
Imports System.ComponentModel
Imports System.Drawing.Text
Public Enum MouseState As Byte
None = 0
Hover = 1
Down = 2
Block = 3
End Enum
Module Functions
Function CenterText(Text As String, Font As Font, Width As Integer, Height As Integer) As Point
Dim W As Integer = (Width / 2) - (TextRenderer.MeasureText(Text, Font).Width / 2)
Dim H As Integer = (Height / 2) - (TextRenderer.MeasureText(Text, Font).Height / 2)
Dim P As New Point(W, H)
Return P
End Function
Function LeftText(Text As String, Font As Font, Width As Integer, Height As Integer) As Point
Dim W As Integer = 3
Dim H As Integer = (Height / 2) - (TextRenderer.MeasureText(Text, Font).Height / 2)
Dim P As New Point(W, H - 2)
Return P
End Function
Function DrawGradient(Width As Integer, Height As Integer, Optional State As MouseState = MouseState.None) As LinearGradientBrush
Dim myBrush As LinearGradientBrush
If State = MouseState.None Then
myBrush = New LinearGradientBrush(New Point(0, Height), New Point(Width, Height), Color.FromArgb(255, 202, 18), Color.FromArgb(210, 160, 39))
ElseIf State = MouseState.Hover Then
myBrush = New LinearGradientBrush(New Point(0, Height), New Point(Width, Height), Color.FromArgb(220, 255, 202, 18), Color.FromArgb(220, 210, 160, 39))
ElseIf State = MouseState.Down Then
myBrush = New LinearGradientBrush(New Point(0, Height), New Point(Width, Height), Color.FromArgb(210, 160, 39), Color.FromArgb(255, 202, 18))
Else
myBrush = New LinearGradientBrush(New Point(0, Height), New Point(Width, Height), Color.FromArgb(255, 202, 18), Color.FromArgb(210, 160, 39))
End If
myBrush.RotateTransform(90)
Return myBrush
End Function
End Module
Class ColdForm
Inherits ContainerControl
Dim Down As Boolean = False
Dim MoveHeight As Integer = 30
Dim MousePoint As New Point(0, 0)
Protected Overrides Sub OnCreateControl()
ParentForm.FormBorderStyle = FormBorderStyle.None
ParentForm.AllowTransparency = True
ParentForm.TransparencyKey = Color.Fuchsia
Dock = DockStyle.Fill
Invalidate()
End Sub
#Region "MouseStates"
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
Down = True
MousePoint = e.Location
End If
End Sub
Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
MyBase.OnMouseUp(e)
Down = False
End Sub
Protected Overrides Sub OnMouseMove(e As System.Windows.Forms.MouseEventArgs)
MyBase.OnMouseMove(e)
If Down Then
Parent.Location = MousePosition - MousePoint
End If
End Sub
#End Region
Public mFont As New Font("Segoe UI", 10)
Sub New()
Me.Font = mFont
End Sub
Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Using g = e.Graphics
'Form Background and Topbar
g.Clear(Color.White)
g.FillRectangle(DrawGradient(50, Height), New Rectangle(New Point(0, 0), New Size(Width, 25)))
g.FillRectangle(New SolidBrush(Color.FromArgb(218, 218, 218)), New Rectangle(0, 25, Width, Height - 25))
g.DrawString(Me.Text, mFont, New SolidBrush(Color.FromArgb(0, 0, 0)), LeftText(Me.Text, mFont, Width, MoveHeight))
'Border
g.DrawLine(Pens.Black, New Point(Width, 25), New Point(0, 25)) 'Topbar bottom
g.DrawLine(Pens.Black, New Point(Width, 0), New Point(0, 0)) 'Form Top
g.DrawLine(Pens.Black, New Point(0, Height), New Point(0, 0)) 'Form Left
g.DrawLine(Pens.Black, New Point(Width - 1, 0), New Point(Width - 1, Height)) 'Form Right
g.DrawLine(Pens.Black, New Point(Width, Height - 1), New Point(0, Height - 1)) 'Form Bottom
End Using
End Sub
Protected Overrides Sub OnSizeChanged(e As System.EventArgs)
MyBase.OnSizeChanged(e)
MyBase.Refresh()
End Sub
Protected Overrides Sub OnEnter(e As System.EventArgs)
MyBase.OnLocationChanged(e)
End Sub
End Class
#Region " RoundRectangle "
Module RoundRectangle
Public Function RoundRect(ByVal Rectangle As Rectangle, ByVal Curve As Integer) As GraphicsPath
Dim P As GraphicsPath = New GraphicsPath()
Dim ArcRectangleWidth As Integer = Curve * 2
P.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(ByVal X As Integer, ByVal Y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal Curve As Integer) As GraphicsPath
Dim Rectangle As Rectangle = New Rectangle(X, Y, Width, Height)
Dim P As GraphicsPath = New GraphicsPath()
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 RoundedTopRect(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.AddLine(New Point(Rectangle.X + Rectangle.Width, Rectangle.Y + ArcRectangleWidth), New Point(Rectangle.X + Rectangle.Width, Rectangle.Y + Rectangle.Height - 1))
P.AddLine(New Point(Rectangle.X, Rectangle.Height - 1 + Rectangle.Y), New Point(Rectangle.X, Rectangle.Y + Curve))
Return P
End Function
End Module
#End Region
#Region " TrackBar "
<DefaultEvent("ValueChanged")> Class ColdTrackBar
Inherits Control
#Region " Enums "
Enum ValueDivisor
By1 = 1
By10 = 10
By100 = 100
By1000 = 1000
End Enum
#End Region
#Region " Variables "
Private PipeBorder, FillValue As GraphicsPath
Private TrackBarHandleRect As Rectangle
Private Cap As Boolean
Private ValueDrawer As Integer
Private ThumbSize As Size = New Size(15, 15)
Private TrackThumb As Rectangle
Private _Minimum As Integer = 0
Private _Maximum As Integer = 10
Private _Value As Integer = 0
Private _DrawValueString As Boolean = False
Private _JumpToMouse As Boolean = False
Private DividedValue As ValueDivisor = ValueDivisor.By1
#End Region
#Region " Properties "
Public Property Minimum() As Integer
Get
Return _Minimum
End Get
Set(ByVal value As Integer)
If value >= _Maximum Then value = _Maximum - 10
If _Value < value Then _Value = value
_Minimum = value
Invalidate()
End Set
End Property
Public Property Maximum() As Integer
Get
Return _Maximum
End Get
Set(ByVal value As Integer)
If value <= _Minimum Then value = _Minimum + 10
If _Value > value Then _Value = value
_Maximum = value
Invalidate()
End Set
End Property
Event ValueChanged()
Public Property Value() As Integer
Get
Return _Value
End Get
Set(ByVal value As Integer)
If _Value <> value Then
If value < _Minimum Then
_Value = _Minimum
Else
If value > _Maximum Then
_Value = _Maximum
Else
_Value = value
End If
End If
Invalidate()
RaiseEvent ValueChanged()
End If
End Set
End Property
Public Property ValueDivison() As ValueDivisor
Get
Return DividedValue
End Get
Set(ByVal Value As ValueDivisor)
DividedValue = Value
Invalidate()
End Set
End Property
<Browsable(False)> Public Property ValueToSet() As Single
Get
Return CSng(_Value / DividedValue)
End Get
Set(ByVal Val As Single)
Value = CInt(Val * DividedValue)
End Set
End Property
Public Property JumpToMouse() As Boolean
Get
Return _JumpToMouse
End Get
Set(ByVal value As Boolean)
_JumpToMouse = value
Invalidate()
End Set
End Property
Property DrawValueString() As Boolean
Get
Return _DrawValueString
End Get
Set(ByVal value As Boolean)
_DrawValueString = value
If _DrawValueString = True Then
Height = 35
Else
Height = 22
End If
Invalidate()
End Set
End Property
#End Region
#Region " EventArgs "
Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
MyBase.OnMouseMove(e)
If Cap = True 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 OnMouseDown(ByVal e As MouseEventArgs)
MyBase.OnMouseDown(e)
If e.Button = Windows.Forms.MouseButtons.Left Then
ValueDrawer = CInt((_Value - _Minimum) / (_Maximum - _Minimum) * (Width - 11))
TrackBarHandleRect = New Rectangle(ValueDrawer, 0, 25, 25)
Cap = TrackBarHandleRect.Contains(e.Location)
Focus()
If _JumpToMouse Then
Value = _Minimum + CInt((_Maximum - _Minimum) * (e.X / Width))
End If
End If
End Sub
Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
MyBase.OnMouseUp(e)
Cap = False
End Sub
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or _
ControlStyles.UserPaint Or _
ControlStyles.ResizeRedraw Or _
ControlStyles.DoubleBuffer, True)
Size = New Size(80, 22)
MinimumSize = New Size(47, 22)
End Sub
Protected Overrides Sub OnResize(e As EventArgs)
MyBase.OnResize(e)
If _DrawValueString = True Then
Height = 35
Else
Height = 22
End If
End Sub
Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Dim G As Graphics = e.Graphics
G.Clear(Color.FromArgb(218, 218, 218))
G.SmoothingMode = SmoothingMode.AntiAlias
TrackThumb = New Rectangle(8, 8, Width - 11, 2)
PipeBorder = RoundRectangle.RoundRect(1, 8, Width - 3, 1, 1)
Try
ValueDrawer = CInt((_Value - _Minimum) / (_Maximum - _Minimum) * (Width - 11))
Catch ex As Exception
End Try
TrackBarHandleRect = New Rectangle(ValueDrawer, 0, 10, 20)
G.SetClip(PipeBorder)
G.FillPath(New SolidBrush(Color.FromArgb(221, 221, 221)), PipeBorder)
FillValue = RoundRectangle.RoundRect(0, 8, TrackBarHandleRect.X + TrackBarHandleRect.Width - 3, 2, 1)
G.ResetClip()
G.SmoothingMode = SmoothingMode.HighQuality
G.DrawPath(New Pen(Color.FromArgb(0, 0, 0)), PipeBorder)
' G.FillPath(Brushes.DarkGray, FillValue)
G.DrawRectangle(Pens.Black, TrackThumb.X + CInt(TrackThumb.Width * (Value / Maximum)) - CInt(ThumbSize.Width / 2), TrackThumb.Y + CInt((TrackThumb.Height / 2)) - CInt(ThumbSize.Height / 2), ThumbSize.Width - 6, ThumbSize.Height)
G.FillRectangle(DrawGradient(ThumbSize.Width, ThumbSize.Height), TrackThumb.X + CInt(TrackThumb.Width * (Value / Maximum)) - CInt(ThumbSize.Width / 2), TrackThumb.Y + CInt((TrackThumb.Height / 2)) - CInt(ThumbSize.Height / 2), ThumbSize.Width - 6, ThumbSize.Height)
If _DrawValueString = True Then
G.DrawString(ValueToSet, Font, Brushes.DimGray, 1, 20)
End If
End Sub
End Class
#End Region
Class ColdListBox
Inherits ListBox
Public Function RoundRect(ByVal rectangle As Rectangle, ByVal curve As Integer) As GraphicsPath
Dim p As GraphicsPath = New GraphicsPath()
Dim arcRectangleWidth As Integer = curve * 1
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(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal curve As Integer) As GraphicsPath
Dim rectangle As Rectangle = New Rectangle(x, y, width, height)
Dim p As GraphicsPath = New GraphicsPath()
Dim arcRectangleWidth As Integer = curve * 1
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
Private mFont As New Font("Segoe UI", 8)
Protected Overrides Sub OnCreateControl()
Dock = DockStyle.None
Invalidate()
End Sub
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _
ControlStyles.SupportsTransparentBackColor, True)
DoubleBuffered = True
DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
BackColor = Color.FromArgb(246, 246, 246)
Width = 200
Height = 200
Me.Font = mFont
Me.ForeColor = Color.Black
Me.ItemHeight = 20
Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
Me.ScrollAlwaysVisible = False
Me.HorizontalScrollbar = False
Me.IntegralHeight = False
End Sub
Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
Using g = e.Graphics
g.SmoothingMode = SmoothingMode.HighQuality
g.PixelOffsetMode = PixelOffsetMode.HighQuality
g.TextRenderingHint = TextRenderingHint.ClearTypeGridFit
g.Clear(Color.FromArgb(246, 246, 246))
g.DrawLine(Pens.Black, New Point(0, 0), New Point(Me.Width, 0))
g.DrawLine(Pens.Black, New Point(0, Me.Height), New Point(0, 0))
g.DrawLine(Pens.Black, New Point(Width + 1, 0), New Point(Width + 1, Me.Height))
g.DrawLine(Pens.Black, New Point(0, Me.Height + 1), New Point(Me.Width, Me.Height + 1))
g.Dispose()
End Using
MyBase.OnPaint(e)
e.Dispose()
e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
End Sub
Protected Overrides Sub OnDrawItem(e As DrawItemEventArgs)
Using g = e.Graphics
e.DrawBackground()
e.DrawFocusRectangle()
g.SmoothingMode = SmoothingMode.HighQuality
g.PixelOffsetMode = PixelOffsetMode.HighQuality
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.TextRenderingHint = TextRenderingHint.ClearTypeGridFit
g.FillRectangle(New SolidBrush(BackColor), New Rectangle(e.Bounds.X, e.Bounds.Y - 1, e.Bounds.Width, e.Bounds.Height + 3))
If e.State.ToString().Contains("Selected,") Then
Dim selectgb As New SolidBrush(Color.FromArgb(217, 219, 218))
g.FillRectangle(selectgb, New Rectangle(e.Bounds.X, e.Bounds.Y + 1, e.Bounds.Width, e.Bounds.Height))
g.DrawRectangle(New Pen(Color.FromArgb(212, 212, 212)), New Rectangle(e.Bounds.X, e.Bounds.Y + 1, e.Bounds.Width, e.Bounds.Height))
Else
Dim nonselectgb As New SolidBrush(Color.FromArgb(246, 246, 246))
g.FillRectangle(nonselectgb, e.Bounds)
End If
Try
g.DrawString(Items(e.Index).ToString(), mFont, New SolidBrush(Color.FromArgb(0, 0, 0)), New Rectangle(e.Bounds.X + 3, e.Bounds.Y + 5, e.Bounds.Width, e.Bounds.Height), New StringFormat With {.LineAlignment = StringAlignment.Near, .Alignment = StringAlignment.Near, .FormatFlags = StringFormatFlags.FitBlackBox})
Catch : End Try
g.Dispose()
End Using
End Sub
End Class
Class ColdButton
Inherits Control
Dim Down As Boolean = False
Dim MoveHeight As Integer = 30
Dim MousePoint As New Point(0, 0)
#Region "MouseStates"
Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
isMousePress = True
Me.Refresh()
End Sub
Protected Overrides Sub OnMouseUp(e As MouseEventArgs)
isMousePress = False
Me.Refresh()
End Sub
#End Region
Protected Overrides Sub OnCreateControl()
Dock = DockStyle.None
Invalidate()
End Sub
Private mFont As New Font("Segoe UI", 10)
Sub New()
BackColor = Color.FromArgb(51, 51, 51)
Width = 100
Height = 30
Me.Font = mFont
End Sub
Dim isMouseEnter As Boolean = False
Dim isMousePress As Boolean = False
Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
Using g = e.Graphics
g.Clear(Color.White)
If Not isMouseEnter And Not isMousePress Then
g.FillRectangle(DrawGradient(Me.Height, Me.Width), New Rectangle(New Point(0, 0), New Size(Me.Width, Me.Height)))
ElseIf isMousePress Then
g.FillRectangle(DrawGradient(Me.Height, Me.Width, MouseState.Down), New Rectangle(New Point(0, 0), New Size(Me.Width, Me.Height)))
Else
g.FillRectangle(DrawGradient(Me.Height, Me.Width, MouseState.Hover), New Rectangle(New Point(0, 0), New Size(Me.Width, Me.Height)))
End If
g.DrawLine(Pens.Black, New Point(0, 0), New Point(Me.Width, 0)) 'Top
g.DrawLine(Pens.Black, New Point(0, Me.Height), New Point(0, 0)) 'Left
g.DrawLine(Pens.Black, New Point(Width - 1, 0), New Point(Width - 1, Me.Height)) 'Right
g.DrawLine(Pens.Black, New Point(0, Me.Height - 1), New Point(Me.Width, Me.Height - 1)) 'Bottom
g.DrawString(Me.Text, Me.Font, Brushes.Black, New Point(CenterText(Me.Text, Me.Font, Me.Width, Me.Height)))
End Using
End Sub
Protected Overrides Sub OnMouseEnter(e As System.EventArgs)
isMouseEnter = True
MyBase.OnMouseEnter(e)
Me.Refresh()
End Sub
Protected Overrides Sub OnMouseLeave(e As System.EventArgs)
isMouseEnter = False
isMousePress = False
MyBase.OnMouseEnter(e)
Me.Refresh()
End Sub
Protected Overrides Sub OnSizeChanged(e As System.EventArgs)
MyBase.OnSizeChanged(e)
MyBase.Refresh()
End Sub
End Class
Class ColdTabControl
Inherits TabControl
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or _
ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)
ItemSize = New Size(0, 30)
Font = New Font("Segoe UI", 8)
End Sub
Protected Overrides Sub CreateHandle()
MyBase.CreateHandle()
Alignment = TabAlignment.Top
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim G As Graphics = e.Graphics
Dim borderPen As New Pen(Color.FromArgb(0, 0, 0))
G.SmoothingMode = SmoothingMode.HighQuality
G.Clear(Color.FromArgb(218, 218, 218))
Dim fillRect As New Rectangle(2, ItemSize.Height + 2, Width - 6, Height - ItemSize.Height - 3)
G.FillRectangle(New SolidBrush(Color.FromArgb(218, 218, 218)), fillRect)
G.DrawRectangle(borderPen, fillRect)
Dim FontColor As New Color
For i = 0 To TabCount - 1
Dim mainRect As Rectangle = GetTabRect(i)
mainRect.Height = mainRect.Height - 6
mainRect.Width = mainRect.Width - 5
If i = SelectedIndex Then
G.FillRectangle(DrawGradient(mainRect.Height + 5, 0), mainRect)
G.DrawRectangle(borderPen, mainRect)
FontColor = Color.FromArgb(0, 0, 0)
Else
G.FillRectangle(New SolidBrush(Color.FromArgb(218, 218, 218)), mainRect)
G.DrawRectangle(borderPen, mainRect)
FontColor = Color.FromArgb(0, 0, 0)
End If
Dim titleX As Integer = (mainRect.Location.X + mainRect.Width / 2) - (G.MeasureString(TabPages(i).Text, Font).Width / 2)
Dim titleY As Integer = (mainRect.Location.Y + mainRect.Height / 2) - (G.MeasureString(TabPages(i).Text, Font).Height / 2)
G.DrawString(TabPages(i).Text, Font, New SolidBrush(FontColor), New Point(titleX, titleY))
Try : TabPages(i).BackColor = Color.FromArgb(218, 218, 218) : Catch : End Try
Next
End Sub
End Class
<DefaultEvent("CheckedChanged")> Class ColdCheckBox
Inherits Control
Event CheckedChanged(ByVal sender As Object)
Private _checked As Boolean
Public Property Checked() As Boolean
Get
Return _checked
End Get
Set(ByVal value As Boolean)
_checked = value
Invalidate()
End Set
End Property
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _
ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)
Size = New Size(140, 20)
Font = New Font("Segoe UI", 8)
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
'Variable
Dim G As Graphics = e.Graphics
G.SmoothingMode = SmoothingMode.HighQuality
G.Clear(Parent.BackColor)
'Shape and Colors
Dim box As New Rectangle(0, 0, Height, Height - 1)
G.FillRectangle(DrawGradient(box.Height + 5, 0), box)
G.DrawRectangle(New Pen(Color.FromArgb(218, 218, 218)), box)
box.Width = 15
box.Height = 15
'Border
G.DrawLine(Pens.Black, New Point(0, 0), New Point(box.Width, 0)) 'Top
G.DrawLine(Pens.Black, New Point(0, 0), New Point(0, box.Height)) 'Left
G.DrawLine(Pens.Black, New Point(box.Width, 0), New Point(box.Width, box.Height)) 'Right
G.DrawLine(Pens.Black, New Point(0, box.Height), New Point(box.Width, box.Height)) 'Bottom
'Inside
Dim markPen As New Pen(Color.FromArgb(218, 218, 218))
Dim lightMarkPen As New Pen(Color.FromArgb(0, 0, 0))
If _checked Then G.DrawString("a", New Font("Marlett", 13), Brushes.Black, New Point(-3, -1.2))
'Text
Dim textY As Integer = (Height / 2) - (G.MeasureString(Text, Font).Height / 2)
G.DrawString(Text, Font, Brushes.Black, New Point(24, textY + 1))
Me.Size = New Size(28 + G.MeasureString(Text, Font).Width, 16)
End Sub
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
MyBase.OnMouseDown(e)
If e.Button = Windows.Forms.MouseButtons.Left Then
If _checked Then
_checked = False
Else
_checked = True
End If
RaiseEvent CheckedChanged(Me)
Invalidate()
End If
End Sub
End Class
Class ColdComboBox
Inherits ComboBox
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _
ControlStyles.UserPaint Or ControlStyles.ResizeRedraw Or _
ControlStyles.SupportsTransparentBackColor, True)
Font = New Font("Segoe UI", 7)
End Sub
Protected Overrides Sub CreateHandle()
MyBase.CreateHandle()
DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
DropDownStyle = ComboBoxStyle.DropDownList
DoubleBuffered = True
ItemHeight = 20
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Dim G As Graphics = e.Graphics
G.SmoothingMode = SmoothingMode.HighQuality
G.Clear(Parent.BackColor)
Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1)
G.FillRectangle(New SolidBrush(Color.FromArgb(246, 246, 246)), mainRect)
G.DrawRectangle(New Pen(Color.FromArgb(246, 246, 246)), mainRect)
Dim triangle As Point() = New Point() {New Point(Width - 14, 16), New Point(Width - 18, 10), New Point(Width - 10, 10)}
G.FillPolygon(Brushes.Black, triangle)
'Border
G.DrawLine(Pens.Black, New Point(0, 0), New Point(Width, 0)) 'Top
G.DrawLine(Pens.Black, New Point(0, 0), New Point(0, Height)) 'Left
G.DrawLine(Pens.Black, New Point(Width - 25, 0), New Point(Width - 25, Height)) 'Left
G.DrawLine(Pens.Black, New Point(Width - 1, 0), New Point(Width - 1, Height)) 'Right
G.DrawLine(Pens.Black, New Point(0, Height - 1), New Point(Width, Height - 1)) 'Top
Try
If Items.Count > 0 Then
If Not SelectedIndex = -1 Then
Dim textX As Integer = 6
Dim textY As Integer = ((Me.Height - 1) / 2) - (G.MeasureString(Items(SelectedIndex), Font).Height / 2) + 1
G.DrawString(Items(SelectedIndex), Font, Brushes.Black, New Point(textX, textY))
Else
Dim textX As Integer = 6
Dim textY As Integer = ((Me.Height - 1) / 2) - (G.MeasureString(Items(0), Font).Height / 2) + 1
G.DrawString(Items(0), Font, Brushes.Black, New Point(textX, textY))
End If
End If
Catch : End Try
End Sub
Sub replaceItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
e.DrawBackground()
Dim G As Graphics = e.Graphics
G.SmoothingMode = SmoothingMode.HighQuality
Dim rect As New Rectangle(e.Bounds.X - 1, e.Bounds.Y - 1, e.Bounds.Width + 1, e.Bounds.Height + 1)
Try
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
G.FillRectangle(New SolidBrush(Color.FromArgb(245, 246, 246, 246)), rect)
G.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), Font, Brushes.Black, New Rectangle(e.Bounds.X + 6, e.Bounds.Y + 3, e.Bounds.Width, e.Bounds.Height))
G.DrawRectangle(New Pen(Color.FromArgb(20, 160, 230)), rect)
Else
G.FillRectangle(New SolidBrush(Color.FromArgb(246, 246, 246)), rect)
G.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), Font, Brushes.Black, New Rectangle(e.Bounds.X + 6, e.Bounds.Y + 3, e.Bounds.Width, e.Bounds.Height))
G.DrawRectangle(New Pen(Color.FromArgb(246, 246, 246)), rect)
End If
Catch : End Try
End Sub
Protected Overrides Sub OnSelectedItemChanged(ByVal e As System.EventArgs)
MyBase.OnSelectedItemChanged(e)
Invalidate()
End Sub
End Class
<DefaultEvent("CheckedChanged")> Class ColdRadioButton
Inherits Control
Event CheckedChanged(ByVal sender As Object)
Private _checked As Boolean
Public Property Checked() As Boolean
Get
Return _checked
End Get
Set(ByVal value As Boolean)
_checked = value
Invalidate()
End Set
End Property
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _
ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)
Size = New Size(140, 20)
Font = New Font("Segoe UI", 8)
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim G As Graphics = e.Graphics
G.SmoothingMode = SmoothingMode.HighQuality
G.Clear(Parent.BackColor)
Dim box As New Rectangle(0, 0, Height - 5, Height - 5)
G.FillEllipse(New SolidBrush(Color.FromArgb(235, 235, 235)), box)
G.DrawEllipse(New Pen(Color.FromArgb(0, 0, 0)), box)
If _checked Then
Dim innerMark As New Rectangle(1, 1, Height - 7, Height - 7)
G.FillEllipse(DrawGradient(20, 5, MouseState.None), innerMark)
End If
Dim textY As Integer = (Height / 2) - (G.MeasureString(Text, Font).Height / 2)
G.DrawString(Text, Font, Brushes.Black, New Point(20, textY - 1))
Me.Size = New Size(26 + G.MeasureString(Text, Font).Width, 18)
End Sub
Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
MyBase.OnMouseDown(e)
If e.Button = Windows.Forms.MouseButtons.Left Then
For Each C As Control In Parent.Controls
If C IsNot Me AndAlso TypeOf C Is ColdRadioButton Then
DirectCast(C, ColdRadioButton).Checked = False
End If
Next
If Not _checked Then
_checked = True
End If
RaiseEvent CheckedChanged(Me)
Invalidate()
End If
End Sub
End Class
Class ColdGroupBox
Inherits GroupBox
Sub New()
BackColor = Color.FromArgb(218, 218, 218)
End Sub
Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Using g = e.Graphics
g.Clear(Color.FromArgb(218, 218, 218))
g.DrawLine(Pens.Black, New Point(0, 0), New Point(0, 0))
Dim border As New Rectangle(New Point(0, 0), New Size(Width - 1, Height - 1))
Dim topBar As New Rectangle(New Point(0, 0), New Size(Width, 25))
g.FillRectangle(DrawGradient(40, 25), topBar)
g.DrawRectangle(Pens.Black, border)
g.DrawString(Text, Font, Brushes.Black, CenterText(Text, Font, Width, 25))
g.DrawLine(Pens.Black, New Point(0, 25), New Point(Width, 25))
End Using
End Sub
End Class
Class ColdLabel
Inherits Control
Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Using g = e.Graphics
g.Clear(Color.FromArgb(216, 216, 216))
g.DrawString(Text, Font, Brushes.Black, New Point(0, 0))
Me.Height = g.MeasureString(Text, Font, Width).Height
Me.Width = g.MeasureString(Text, Font, Width).Width
End Using
End Sub
End Class
<DefaultEvent("TextChanged")> Class ColdTextBox
Inherits TextBox
Protected Overrides Sub OnCreateControl()
MyBase.OnCreateControl()
End Sub
Sub New()
BorderStyle = BorderStyle.FixedSingle
BackColor = Color.FromArgb(216, 216, 216)
Margin = New Padding(5, 0, 0, 0)
Font = New Font("Segoe UI", 8)
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
Using g = e.Graphics
g.DrawLine(Pens.Black, New Point(0, 0), New Point(Me.Width, 0)) 'Top
g.DrawLine(Pens.Black, New Point(0, Me.Height), New Point(0, 0)) 'Left
g.DrawLine(Pens.Black, New Point(Width - 1, 0), New Point(Width - 1, Me.Height)) 'Right
g.DrawLine(Pens.Black, New Point(0, Me.Height - 1), New Point(Me.Width, Me.Height - 1)) 'Bottom
End Using
MyBase.OnPaint(e)
End Sub
End Class
Class ColdProgressBar
Inherits Control
Private _Maximum As Integer = 100
Private _ShowPercant As Boolean = True
Private _Minimum As Integer = 0
Public Property ShowPercant As Boolean
Get
Return _ShowPercant
End Get
Set(value As Boolean)
_ShowPercant = value
Invalidate()
End Set
End Property
Public Property Maximum As Integer
Get
Return _Maximum
End Get
Set(ByVal v As Integer)
If v < 1 Then v = 1
If v < _Value Then _Value = v
_Maximum = v
Invalidate()
End Set
End Property
Public Property Minimum As Integer
Get
Return _Minimum
End Get
Set(ByVal v As Integer)
If Not v > -1 Then v = 0
If v > _Maximum Then v = _Maximum - 1
_Minimum = v
Invalidate()
End Set
End Property
Private _Value As Integer
Public Property Value As Integer
Get
Return _Value
End Get
Set(ByVal v As Integer)
If v > _Maximum Then v = Maximum
_Value = v
Invalidate()
End Set
End Property
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _
ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)
Size = New Size(100, 24)
Maximum = 100
Minimum = 0
Text = ""
Font = New Font("Segoe UI", 8)
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Dim _text As String = Text
Text = ""
Dim G As Graphics = e.Graphics
G.SmoothingMode = SmoothingMode.HighQuality
G.Clear(Parent.BackColor)
Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1)
G.FillRectangle(New SolidBrush(Color.FromArgb(235, 235, 235)), mainRect)
G.DrawRectangle(Pens.Black, mainRect)
Dim barRect As New Rectangle(0, 0, CInt(((Width / _Maximum) * _Value) - 1), Height - 1)
G.FillRectangle(DrawGradient(Height, CInt(((Width / _Maximum) * _Value) - 1)), barRect)
Dim percent As Single = (_Value / _Maximum) * 100
Dim txt As String = Text & " " & CStr(percent) & "%"
If ShowPercant Then
G.DrawString(txt, Font, Brushes.Black, LeftText(Text, Font, Width, Height / 2 - 1))
Else
G.DrawString(_text, Font, Brushes.Black, CenterText(Text, Font, Width, Height / 2 - 3))
End If
Text = _text
End Sub
End Class
