Tema visual studio
Enviado por Christopher • 9 de Diciembre de 2017 • 20.939 Palabras (84 Páginas) • 409 Visitas
...
End Set
End Property
<Category("Colors")> _
Public Property BorderColor() As Color
Get
Return _BorderColor
End Get
Set(ByVal value As Color)
_BorderColor = value
End Set
End Property
<Category("Colors")> _
Public Property FlatColor() As Color
Get
Return _FlatColor
End Get
Set(ByVal value As Color)
_FlatColor = value
End Set
End Property
#End Region
<Category("Options")>
Public Property HeaderMaximize As Boolean
Get
Return _HeaderMaximize
End Get
Set(ByVal value As Boolean)
_HeaderMaximize = value
End Set
End Property
Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
MyBase.OnMouseDown(e)
If e.Button = Windows.Forms.MouseButtons.Left And New Rectangle(0, 0, Width, MoveHeight).Contains(e.Location) Then
Cap = True
MousePoint = e.Location
End If
End Sub
Private Sub FormSkin_MouseDoubleClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseDoubleClick
If HeaderMaximize Then
If e.Button = Windows.Forms.MouseButtons.Left And New Rectangle(0, 0, Width, MoveHeight).Contains(e.Location) Then
If FindForm.WindowState = FormWindowState.Normal Then
FindForm.WindowState = FormWindowState.Maximized : FindForm.****************************()
ElseIf FindForm.WindowState = FormWindowState.Maximized Then
FindForm.WindowState = FormWindowState.Normal : FindForm.****************************()
End If
End If
End If
End Sub
Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
MyBase.OnMouseUp(e) : Cap = False
End Sub
Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
MyBase.OnMouseMove(e)
If Cap Then
Parent.Location = MousePosition - MousePoint
End If
End Sub
Protected Overrides Sub OnCreateControl()
MyBase.OnCreateControl()
ParentForm.FormBorderStyle = FormBorderStyle.None
ParentForm.AllowTransparency = False
ParentForm.TransparencyKey = Color.Fuchsia
ParentForm.FindForm.StartPosition = FormStartPosition.CenterScreen
Dock = DockStyle.Fill
Invalidate()
End Sub
#End Region
#Region " Colors"
Private _HeaderColor As Color = Color.FromArgb(45, 47, 49)
Private _BaseColor As Color = Color.FromArgb(60, 70, 73)
Private _BorderColor As Color = Color.FromArgb(53, 58, 60)
Private TextColor As Color = Color.FromArgb(234, 234, 234)
#End Region
Sub New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _
ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
DoubleBuffered = True
BackColor = Color.White
Font = New Font("Segoe UI", 12)
End Sub
Protected Overrides Sub OnPaint(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), Header As New Rectangle(0, 0, W,
...