自定义控件之直方图

 

  ' 功能：直方图、圆柱形
' 开始时间：2006-09-23


Imports  System.ComponentModel
Imports  System.Drawing.Drawing2D

< Description( " 柱形图(圆形、方形) " ), Docking(System.Windows.Forms.DockingBehavior.AutoDock) >  _
Public   Class ColumnView Class ColumnView

变量#Region "变量"

    Dim HasFocus As Boolean = False             '控件是否得到焦点
    Dim HasBorder As Boolean = False            '是否显示控件边框

    '直方图中用到的画刷
    Dim mBrushFront As SolidBrush = Nothing     '前面
    Dim mBrushTop As SolidBrush = Nothing       '顶面
    Dim mBrushSide As SolidBrush = Nothing      '侧面


    Dim mRefresh As Boolean = True              '用于设置视图是否自刷新
    Dim mTimeOut As Integer = 5                 '用于设置允许超时时间（秒）
    Dim ViewRefreshOver As Boolean = False      '用于判断视图是否已刷新
    Dim TimerOfTimeOutRefresh As Timers.Timer   '用于判断超时的定时器
    Dim ViewRefreshTime As Date = Now           '用于记录参数刷新的时间

    '直方图中用到的点集合
    Dim ColumnPoint() As PointF = New PointF() {New PointF(-30, -47), New PointF(10, -47), New PointF(10, 50), New PointF(-30, 50), _
                                            New PointF(-10, -50), New PointF(30, -50), New PointF(30, 47), New PointF(-10, 47)}


    '参数属性值有关的变量
    Dim mHIHI As Single = 220, mHI As Single = 200, mLO As Single = 100, mLOLO As Single = 50
    Dim mOid As String
    Dim mAlarm As Alarm = Alarm.None
    Dim mValue As Single = 150
    Dim mUnit As String
    Dim mModel As ViewMode = ViewMode.Cube


    '视图菜单
    Dim Menu As System.Windows.Forms.ContextMenuStrip

    <Description("参数告警类型")> _
    Public Enum AlarmEnum Alarm
        None        '正常
        HIHI        '极高告警
        HI          '高告警
        LO          '低告警
        LOLO        '极低告警
        UnKnow      '无法联系
    End Enum

    <Description("视图方式")> _
    Public Enum ViewModeEnum ViewMode
        Cube        '圆形柱形图
        Column      '方形柱形图
    End Enum

#End Region

