Boonlive_RD_Web/Desktop_F305DataPresentation
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
Desktop_F305DataPresentation/Form1.vb

816 lines
31 KiB
VB.net
Raw Permalink Normal View History

初始化
2025-12-11 10:41:49 +08:00
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
Reference in New Issue Copy Permalink