Imports System.Drawing.Drawing2DPublic Class Graph Inherits Control Sub New() Dim B As New Bitmap(1, 1) SG = Graphics.FromImage(B) GP = New GraphicsPath() _Values = New List(Of Single) _SmoothValues = New List(Of Single) FillColor = Color.White BorderColor = Color.Gray GraphFillColor = Color.FromArgb(50, Color.LightGreen) GraphBorderColor = Color.ForestGreen HorizontalLineColor = Color.FromArgb(238, 238, 238) VerticalLineColor = Color.FromArgb(248, 248, 248) DataColumnForeColor = Color.Gray HoverFillColor = Color.White HoverBorderColor = Color.ForestGreen HoverLineColor = Color.FromArgb(35, Color.ForestGreen) HoverLabelForeColor = Color.Gray HoverLabelFillColor = Color.White HoverLabelBorderColor = Color.DarkGray HoverLabelShadowColor = Color.FromArgb(35, Color.Black) LineGraphColor = Color.FromArgb(130, 0, 200, 255) SetStyle(DirectCast(139286, ControlStyles), True) End Sub#Region " Properties " Private _FillColor As SolidBrush Public Property FillColor() As Color Get Return _FillColor.Color End Get Set(ByVal value As Color) _FillColor = New SolidBrush(value) Invalidate() End Set End Property Private _BorderColor As Pen Public Property BorderColor() As Color Get Return _BorderColor.Color End Get Set(ByVal value As Color) _BorderColor = New Pen(value) Invalidate() End Set End Property Private _GraphFillColor As SolidBrush Public Property GraphFillColor() As Color Get Return _GraphFillColor.Color End Get Set(ByVal value As Color) _GraphFillColor = New SolidBrush(value) Invalidate() End Set End Property Private _GraphBorderColor As Pen Public Property GraphBorderColor() As Color Get Return _GraphBorderColor.Color End Get Set(ByVal value As Color) _GraphBorderColor = New Pen(value) Invalidate() End Set End Property Private _HorizontalLineColor As Pen Public Property HorizontalLineColor() As Color Get Return _HorizontalLineColor.Color End Get Set(ByVal value As Color) _HorizontalLineColor = New Pen(value) Invalidate() End Set End Property Private _VerticalLineColor As Pen Public Property VerticalLineColor() As Color Get Return _VerticalLineColor.Color End Get Set(ByVal value As Color) _VerticalLineColor = New Pen(value) Invalidate() End Set End Property Private _DataColumnForeColor As SolidBrush Public Property DataColumnForeColor() As Color Get Return _DataColumnForeColor.Color End Get Set(ByVal value As Color) _DataColumnForeColor = New SolidBrush(value) Invalidate() End Set End Property Private _HoverFillColor As SolidBrush Public Property HoverFillColor() As Color Get Return _HoverFillColor.Color End Get Set(ByVal value As Color) _HoverFillColor = New SolidBrush(value) Invalidate() End Set End Property Private _HoverBorderColor As Pen Public Property HoverBorderColor() As Color Get Return _HoverBorderColor.Color End Get Set(ByVal value As Color) _HoverBorderColor = New Pen(value) Invalidate() End Set End Property Private _HoverLineColor As Pen Public Property HoverLineColor() As Color Get Return _HoverLineColor.Color End Get Set(ByVal value As Color) _HoverLineColor = New Pen(value) Invalidate() End Set End Property Private _HoverLabelForeColor As SolidBrush Public Property HoverLabelForeColor() As Color Get Return _HoverLabelForeColor.Color End Get Set(ByVal value As Color) _HoverLabelForeColor = New SolidBrush(value) Invalidate() End Set End Property Private _HoverLabelFillColor As SolidBrush Public Property HoverLabelFillColor() As Color Get Return _HoverLabelFillColor.Color End Get Set(ByVal value As Color) _HoverLabelFillColor = New SolidBrush(value) Invalidate() End Set End Property Private _HoverLabelBorderColor As Pen Public Property HoverLabelBorderColor() As Color Get Return _HoverLabelBorderColor.Color End Get Set(ByVal value As Color) _HoverLabelBorderColor = New Pen(value) Invalidate() End Set End Property Private _HoverLabelShadowColor As Pen Public Property HoverLabelShadowColor() As Color Get Return _HoverLabelShadowColor.Color End Get Set(ByVal value As Color) _HoverLabelShadowColor = New Pen(value, 2) Invalidate() End Set End Property Private _LineGraphColor As Pen Public Property LineGraphColor() As Color Get Return _LineGraphColor.Color End Get Set(ByVal value As Color) _LineGraphColor = New Pen(value, 6) _LineGraphColor.MiterLimit = 0.0F Invalidate() End Set End Property Private _DrawLineGraph As Boolean Public Property DrawLineGraph() As Boolean Get Return _DrawLineGraph End Get Set(ByVal value As Boolean) _DrawLineGraph = value Invalidate() End Set End Property Private _SidePadding As Boolean = True Public Property SidePadding() As Boolean Get Return _SidePadding End Get Set(ByVal value As Boolean) _SidePadding = value Invalidate() End Set End Property Private _DrawHoverData As Boolean = True Public Property DrawHoverData() As Boolean Get Return _DrawHoverData End Get Set(ByVal value As Boolean) Index = -1 _DrawHoverData = value Invalidate() End Set End Property Private _DrawHoverLine As Boolean = True Public Property DrawHoverLine() As Boolean Get Return _DrawHoverLine End Get Set(ByVal value As Boolean) _DrawHoverLine = value Invalidate() End Set End Property Private _DrawDataColumn As Boolean = True Public Property DrawDataColumn() As Boolean Get Return _DrawDataColumn End Get Set(ByVal value As Boolean) _DrawDataColumn = value Invalidate() End Set End Property Private _DrawHorizontalLines As Boolean = True Public Property DrawHorizontalLines() As Boolean Get Return _DrawHorizontalLines End Get Set(ByVal value As Boolean) _DrawHorizontalLines = value Invalidate() End Set End Property Private _DrawVerticalLines As Boolean Public Property DrawVerticalLines() As Boolean Get Return _DrawVerticalLines End Get Set(ByVal value As Boolean) _DrawVerticalLines = value Invalidate() End Set End Property Private _DataSmoothing As Boolean Public Property DataSmoothing() As Boolean Get Return _DataSmoothing End Get Set(ByVal value As Boolean) _DataSmoothing = value InvalidateSmoothValues() FindMinMax() Invalidate() End Set End Property Private _DataSmoothingLevel As Byte = 2 Public Property DataSmoothingLevel() As Byte Get Return _DataSmoothingLevel End Get Set(ByVal value As Byte) If value < 1 Then value = 1 _DataSmoothingLevel = value InvalidateSmoothValues() FindMinMax() Invalidate() End Set End Property Public ReadOnly Property MaximumValue() As Single Get Return _MaximumValue End Get End Property Public ReadOnly Property MinimumValue() As Single Get Return _MinimumValue End Get End Property Private _OverrideMin As Boolean = False Public Property OverrideMin() As Boolean Get Return _OverrideMin End Get Set(ByVal value As Boolean) _OverrideMin = value If value Then InvalidateMinMax() Else FindMinMax() Invalidate() End Set End Property Private _OverrideMinValue As Single = 0.0F Public Property OverrideMinValue() As Single Get Return _OverrideMinValue End Get Set(ByVal value As Single) _OverrideMinValue = value InvalidateMinMax() Invalidate() End Set End Property Private _OverrideMax As Boolean = False Public Property OverrideMax() As Boolean Get Return _OverrideMax End Get Set(ByVal value As Boolean) _OverrideMax = value If value Then InvalidateMinMax() Else FindMinMax() Invalidate() End Set End Property Private _OverrideMaxValue As Single = 100.0F Public Property OverrideMaxValue() As Single Get Return _OverrideMaxValue End Get Set(ByVal value As Single) _OverrideMaxValue = value InvalidateMinMax() Invalidate() End Set End Property Private Sub InvalidateMinMax() If _OverrideMin Then _MinimumValue = _OverrideMinValue If _OverrideMax Then _MaximumValue = _OverrideMaxValue End Sub Private SS As Size Private SW, SH, SHH As Integer Private SG As Graphics Public Overrides Property Font As Font Get Return MyBase.Font End Get Set(value As Font) MyBase.Font = value SS = SG.MeasureString("999K", Font).ToSize() SW = SS.Width + 5 SH = SS.Height + 5 SHH = CInt(Math.Ceiling((SS.Height / 2) / 2) * 2) Invalidate() End Set End Property#End Region#Region " Graph Values " Private _MaximumValue As Single = Single.MinValue Private _MinimumValue As Single = Single.MaxValue Private CurrentValue As Single Private _Values As List(Of Single) Private _SmoothValues As List(Of Single) Public Property Values() As Single() Get Return _Values.ToArray() End Get Set(ByVal value As Single()) Clear() AddValues(value) InvalidateSmoothValues() FindMinMax() End Set End Property Public Sub AddValue(ByVal value As Single) Index = -1 _Values.Add(value) CleanValues() InvalidateSmoothValues() FindMinMax() Invalidate() End Sub Public Sub AddValues(ByVal values As Single()) Index = -1 _Values.AddRange(values) CleanValues() InvalidateSmoothValues() FindMinMax() Invalidate() End Sub Private Sub InvalidateSmoothValues() If Not _DataSmoothing Then Return _SmoothValues.Clear() Dim Mean As Single Dim Min, Max As Integer For I As Integer = 0 To _Values.Count - 1 Mean = 0.0F Min = Math.Max(I - _DataSmoothingLevel, 0) Max = Math.Min(I + _DataSmoothingLevel, _Values.Count - 1) For X As Integer = Min To Max Mean += _Values(X) Next Mean = Mean / ((Max - Min) + 1) _SmoothValues.Add(Mean) Next End Sub Private Sub FindMinMax() _MaximumValue = Single.MinValue _MinimumValue = Single.MaxValue For I As Integer = 0 To _Values.Count - 1 If _DataSmoothing Then CurrentValue = _SmoothValues(I) Else CurrentValue = _Values(I) End If If (CurrentValue > _MaximumValue) Then _MaximumValue = CurrentValue If (CurrentValue < _MinimumValue) Then _MinimumValue = CurrentValue Next InvalidateMinMax() End Sub Private Sub CleanValues() If _Values.Count > Width Then _Values.RemoveRange(0, _Values.Count - Width) End If End Sub Public Sub Clear() _Values.Clear() _SmoothValues.Clear() _MaximumValue = Single.MinValue _MinimumValue = Single.MaxValue InvalidateMinMax() End Sub#End Region Private SB As String Private FB1, FB2 As Single Private G As Graphics Private GP As GraphicsPath Private P As Point Private PS As PointF() Private R1, R2, R3 As Rectangle Protected Overrides Sub OnPaint(e As PaintEventArgs) G = e.Graphics G.Clear(BackColor) R1 = New Rectangle(SW, 0, Width - SW, Height) If Not _DrawDataColumn Then R1.X = 0 R1.Width = Width End If R2 = New Rectangle(R1.X + 10, R1.Y + 10, R1.Width - 20, R1.Height - 20) If Not _SidePadding Then R2.X = R1.X R2.Width = R1.Width End If G.FillRectangle(_FillColor, R1) For I As Integer = 0 To 10 FB1 = R2.Y + CSng((R2.Height - 1) * (I * 0.1)) If _DrawHorizontalLines Then G.DrawLine(_HorizontalLineColor, R1.X, FB1, R1.Right - 1, FB1) End If If _DrawDataColumn AndAlso (_Values.Count > 1) Then If (I Mod 2 = 0) Then G.DrawLine(_BorderColor, R1.X - 4, FB1, R1.X, FB1) CurrentValue = CInt(((_MaximumValue - _MinimumValue) * (1 - (I * 0.1))) + _MinimumValue) SB = SmallValue(CurrentValue) SS = G.MeasureString(SB, Font).ToSize() G.DrawString(SB, Font, _DataColumnForeColor, R1.X - 5 - SS.Width, FB1 - SHH) End If End If Next If _Values.Count > 1 Then PS = New PointF(_Values.Count + 1) {} FB1 = CSng((R2.Width - 1) / (_Values.Count - 1)) For I As Integer = 0 To _Values.Count - 1 FB2 = R2.X + (I * FB1) If _DataSmoothing Then CurrentValue = (_SmoothValues(I) - _MinimumValue) / Math.Max(_MaximumValue - _MinimumValue, 1) Else CurrentValue = (_Values(I) - _MinimumValue) / Math.Max(_MaximumValue - _MinimumValue, 1) End If If CurrentValue > 1 Then CurrentValue = 1 ElseIf CurrentValue < 0 Then CurrentValue = 0 End If PS(I) = New PointF(FB2, CInt(R2.Bottom - ((R2.Height - 1) * CurrentValue) - 1)) If _DrawVerticalLines Then G.DrawLine(_VerticalLineColor, FB2, R1.Y, FB2, R1.Bottom) End If Next PS(PS.Length - 2) = New PointF(R2.Right - 1, R1.Bottom - 1) PS(PS.Length - 1) = New PointF(R2.X, R1.Bottom - 1) G.SmoothingMode = SmoothingMode.HighQuality If _DrawLineGraph Then Array.Resize(PS, PS.Length - 2) G.DrawLines(_LineGraphColor, PS) Else GP.AddPolygon(PS) GP.CloseFigure() G.FillPath(_GraphFillColor, GP) G.DrawPath(_GraphBorderColor, GP) GP.Reset() End If If _DrawHoverData AndAlso Not (Index < 0) Then G.SetClip(R1) P = New Point(CInt(PS(Index).X), CInt(PS(Index).Y)) R3 = New Rectangle(P.X - 4, P.Y - 4, 8, 8) If _DrawHoverLine Then G.DrawLine(_HoverLineColor, P.X, R1.Y, P.X, R1.Bottom - 1) End If G.FillEllipse(_HoverFillColor, R3) G.DrawEllipse(_HoverBorderColor, R3) If _DataSmoothing Then SB = _SmoothValues(Index).ToString("N0") Else SB = _Values(Index).ToString("N0") End If SS = G.MeasureString(SB, Font).ToSize() P = PointToClient(MousePosition) R3 = New Rectangle(P.X + 24, P.Y, SS.Width + 20, SS.Height + 10) If (R3.X + R3.Width) > (R1.Right - 1) Then R3.X = P.X - R3.Width - 16 If (R3.Y + R3.Height) > (R1.Bottom - 1) Then R3.Y = R1.Bottom - R3.Height - 1 G.DrawRectangle(_HoverLabelShadowColor, R3) G.FillRectangle(_HoverLabelFillColor, R3) G.DrawRectangle(_HoverLabelBorderColor, R3) G.DrawString(SB, Font, _HoverLabelForeColor, New Point(R3.X + 10, R3.Y + 5)) End If G.ResetClip() G.SmoothingMode = SmoothingMode.None End If G.DrawRectangle(_BorderColor, R1.X, R1.Y, R1.Width - 1, R1.Height - 1) End Sub Private Function SmallValue(value As Single) As String Dim R As Integer = CInt(value) Select Case R Case Is >= 1000000000 Return (R \ 1000000000) & "B" Case Is >= 1000000 Return (R \ 1000000) & "M" Case Is >= 1000 Return (R \ 1000) & "K" Case Else Return CStr(R) End Select End Function#Region " Hover Handler " Private Index As Integer = -1 Private LastMove As Date Protected Overrides Sub OnMouseMove(e As MouseEventArgs) If Not _DrawHoverData Then Return R1 = New Rectangle(SW, 0, Width - SW, Height - SH) R2 = New Rectangle(R1.X + 8, R1.Y + 8, R1.Width - 16, R1.Height - 16) FB1 = CSng((R2.Width - 1) / (_Values.Count - 1)) If R1.Contains(e.Location) Then Index = CInt((e.X - R2.X) / FB1) If Not Index < _Values.Count Then Index = -1 Else Index = -1 End If If Date.Now > LastMove.AddMilliseconds(33) Then LastMove = Date.Now Invalidate() End If End Sub Protected Overrides Sub OnMouseLeave(e As EventArgs) If Not _DrawHoverData Then Return Index = -1 Invalidate() End Sub#End RegionEnd Class