参数视图的属性#Region "参数视图的属性"

    <Description("HFC网络管理系统中的OID信息"), DefaultValue("1.3.6.1.4.1.17409.1")> _
    Public Property OID()Property OID() As String
        Get
            Return mOid
        End Get
        Set(ByVal value As String)
            If value <> mOid Then
                mOid = value
            End If
        End Set
    End Property

    <Description("参数单位")> _
    Public Property Unit()Property Unit() As String
        Get
            Return mUnit
        End Get
        Set(ByVal value As String)
            If value <> mUnit Then
                mUnit = value
                PicView.Invalidate()
            End If
        End Set
    End Property

    <Description("参数信息"), DefaultValue("参数信息")> _
    Public Property ParameterInfo()Property ParameterInfo() As String
        Get
            Return ViewName.Text.Trim
        End Get
        Set(ByVal value As String)
            If value.Trim = "" Then value = "参数信息"
            If value <> ViewName.Text.Trim Then
                ViewName.Text = value
                PicView.Invalidate()
            End If
        End Set
    End Property

    <Description("参数状态信息（正常、一般告警、严重告警或状态未知），只读。")> _
    Public ReadOnly Property Status()Property Status() As Alarm
        Get
            Return mAlarm
        End Get
    End Property

    <Description("参数严重高告警门限")> _
    Public Property HIHI()Property HIHI() As Single
        Get
            Return mHIHI
        End Get
        Set(ByVal value As Single)
            'If value < HI Then
            '    'Throw New Exception("HIHI值不能小于HI值！")
            '    MsgBox("HIHI值不能小于HI值！", MsgBoxStyle.Critical, "Set HIHI")
            'Else
            If value <> mHIHI Then
                mHIHI = value
                Call SetStatus(NewValue)
                PicView.Invalidate()
            End If
            'End If
        End Set
    End Property

    <Description("参数一般高告警门限")> _
    Public Property HI()Property HI() As Single
        Get
            Return mHI
        End Get
        Set(ByVal value As Single)
            'If value < LO Then
            '    'Throw New Exception("HI值不能小于LO值！")
            '    MsgBox("HI值不能小于LO值！", MsgBoxStyle.Critical, "Set HI")
            'ElseIf value > HIHI Then
            '    'Throw New Exception("HI值不能大于HIHI值！")
            '    MsgBox("HI值不能大于HIHI值！", MsgBoxStyle.Critical, "Set HI")
            'Else
            If value <> mHI Then
                mHI = value
                Call SetStatus(NewValue)
                PicView.Invalidate()
            End If
            'End If
        End Set
    End Property

    <Description("参数一般低告警门限")> _
    Public Property LO()Property LO() As Single
        Get
            Return mLO
        End Get
        Set(ByVal value As Single)
            'If value > HI Then
            '    'Throw New Exception("LO值不能大于HI值！")
            '    MsgBox("LOLO值不能大于LO值！", MsgBoxStyle.Critical, "Set LO")
            'ElseIf value < LOLO Then
            '    'Throw New Exception("LO值不能小于LOLO值！")
            '    MsgBox("LOLO值不能大于LO值！", MsgBoxStyle.Critical, "Set LO")
            'Else
            If value <> mLO Then
                mLO = value
                Call SetStatus(NewValue)
                PicView.Invalidate()
            End If
            'End If
        End Set
    End Property

    <Description("参数严重低告警门限")> _
    Public Property LOLO()Property LOLO() As Single
        Get
            Return mLOLO
        End Get
        Set(ByVal value As Single)
            'If value > LO Then
            '    'Throw New Exception("LOLO值不能大于LO值！")
            '    MsgBox("LOLO值不能大于LO值！", MsgBoxStyle.Critical, "Set LOLO")
            'Else
            If value <> mLOLO Then
                mLOLO = value
                Call SetStatus(NewValue)
                PicView.Invalidate()
            End If
            'End If
        End Set
    End Property

    <Description("参数当前值")> _
    Public Property NewValue()Property NewValue() As Single
        Get
            Return mValue
        End Get
        Set(ByVal value As Single)
            If value <> mValue Then
                mValue = value
                Call SetStatus(value)
                PicView.Invalidate()
            End If
            ViewRefreshOver = True  '视图已刷新
            ViewRefreshTime = Now   '视图刷新时间
        End Set
    End Property

    <Description("参数视图显示方式")> _
    Public Property ViewModel()Property ViewModel() As ViewMode
        Get
            Return mModel
        End Get
        Set(ByVal value As ViewMode)
            If value <> mModel Then
                mModel = value
                PicView.Invalidate()
            End If
        End Set
    End Property

    <Description("设置视图是否判断刷新超时。")> _
    Public Property ViewRefresh()Property ViewRefresh() As Boolean
        Get
            Return mRefresh
        End Get
        Set(ByVal value As Boolean)
            If value <> mRefresh Then
                mRefresh = value

                If mRefresh Then
                    If TimerOfTimeOutRefresh IsNot Nothing Then TimerOfTimeOutRefresh.Start()
                Else
                    If TimerOfTimeOutRefresh IsNot Nothing Then TimerOfTimeOutRefresh.Stop()
                End If
            End If
        End Set
    End Property

    <Description("视图刷新间隔（单位:秒）")> _
    Public Property TimeOut()Property TimeOut() As Integer
        Get
            Return mTimeOut
        End Get
        Set(ByVal value As Integer)
            If TimerOfTimeOutRefresh IsNot Nothing Then
                If value > 0 AndAlso value <> mTimeOut Then
                    TimerOfTimeOutRefresh.Interval = value * 1000
                End If
            End If
        End Set
    End Property

#End Region

刷新重绘#Region "刷新重绘"

    Private Sub PicColumnView_Paint()Sub PicColumnView_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PicView.Paint
        Me.ForeColor = IIf(HasFocus, Color.DarkOrange, Color.Black)
        Select Case ViewModel
            Case ViewMode.Column : Call DrawColumn(e.Graphics)
            Case ViewMode.Cube : Call DrawCube(e.Graphics)
        End Select
    End Sub

#End Region

