Imports FlexCell
Imports Steema.TeeChart

Public Class Form1


    Public filepath As String

    Public GdbConnString As String
    Public linglist As Dictionary(Of String， Steema.TeeChart.Styles.Line)


    Private _axis As List(Of Steema.TeeChart.Axis)
    Private _fastLine As Dictionary(Of String, Steema.TeeChart.Styles.FastLine)
    Private _curSor(1) As Steema.TeeChart.Tools.CursorTool
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        filepath = $"{Application.StartupPath }\config.flx"
        GdbConnString = "Server=blv-cloud-db.mysql.rds.aliyuncs.com;Port=3307;Database=mqqtmysql;Uid=blv_rcu;Pwd=fnadiaJDIJ7546;charset=utf8;"

        _axis = New List(Of Axis)
        _fastLine = New Dictionary(Of String, Styles.FastLine)
        init_Grid_config()
        FileTo_Grid_config()
        linglist = New Dictionary(Of String, Steema.TeeChart.Styles.Line)
        'initChartBar(10, 1701747214, 1704822658)
        'Testfunction()
        'ksjfk()

    End Sub

    Private Sub InitPieChart(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)


        InitTeeChart(kkdic, starttime, stoptime)
        Dim fl As Steema.TeeChart.Styles.FastLine
        Dim tval As Dictionary(Of Long, Double)
        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        ' 获取本地日期和时间
        Dim yt As DateTime

        For t = starttime To stoptime
            For Each node In kkdic
                fl = _fastLine.Item(node.Key)
                tval = node.Value
                yt = （dtOffset.AddSeconds(t)).LocalDateTime

                If tval.ContainsKey(t) Then
                    If t = starttime OrElse Not (tval.Item(t) = tval.Item(t - 1)) Then
                    Else
                        fl.Add(yt.ToOADate, tval.Item(t - 1))
                        'Console.WriteLine($"{yt.ToOADate}:{ tval.Item(t - 1)}")
                    End If
                    fl.Add(yt.ToOADate, tval.Item(t))
                    'Console.WriteLine($"{yt.ToOADate}:{ tval.Item(t)}")
                    ''Console.WriteLine(DateTime.FromOADate(yt.ToOADate).ToString("yyyy-MM-dd HH:mm:ss"))

                    '#1/16/2024 01:09:47 AM#
                Else
                    If t < tval.Keys(0) Then
                        If tval.Values(0) = 1 Then
                            fl.Add(yt.ToOADate, 0)
                            tval.Add(t, 0)
                            'Console.WriteLine($"{yt.ToOADate}:0")
                        ElseIf tval.Values(0) = 0 Then
                            fl.Add(yt.ToOADate, 1)
                            tval.Add(t, 1)
                            'Console.WriteLine($"{yt.ToOADate}:1")
                        Else
                            fl.Add(yt.ToOADate, 0.5)
                            tval.Add(t, 0.5)
                            'Console.WriteLine($"{yt.ToOADate}:0.5")
                        End If
                    Else
                        If tval.Item(t - 1) = 1 Then
                            fl.Add(yt.ToOADate, 1)
                            tval.Add(t, 1)
                            'Console.WriteLine($"{yt.ToOADate}:1")
                        ElseIf tval.Item(t - 1) = 0 Then
                            fl.Add(yt.ToOADate, 0)
                            tval.Add(t, 0)
                            'Console.WriteLine($"{yt.ToOADate}:0")
                        Else
                            fl.Add(yt.ToOADate, 0.5)
                            tval.Add(t, 0.5)
                            'Console.WriteLine($"{yt.ToOADate}:0.5")
                        End If
                    End If



                End If
            Next
        Next

    End Sub
    Public Sub initChartBar(tCounta As Integer, starttime As Double, stoptime As Double)

        'Dim devline = AddTeeChartStylesLine()

        ChartBar.Header.Text = "" '标题
        ChartBar.Header.Visible = True
        ChartBar.Legend.Transparent = False  '刻印说明
        '  ChartBar.Legend.Alignment = Steema.TeeChart.LegendAlignments.Top
        ChartBar.Aspect.View3D = False
        ChartBar.Axes.Left.Automatic = True
        ChartBar.Axes.Left.AutomaticMaximum = True
        ChartBar.Axes.Left.AutomaticMinimum = True
        ChartBar.Axes.Left.Labels.ValueFormat = "0.0"
        ChartBar.Axes.Left.Increment = 0.5
        ChartBar.Axes.Left.Labels.LabelHeight(10)

        'ChartBar.Axes.Left.Scroll(15, True)

        'ChartBar.Axes.Left.Labels.Exponent = True
        'Line1.Clear()
        'ChartBar.Axes.
        ChartBar.Axes.Bottom.AutomaticMaximum = False
        ChartBar.Axes.Bottom.AutomaticMinimum = False
        ChartBar.Axes.Bottom.Automatic = False
        ChartBar.Axes.Bottom.Increment = 1
        ChartBar.Axes.Bottom.Maximum = stoptime
        'ChartBar.Axes.Bottom.Minimum = starttime
        'ChartBar.Axes.Bottom.Labels.Width = 20
        'ChartBar.Axes.Bottom.Labels.DateTimeFormat = "HH:mm:ss"
        'ChartBar.Series(0).XValues.DateTime = False
        'ChartBar.Axes.Bottom.MaxXValue = stoptime
        'ChartBar.Axes.Bottom.ma = stoptime
        'ChartBar.Axes.Bottom.Scroll(1705386785, False)

        'ChartBar.Axes.Bottom.Scroll()
        'ChartBar.Zoom.ZoomRect(New Rectangle(0, 0, 1000, 1000))



        Dim ftemp = tCounta
        ChartBar.Axes.Left.Maximum = ftemp ' / 100
        ChartBar.Axes.Left.Minimum = 0 '/ 100

        ChartBar.Axes.Bottom.Labels.Align = -45
        ChartBar.Axes.Bottom.Labels.MultiLine = True


        'Dim X As Integer = ChartBar

        'Dim R As New Rectangle(X, Y, Width, Height)





        ' ChartBar.Refresh()
    End Sub
    Public Sub Testfunction()

        ChartBar.Header.Text = "" '标题
        ChartBar.Header.Visible = True
        ChartBar.Aspect.View3D = False


        ChartBar.Axes.Left.Automatic = False
        ChartBar.Axes.Left.AutomaticMaximum = False
        ChartBar.Axes.Left.AutomaticMinimum = False
        ChartBar.Axes.Left.Labels.ValueFormat = "0.0"
        ChartBar.Axes.Left.Increment = 0.5
        ChartBar.Axes.Left.Maximum = 10 ' / 100
        ChartBar.Axes.Left.Minimum = 0 '/ 100

        ChartBar.Axes.Bottom.AutomaticMaximum = False
        ChartBar.Axes.Bottom.AutomaticMinimum = False
        ChartBar.Axes.Bottom.Automatic = False
        ChartBar.Axes.Bottom.Labels.Align = -45
        ChartBar.Axes.Bottom.Labels.MultiLine = True
        ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd"
        ChartBar.Series(0).XValues.DateTime = True



        ' 创建 DateTimeOffset 对象并设置其值为指定的 UTC 秒数
        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
        ' 获取本地日期和时间
        Dim yt As DateTime = （dtOffset + TimeSpan.FromSeconds(1704822366)).LocalDateTime
        Dim minValue As DateTime = New DateTime(yt.Year, yt.Month, yt.Day, yt.Hour, yt.Minute， yt.Second) '' 最小日期
        yt = （dtOffset + TimeSpan.FromSeconds(1704823530)).LocalDateTime
        Dim maxValue As DateTime = New DateTime(yt.Year, yt.Month, yt.Day, yt.Hour, yt.Minute， yt.Second) '' 最小日期

        ChartBar.Axes.Bottom.Maximum = maxValue.ToOADate
        ChartBar.Axes.Bottom.Minimum = minValue.ToOADate
        'Dim dou As Double = 1 / (maxValue.ToOADate - minValue.ToOADate)
        'ChartBar.Axes.Bottom.Increment = TimeSpan.FromSeconds(1).TotalSeconds



    End Sub

    Public Sub ksjfk()
        ' 创建TeeChart控件对象
        Dim chart = ChartBar.Chart

        ' 添加Series到图表上（这里使用Line Series作示例）
        Dim series As New Steema.TeeChart.Styles.Line()
        'chart.Add(series)
        ChartBar.Series.Add(series)
        ' 定义要显示的数据点及其相应的X轴标签
        Dim xDataPoints() As Double = {10, 20, 30, 40} ' X轴数据点
        Dim yDataPoints() As Double = {50, 60, 70, 80} ' Y轴数据点
        Dim labels() As String = {"Label1", "Label2", "Label3", "Label4"} ' X轴标签

        ' 遍历数据并设置每个数据点的值和标签
        For i As Integer = 0 To xDataPoints.Length - 1

            Dim point As New PointF(xDataPoints(i), yDataPoints(i))

            ' 设置X轴标签
            point.X = labels(i)

            ' 向系列中添加数据点
            series.Add(point)
        Next

        ' 显示图表
        'chart.ShowDialog()
    End Sub


    Public Function AddTeeChartStylesLine() As Styles.Line
        Dim devline As Steema.TeeChart.Styles.Line = New Styles.Line
        ChartBar.Series.Add(devline)
        Dim minValue As DateTime = New DateTime(2024, 1, 10, 2, 35， 30) '' 最小日期


        Return devline
        '  Dim chart As TChart = ChartBar
    End Function

    Public Sub init_Grid_config()
        With Grid_config
            .NewFile()
            .Cols = 3
            .Rows = 3
            .DisplayRowNumber = False
            .Cell(0, 0).Text = "序号"
            .Cell(0, 1).Text = "属性"
            .Cell(0, 2).Text = "属性值"
            .Column(0).Width = 0
            .Column(1).Width = 150
            .Column(1).Locked = True
            .Column(2).Width = 200
            .Column(1).Alignment = AlignmentEnum.CenterCenter
            .Column(2).Alignment = AlignmentEnum.CenterCenter
            .Cell(1, 1).Text = "开始时间"
            .Cell(2, 1).Text = "结束时间"
            .Cell(1, 2).CellType = CellTypeEnum.DateTime
            .Cell(2, 2).CellType = CellTypeEnum.DateTime



        End With
    End Sub
    Public Sub FileTo_Grid_config()
        If IO.File.Exists(filepath) Then
            Grid_config.OpenFile(filepath)
        End If
    End Sub
    Public Sub Grid_config_FileTo()

        Grid_config.SaveFile(filepath)

    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Grid_config_FileTo()
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Grid_config.AddItem("")
        Grid_config.Cell(Grid_config.Rows - 1, 1).Text = "机型"
    End Sub

    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
        Grid_configDeleteRow(Grid_config.ActiveCell.Row)
    End Sub
    Public Sub Grid_configDeleteRow(erow As Integer)
        Dim devname As String = Grid_config.Cell(erow, 1).Text
        If devname.Equals("机型") Then
            Grid_config.Row(erow).Delete()
        End If
    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        init_Grid_config()
    End Sub



    Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
        MysqlDataDispose()
    End Sub


    Public Sub MysqlDataDispose()
        Dim selectstr As String = "SELECT `deviceName`,`eventName`,`timestamp`,`timemills`FROM `mqqtmysql`.`devicestate` WHERE"
        Dim cstrpar As String = String.Empty
        Dim starttime, stoptime As DateTime
        Dim dtZone As DateTime = New DateTime(1970, 1, 1, 0, 0, 0)
        Try

            starttime = DateTime.Parse(Grid_config.Cell(1, 2).Text.Trim)
            stoptime = DateTime.Parse(Grid_config.Cell(2, 2).Text.Trim)
            If IsNothing(starttime) OrElse IsNothing(stoptime) Then
                MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }日期输入错误")
            End If
        Catch ex As Exception
            MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }日期输入错误")
        End Try


        For i = 1 To Grid_config.Rows - 1
            If i = 1 Then
                selectstr = $"{selectstr}`timestamp`>='{starttime.Subtract(dtZone).TotalSeconds }' And "
            ElseIf i = 2 Then
                selectstr = $"{selectstr}`timestamp`<='{stoptime.Subtract(dtZone).TotalSeconds}' And "
            Else
                cstrpar = $"{cstrpar}OR deviceName LIKE '%{Grid_config.Cell(i, 2).Text.Trim}%'{vbCrLf }"
            End If

        Next
        If Not String.IsNullOrEmpty(cstrpar) Then
            cstrpar = cstrpar.Remove(0, 2)
            selectstr = $"{selectstr}({cstrpar.Trim })   ORDER BY (`timemills`) DESC"
        End If
        Dim rowdic As Dictionary(Of String, Dictionary(Of String, String)) = New Dictionary(Of String, Dictionary(Of String, String))
        Dim colounmdic As Dictionary(Of String, String) = New Dictionary(Of String, String)
        Dim dt As DataTable

        Try
            Using db As New DbExecutor(DbExecutor.DbTypeEnum.Mysql, GdbConnString)
                db.Open()
                dt = db.ExecuteDataTable(selectstr)
                If IsNothing(dt) OrElse dt.Rows.Count = 0 OrElse dt.Columns.Count = 0 Then
                    MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }数据查询语句异常:{selectstr}")
                Else


                    rowdic.Add("colounmdic", colounmdic)
                    For i = 0 To dt.Rows.Count - 1
                        Dim rownodedic As Dictionary(Of String, String) = New Dictionary(Of String, String)
                        Dim celltext As String = String.Empty
                        If dt(i)(1).ToString.Trim.Equals("EV_ONLINE") Then
                            celltext = 1
                        ElseIf dt(i)(1).ToString.Trim.Equals("EV_OFFLINE") Then
                            celltext = 0
                        End If
                        If Not colounmdic.ContainsKey(dt(i)(0).ToString.Trim) Then
                            colounmdic.Add(dt(i)(0).ToString.Trim, i)
                        End If

                        rownodedic.Add(dt(i)(0).ToString.Trim, celltext)
                        If rowdic.ContainsKey(dt(i)(3).ToString.Trim) Then
                            '
                        Else
                            rowdic.Add(dt(i)(3).ToString.Trim, rownodedic)
                            Console.WriteLine($"重复字段:{dt(i)(3).ToString.Trim}")
                        End If



                    Next



                End If


            End Using

            initGrid_Mysqldate(rowdic)


        Catch ex As Exception
            MsgBox($"数据查询失败！！！{vbCrLf }原因:{vbCrLf }{ex.Message }")
            Return
        End Try


    End Sub

    Public Sub initGrid_Mysqldate(rowdic As Dictionary(Of String, Dictionary(Of String, String)))
        If IsNothing(rowdic) AndAlso rowdic.Count = 0 AndAlso (Not rowdic.ContainsKey("colounmdic")) Then
            MsgBox($"数据加载失败！！数据为空或未检测到列信息。")
        End If

        Dim starttime As Long = 0
        Dim stoptime As Long = 0
        Dim kkdic As Dictionary(Of String， Dictionary(Of Long, Double)) = New Dictionary(Of String, Dictionary(Of Long, Double))
        Dim colounmdic As Dictionary(Of String, String) = rowdic.Item("colounmdic")
        With Grid_Mysqldate
            .NewFile()
            .AutoRedraw = False
            .Cols = colounmdic.Count + 3
            .Rows = 1
            .DisplayRowNumber = True
            .Cell(0, 0).Text = "序号"
            .Cell(0, 1).Text = "时间"
            .Cell(0, 2).Text = "时间戳"
            .Column(0).Width = 20
            .Column(1).Width = 150
            .Column(1).Alignment = AlignmentEnum.CenterCenter

            For i = 0 To colounmdic.Count - 1
                .Cell(0, i + 3).Text = colounmdic.Keys(i)
                .Column(i + 3).Alignment = AlignmentEnum.CenterCenter
            Next
            Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
            ' 获取本地日期和时间


            For Each node In rowdic
                If node.Key.Equals("colounmdic") Then Continue For
                .AddItem("")

                Dim t As Long = Long.Parse(node.Key)
                t = t / 1000
                Dim yt As DateTime = （dtOffset + TimeSpan.FromSeconds(t)).LocalDateTime
                If starttime = 0 OrElse t < starttime Then
                    starttime = t
                End If
                If stoptime = 0 OrElse t > stoptime Then
                    stoptime = t
                End If


                .Cell(.Rows - 1, 1).Text = yt.ToString("yyyy-MM-dd HH:mm:ss")
                .Cell(.Rows - 1, 2).Text = t.ToString
                For Each index In node.Value
                    For j = 0 To colounmdic.Count - 1
                        '  'Console.WriteLine(.Cell(0, j + 2).Text)
                        If .Cell(0, j + 3).Text.Equals(index.Key) Then
                            .Cell(.Rows - 1, j + 3).Text = index.Value
                        End If
                    Next
                Next

                Dim datadic As Dictionary(Of Long, Double)
                If kkdic.ContainsKey(node.Value.Keys(0)) Then
                    datadic = kkdic.Item(node.Value.Keys(0))
                    If datadic.ContainsKey(t) Then
                        datadic.Item(t) = CInt(node.Value.Values(0))
                    Else
                        datadic.Add(t, node.Value.Values(0))
                    End If

                Else
                    datadic = New Dictionary(Of Long, Double)
                    datadic.Add(t, node.Value.Values(0))
                    kkdic.Add(node.Value.Keys(0), datadic)
                End If


            Next








        End With
        Grid_Mysqldate.AutoRedraw = True
        Grid_Mysqldate.Refresh()

        InitPieChart(kkdic, starttime, stoptime)

    End Sub



    ''' <summary>
    ''' 初始化Chart控件
    ''' </summary>
    Private Sub InitTeeChart(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)
        ChartBar.AutoRepaint = False
        ChartBar.Header.Lines = New String() {""} 'TeeChart标题
        ChartBar.Panning.InsideBounds = True
        ChartBar.Panning.Allow = ScrollModes.Horizontal
        InitCustomAxies(kkdic, starttime, stoptime)
        InitFastLine(kkdic)
        InitCursor()
        ChartBar.AutoRepaint = True
        ChartBar.Refresh()
    End Sub

    ''' <summary>
    ''' 初始化轴
    ''' </summary>
    Private Sub InitCustomAxies(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)), starttime As Long， stoptime As Long)

        _axis.Clear()
        ChartBar.Axes.Custom.Clear()
        ChartBar.Walls.Visible = False '不显示立面（背景色将统一）

        ChartBar.Axes.Bottom.Title.Caption = "时间轴"
        ChartBar.Axes.Bottom.Title.Visible = False
        ChartBar.Axes.Bottom.MaximumOffset = 4 '最大值偏移
        ChartBar.Axes.Bottom.MinimumOffset = 4 '最小值偏移
        ChartBar.Axes.Bottom.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
        ChartBar.Axes.Bottom.Grid.Width = 2
        ChartBar.Axes.Bottom.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        ChartBar.Axes.Bottom.Ticks.Length = 4 '标记长度
        ChartBar.Axes.Bottom.Ticks.Width = 4 '标记宽度
        ChartBar.Axes.Bottom.Grid.Transparency = 60
        ' _axis.Add(ChartBar.Axes.Bottom)
        ChartBar.Axes.Bottom.Automatic = False

        Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        ' 获取本地日期和时间
        Dim yt As DateTime
        yt = （dtOffset.AddSeconds(stoptime)).LocalDateTime
        ChartBar.Axes.Bottom.Maximum = yt.ToOADate
        Dim bvtOffset As New DateTimeOffset(New DateTime(1970, 1, 1, 0, 0, 0))
        yt = （dtOffset.AddSeconds(starttime )).LocalDateTime

        ChartBar.Axes.Bottom.Minimum = yt.ToOADate
        ' ChartBar.Axes.Bottom.Increment = 1
        ChartBar.Axes.Bottom.Logarithmic = False
        'ChartBar.Axes.Right.Title.Right = 20
        ChartBar.Axes.Bottom.Labels.DateTimeFormat = "yyyy-MM-dd HH"

        ChartBar.Axes.Left.Title.Caption = "电流-电压轴"
        ChartBar.Axes.Left.Title.Visible = False
        ChartBar.Axes.Left.MaximumOffset = 4 '最大值偏移
        ChartBar.Axes.Left.MinimumOffset = 4 '最小值偏移
        ChartBar.Axes.Left.Grid.Style = System.Drawing.Drawing2D.DashStyle.Dash
        ChartBar.Axes.Left.Grid.Width = 2
        ChartBar.Axes.Left.Ticks.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        ChartBar.Axes.Left.Ticks.Length = 2 '标记长度
        ChartBar.Axes.Left.Ticks.Width = 2 '标记宽度
        ChartBar.Axes.Left.Grid.Transparency = 60
        ChartBar.Axes.Left.Automatic = False
        ChartBar.Axes.Left.Minimum = 0.001
        ChartBar.Axes.Left.Maximum = 1000
        ChartBar.Axes.Left.Logarithmic = True


        For i = 0 To kkdic.Count - 1



            '_axis.Add(ChartBar.Axes.Left)
            'Case Else 'IO
            Dim idx As Integer = i
            _axis.Add(New Steema.TeeChart.Axis)
            _axis(i).Title.Caption = kkdic.Keys(i) '标题文本

            _axis(i).Title.Font.Brush.Color = Color.GhostWhite

            _axis(i).Title.Angle = 0 '标题角度
            _axis(i).AxisPen.Color = Color.FromArgb(255, idx * 12, 255 - idx * 10, idx * 6) '颜色
            _axis(i).OtherSide = True '右边显示

            _axis(i).StartPosition = idx * 8.0R
            _axis(i).EndPosition = _axis(i).StartPosition + 4.0R
            _axis(i).Automatic = False
            _axis(i).Minimum = 0
            _axis(i).Maximum = 1
            _axis(i).Increment = 1.0R
            _axis(i).Grid.Visible = False
            _axis(i).Labels.Angle = 0 '角度


            ChartBar.Axes.Custom.Add(_axis(i))

            'End Select
        Next

    End Sub
    ''' <summary>
    ''' 初始化线
    ''' </summary>
    Private Sub InitFastLine(kkdic As Dictionary(Of String， Dictionary(Of Long, Double)))
        ChartBar.Series.Clear()
        _fastLine.Clear()
        For i = 0 To kkdic.Count - 1
            _fastLine.Add（kkdic.Keys(i), New Steema.TeeChart.Styles.FastLine)
            AddHandler _fastLine.Item(kkdic.Keys(i)).Click, AddressOf FastLine1_Click
            ' _fastLine(i).Title = $"电流{i}" ' FastLineTitle(i) '标题     
            _fastLine.Item(kkdic.Keys(i)).TreatNulls = Steema.TeeChart.Styles.TreatNullsStyle.DoNotPaint
            ChartBar.Series.Add(_fastLine.Item(kkdic.Keys(i)))
            _fastLine.Item(kkdic.Keys(i)).XValues.DateTime = True
            'Select Case i
            '    Case 0
            '        _fastLine(i).Title = $"电流"
            '        ' FastLine(i).CustomVertAxis = ChartBar.Axes.Left '绑定电流轴
            '        _fastLine(i).Transparency = 0 '线条透明度
            '        _fastLine(i).LinePen.Color = Color.FromArgb(255, 255, 0, 0) '线条颜色
            '        
            '    Case 1 To 5
            '        If i = 1 Then
            '            _fastLine(i).Title = $"电压"
            '        Else
            '            _fastLine(i).Title = $"CH{i - 1}"
            '        End If

            '        '  _fastLine(i).Visible = False
            '        ' _fastLine(i).CustomVertAxis = _axis(0) '绑定电压
            '        _fastLine(i).Transparency = 75 '线条透明度
            '        _fastLine(i).LinePen.Color = Color.FromArgb(126, 0, 0, 255) '线条颜色
            '        _fastLine(i).Legend.Visible = True '不在图例中显示
            '    Case Else
            _fastLine.Item(kkdic.Keys(i)).Title = $"{kkdic.Keys(i)}"
            '_fastLine(i).Legend.Visible = True '不在图例中显示
            ' _fastLine.Item(kkdic.Keys(i)).Visible = False
            _fastLine.Item(kkdic.Keys(i)).Transparency = 0 '线条透明度
            _fastLine.Item(kkdic.Keys(i)).CustomVertAxis = _axis(i) '绑定IO轴
            _fastLine.Item(kkdic.Keys(i)).Stairs = True '线条阶梯状
            Dim random As New Random()

            _fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.GhostWhite   '线条颜色
            '_fastLine.Item(kkdic.Keys(i)).LinePen.Color = Color.Blue
            _fastLine.Item(kkdic.Keys(i)).LinePen.Width = 2
            _fastLine.Item(kkdic.Keys(i)).Legend.Visible = False '不在图例中显示
            '  _fastLine(i).LinePen.Color = _axis(i - 5).Labels.Color
            'End Select
            ' FastLine(i).LinePen.Color = Color.FromArgb(12, 12, 12, 12) '颜色
            ' FastLine(i).ColorEach = False '各点之间颜色不一
        Next
    End Sub
    Private Sub InitCursor()
        ChartBar.Tools.Clear()
        For i = 0 To _curSor.Length - 1
            _curSor(i) = New Steema.TeeChart.Tools.CursorTool
            ChartBar.Tools.Add(_curSor(i))
            _curSor(i).Style = Steema.TeeChart.Tools.CursorToolStyles.Vertical
            _curSor(i).OriginalCursor = System.Windows.Forms.Cursors.Default
            _curSor(i).Pen.Style = System.Drawing.Drawing2D.DashStyle.Dot
            _curSor(i).Pen.Width = 2
            _curSor(i).Tag = i
            _curSor(i).Active = True
            _curSor(i).FollowMouse = False
            AddHandler _curSor(i).Change, AddressOf CursorChange
            Select Case i
                Case 0
                    _curSor(i).Pen.Color = System.Drawing.Color.Orange
                Case 1
                    _curSor(i).Pen.Color = System.Drawing.Color.Lime
                Case 2
                    _curSor(i).Pen.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
            End Select
        Next
    End Sub
    ''' <summary>
    ''' 光标位置改变触发事件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub CursorChange(sender As Object, e As Steema.TeeChart.Tools.CursorChangeEventArgs)
        Dim index As Integer = sender.tag
        CursorChangeDataDisplay(index)
    End Sub
    ''' <summary>
    ''' 光标移动显示数据
    ''' </summary>
    ''' <param name="index">当前移动的是第几个光标</param>
    Private Sub CursorChangeDataDisplay(index As Integer)

        Dim X1 As Double = 0
        Dim X2 As Double = 0
        Dim dtOffset As New DateTimeOffset(New DateTime(1900, 1, 1), TimeSpan.Zero)

        ' 获取本地日期和时间
        Dim yt As DateTime
        Dim ts As TimeSpan
        Select Case index
            Case 0
                X1 = _curSor(index).XValue.ToString("#0.0000")

                'yt.too
                yt = DateTime.FromOADate(X1)
                'Console.WriteLine($"CursorChangeDataDisplay:X1 {X1}:{yt.ToString("yyyy-MM-dd HH:mm:ss")}")
                'yt = （dtOffset + TimeSpan.FromDays(X1)).LocalDateTime
                yt = yt + TimeSpan.FromHours(8)
                labY1.Text = yt.ToString("yyyy-MM-dd HH:mm:ss")
                ts = New TimeSpan(yt.Ticks)
                labY1.Tag = ts.TotalSeconds
            Case 1
                X2 = _curSor(index).XValue.ToString("#0.0000")
                yt = DateTime.FromOADate(X2)

                yt = yt + TimeSpan.FromHours(8)
                labY2.Text = yt.ToString("yyyy-MM-dd HH:mm:ss")
                'Console.WriteLine($"CursorChangeDataDisplay:X2 {X2}:{yt.ToString("yyyy-MM-dd HH:mm:ss")}")
                ts = New TimeSpan(yt.Ticks)
                labY2.Tag = ts.TotalSeconds
        End Select
        Double.TryParse(labY1.Tag, X1)
        Double.TryParse(labY2.Tag, X2)


        Dim couinm As Double = X2 - X1
        lab1_2.Text = ""
        If couinm < 0 Then
            lab1_2.Text = " - "
        End If
        ';'Console.WriteLine($"CursorChangeDataDisplay:{ _curSor(index).XValue.ToString("#0.00")}|{_curSor(index).XValue.ToString("#0.00")}|{couinm}")
        Dim timeval As TimeSpan = TimeSpan.FromSeconds(Math.Abs(couinm))
        '  'Console.WriteLine(couinm)
        If timeval.Days > 0 Then
            lab1_2.Text = $"{ lab1_2.Text}{timeval.Days }天 "
        End If
        lab1_2.Text = $"{ lab1_2.Text}{timeval.Hours }:{timeval.Minutes }:{timeval.Seconds }"




    End Sub



    Private _curTool As Steema.TeeChart.Tools.CursorTool
    Private Sub ChartBar_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ChartBar.MouseDoubleClick
        If e.Button = MouseButtons.Middle Then
            ChartBar.Zoom.Undo()
        ElseIf e.Button = MouseButtons.Left Then
            Dim idx As Integer
            Dim row As Integer

            If _curTool Is Nothing Then
                idx = 0
                _curTool = _curSor(idx)
                _curTool.FollowMouse = True
                'row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
                'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"1"

            Else
                If _curTool.FollowMouse = False Then
                    idx = _curTool.Tag
                    '  row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
                    '_isUserChange = False
                    _curTool.FollowMouse = False
                    'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"0"

                    idx += 1
                    If idx >= _curSor.Length Then
                        idx = 0
                        _curTool = _curSor(idx)
                        _curTool.FollowMouse = True
                    Else
                        _curTool = _curSor(idx)
                        _curTool.FollowMouse = True
                        '  row = _rowChart.Cursor + idx * (EnCursor.Width + 2) + 1 + EnCursor.FollowMouse + 1
                        'GrdChartInfo.Cell(row, EnGridCol.Value).Text = $"1"
                    End If


                    '_isUserChange = True
                End If

            End If

        End If
    End Sub

    Private Sub ChartBar_MouseClick(sender As Object, e As MouseEventArgs) Handles ChartBar.MouseClick
        If e.Button = MouseButtons.Middle Then

            ChartBar.Zoom.Undo()
        ElseIf e.Button = MouseButtons.Right Then
            If IsNothing(_curTool) Then Return
            _curTool.FollowMouse = False
            End If

    End Sub



    Private Sub FastLine1_Click(sender As Object, e As MouseEventArgs)
        Dim fl As Styles.FastLine = sender




        For Each node In _fastLine
            If node.Value.Title.Equals(fl.Title) Then
                fl = node.Value
                Dim x1 As Double = 0
                labdevanme.Text = fl.Title
                ''Console.WriteLine($"{e.X} {fl.YValues.Value(e.X).ToString("#0.0.")} {e.Y} {fl.YValues.Value(e.Y).ToString("#0.00")}")
                Dim intcv As Integer = CInt（Math.Round(ChartBar.Series(0).YScreenToValue(e.Y))）
                labval.Text = intcv.ToString


                'Console.WriteLine(fl.XValues.Value.Length)
                x1 = ChartBar.Series(0).XScreenToValue(e.X)
                Dim stra As String = fl.XValues.AsDateTime(e.X)


                Dim dtOffset As New DateTimeOffset(New DateTime(1970, 1, 1), TimeSpan.Zero)
                ' 获取本地日期和时间
                Dim yt As DateTime
                yt = DateTime.FromOADate(x1)
                yt = yt + TimeSpan.FromHours(8)
                'Console.WriteLine($"FastLine1_Click:{x1}:{ yt.ToString("yyyy-MM-dd HH:mm:ss")}")
                labDate.Text = yt.ToString("yyyy-MM-dd HH:mm:ss")

            End If
        Next





    End Sub


End Class