控件调整大小#Region "控件调整大小"

    Private Sub ColumnView_Resize()Sub ColumnView_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        ViewName.Width = Me.ClientSize.Width
        PicView.Location = New Point(0, 0)
        PicView.Size = New System.Drawing.Size(Me.ClientSize.Width, Me.ClientSize.Height - ViewName.Height)
        Me.Refresh()
    End Sub

#End Region

根据不同的状态初始化画刷#Region "根据不同的状态初始化画刷"

    Private Sub InitBursh()Sub InitBursh()
        Select Case Status
            Case Alarm.LOLO, Alarm.HIHI '严重告警（红色）
                mBrushFront = New SolidBrush(Color.FromArgb(244, 49, 88))
                mBrushTop = New SolidBrush(Color.FromArgb(208, 40, 50))
                mBrushSide = New SolidBrush(Color.FromArgb(140, 6, 36))
            Case Alarm.HI, Alarm.LO '一般告警（黄色）
                mBrushFront = New SolidBrush(Color.FromArgb(244, 255, 50))
                mBrushTop = New SolidBrush(Color.FromArgb(215, 220, 5))
                mBrushSide = New SolidBrush(Color.FromArgb(154, 158, 3))
            Case Alarm.None '正常（绿色）
                mBrushFront = New SolidBrush(Color.FromArgb(0, 255, 50))
                mBrushTop = New SolidBrush(Color.FromArgb(100, 200, 100))
                mBrushSide = New SolidBrush(Color.FromArgb(88, 150, 88))
            Case Alarm.UnKnow
                mBrushFront = New SolidBrush(Color.FromArgb(0, 0, 255))
                mBrushTop = New SolidBrush(Color.FromArgb(0, 0, 160))
                mBrushSide = New SolidBrush(Color.FromArgb(0, 0, 160))
        End Select
    End Sub

#End Region

画方柱形图#Region "画方柱形图"
    Private Sub DrawColumn()Sub DrawColumn(ByVal G As System.Drawing.Graphics)
        Dim face1() As PointF = New PointF() {ColumnPoint(0), ColumnPoint(1), ColumnPoint(2), ColumnPoint(3), ColumnPoint(0)}
        Dim face2() As PointF = New PointF() {ColumnPoint(0), ColumnPoint(4), ColumnPoint(5), ColumnPoint(1), ColumnPoint(0)}
        Dim face3() As PointF = New PointF() {ColumnPoint(1), ColumnPoint(5), ColumnPoint(6), ColumnPoint(2), ColumnPoint(1)}
        Dim face4() As PointF = New PointF() {ColumnPoint(0), ColumnPoint(4), ColumnPoint(7), ColumnPoint(3), ColumnPoint(0)}
        Dim face5() As PointF = New PointF() {ColumnPoint(3), ColumnPoint(7), ColumnPoint(6), ColumnPoint(2), ColumnPoint(3)}

        Dim face6() As PointF = New PointF() {ColumnPoint(3), ColumnPoint(2), ColumnPoint(2), ColumnPoint(3), ColumnPoint(3)}
        Dim face7() As PointF = New PointF() {ColumnPoint(7), ColumnPoint(6), ColumnPoint(2), ColumnPoint(3), ColumnPoint(7)}
        Dim face8() As PointF = New PointF() {ColumnPoint(2), ColumnPoint(6), ColumnPoint(6), ColumnPoint(2), ColumnPoint(2)}

        G.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        G.TranslateTransform((PicView.Width) / 2, (PicView.Height) / 2)             '平移
        G.ScaleTransform((PicView.Width / 60) * 0.9, (PicView.Height / 100) * 0.9)  '缩放

        Dim MyPen As New System.Drawing.Pen(Me.ForeColor)
        Call InitBursh() '根据状态使用不同的颜色填充立方体

        If HasBorder Then
            G.DrawPolygon(MyPen, face4)
            G.DrawPolygon(MyPen, face5)
        End If

        Dim OffSet As Single = (NewValue - LOLO) * 97 / (HIHI - LOLO)
        If OffSet > 97 Then OffSet = 97
        If OffSet < 0 Then OffSet = 0
        face6(0).Y -= OffSet : face6(1).Y -= OffSet
        face7(0).Y -= OffSet : face7(1).Y -= OffSet : face7(2).Y -= OffSet : face7(3).Y -= OffSet : face7(4).Y -= OffSet
        face8(0).Y -= OffSet : face8(1).Y -= OffSet

        G.FillPolygon(mBrushFront, face6)
        G.FillPolygon(mBrushTop, face7)
        G.FillPolygon(mBrushSide, face8)

        If HasBorder Then
            G.DrawPolygon(MyPen, face1)
            G.DrawPolygon(MyPen, face2)
            G.DrawPolygon(MyPen, face3)
        End If

        '释放资源
        MyPen.Dispose()
        mBrushFront.Dispose() : mBrushTop.Dispose() : mBrushSide.Dispose()
        face1 = Nothing : face2 = Nothing : face3 = Nothing : face4 = Nothing : face5 = Nothing
        face6 = Nothing : face7 = Nothing : face8 = Nothing
    End Sub


#End Region

画圆柱形图#Region "画圆柱形图"
    Private Sub DrawCube()Sub DrawCube(ByVal G As System.Drawing.Graphics)
        G.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        G.TranslateTransform((PicView.Width) / 2, (PicView.Height) / 2) '平移
        G.ScaleTransform((PicView.Width / 20) * 0.9, (PicView.Height / 100) * 0.9) '缩放

        Dim OffSet As Single = (NewValue - LOLO) * 100 / (HIHI - LOLO)
        If OffSet >= 100 Then OffSet = 100
        If OffSet <= 0 Then OffSet = 1

        Dim MyRect1 As Rectangle = New Rectangle(-10, 50 - OffSet, 10, OffSet)
        Dim MyRect2 As Rectangle = New Rectangle(0, 50 - OffSet, 10, OffSet)
        Dim Color1 As Color, Color2 As Color
        Dim MyBrush1 As LinearGradientBrush = Nothing, MyBrush2 As LinearGradientBrush = Nothing

        Select Case Status
            Case Alarm.LOLO, Alarm.HIHI     '严重告警（红色）
                Color1 = Color.FromArgb(255, 0, 0) : Color2 = Color.FromArgb(180, 40, 50)
            Case Alarm.HI, Alarm.LO         '一般告警（黄色）
                Color1 = Color.FromArgb(244, 255, 50) : Color2 = Color.FromArgb(215, 220, 5)
            Case Alarm.None                 '正常（绿色）
                Color1 = Color.FromArgb(0, 255, 0) : Color2 = Color.FromArgb(100, 200, 100)
            Case Alarm.UnKnow               '未知（蓝色）
                Color1 = Color.FromArgb(0, 0, 255) : Color2 = Color.FromArgb(0, 0, 160)
        End Select
        MyBrush1 = New LinearGradientBrush(MyRect1, Color2, Color1, LinearGradientMode.Horizontal) : G.FillRectangle(MyBrush1, MyRect1)
        MyBrush2 = New LinearGradientBrush(MyRect1, Color1, Color2, LinearGradientMode.Horizontal) : G.FillRectangle(MyBrush2, MyRect2)

        If HasBorder Then
            Dim MyPen As New System.Drawing.Pen(Me.ForeColor, 0.6)
            Dim MyRect As Rectangle = New Rectangle(-10, -50, 20, 100)
            G.DrawRectangle(MyPen, MyRect)
        End If

        '释放资源
        MyBrush1.Dispose() : MyBrush2.Dispose()
        MyRect1 = Nothing : MyRect2 = Nothing
        Color1 = Nothing : Color2 = Nothing
    End Sub
#End Region

构造函数及析构函数#Region "构造函数及析构函数"
    Public Sub New()Sub New()

        ' 此调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。
        Me.Dock = DockStyle.Fill
        Call InitMyMenu()

        TimerOfTimeOutRefresh = New Timers.Timer(1 * 1000)
        AddHandler TimerOfTimeOutRefresh.Elapsed, AddressOf IsTimeOut
        If mRefresh Then TimerOfTimeOutRefresh.Start()
    End Sub

    Protected Overrides Sub Finalize()Sub Finalize()
        MyBase.Finalize()

        If Menu IsNot Nothing Then Menu.Dispose()
        If mBrushFront IsNot Nothing Then mBrushFront.Dispose()
        If mBrushTop IsNot Nothing Then mBrushTop.Dispose()
        If mBrushSide IsNot Nothing Then mBrushSide.Dispose()
        ColumnPoint = Nothing
        'CubePoint = Nothing

        If TimerOfTimeOutRefresh IsNot Nothing Then
            TimerOfTimeOutRefresh.Stop()
            RemoveHandler TimerOfTimeOutRefresh.Elapsed, AddressOf IsTimeOut
            TimerOfTimeOutRefresh = Nothing
        End If
    End Sub

#End Region

菜单及其事件处理#Region "菜单及其事件处理"

    Private Sub InitMyMenu()Sub InitMyMenu()
        Menu = New System.Windows.Forms.ContextMenuStrip
        With Menu
            .Items.Add("柱形图(方)(&C)", Nothing, New System.EventHandler(AddressOf SetDisplayModel))
            .Items.Add("柱形图(圆)(&U)", Nothing, New System.EventHandler(AddressOf SetDisplayModel))
            .Items.Add("-")
            .Items.Add("显示轮廓线(&L)", Nothing, New System.EventHandler(AddressOf SetDisplayModel))
            .Items.Add("允许超时处理(&O)", Nothing, New System.EventHandler(AddressOf SetDisplayModel))
            .Items.Add("属性(&P)", Nothing, New System.EventHandler(AddressOf PicColumnView_DoubleClick))
        End With
        CType(Menu.Items(4), ToolStripMenuItem).Checked = True
        PicView.ContextMenuStrip = Menu
    End Sub

    Private Sub SetDisplayModel()Sub SetDisplayModel(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, ToolStripMenuItem).Text
            Case "柱形图(方)(&C)"
                ViewModel = ViewMode.Column
            Case "柱形图(圆)(&U)"
                ViewModel = ViewMode.Cube
            Case "显示轮廓线(&L)"
                CType(Menu.Items(3), ToolStripMenuItem).Checked = Not CType(Menu.Items(3), ToolStripMenuItem).Checked
                HasBorder = Not HasBorder
                Me.Refresh()
            Case "允许超时处理(&O)"
                CType(Menu.Items(4), ToolStripMenuItem).Checked = Not CType(Menu.Items(4), ToolStripMenuItem).Checked
                ViewRefresh = Not ViewRefresh
        End Select
    End Sub

    Private Sub PicView_MouseDown()Sub PicView_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PicView.MouseDown
        Select Case ViewModel
            Case ViewMode.Column
                CType(Menu.Items(0), ToolStripMenuItem).Checked = True
                CType(Menu.Items(1), ToolStripMenuItem).Checked = False
            Case ViewMode.Cube
                CType(Menu.Items(0), ToolStripMenuItem).Checked = False
                CType(Menu.Items(1), ToolStripMenuItem).Checked = True
        End Select
    End Sub

#End Region

焦点处理#Region "焦点处理"

    Private Sub PicView_MouseEnter()Sub PicView_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PicView.MouseEnter
        If Not HasFocus Then
            HasFocus = True : Me.Refresh()
        End If
    End Sub

    Private Sub PicView_MouseLeave()Sub PicView_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PicView.MouseLeave
        If HasFocus Then
            HasFocus = False : Me.Refresh()
        End If
    End Sub

#End Region

判断刷新超时#Region "判断刷新超时"

    Private Sub IsTimeOut()Sub IsTimeOut(ByVal send As Object, ByVal e As Timers.ElapsedEventArgs)
        On Error Resume Next

        If DateDiff(DateInterval.Second, ViewRefreshTime, Now) >= TimeOut Then
            If Not ViewRefreshOver Then
                mAlarm = Alarm.UnKnow
                Me.Invoke(New MeReDraw(AddressOf ReDraw), Nothing)
            Else
                ViewRefreshOver = False
            End If
        End If
    End Sub

    Private Delegate Sub MeReDraw()Sub MeReDraw()

    Private Sub ReDraw()Sub ReDraw()
        Me.Refresh()
    End Sub

#End Region

判断参数状态#Region "判断参数状态"
    Private Function SetStatus()Function SetStatus(ByVal Value As Integer) As Alarm
        Select Case Value
            Case Is > HIHI : mAlarm = Alarm.HIHI
            Case HI To HIHI : mAlarm = Alarm.HI
            Case LO To HI : mAlarm = Alarm.None
            Case LOLO To LO : mAlarm = Alarm.LO
            Case Is < LOLO : mAlarm = Alarm.LOLO
            Case Else : mAlarm = Alarm.None
        End Select
    End Function
#End Region

End Class