图表控件Teechart常见问答集合—TeeChart Pro ActiveX：如何在两个光标间画线？-控件新闻-慧都网

图表控件Teechart常见问答集合—TeeChart Pro ActiveX：如何在两个光标间画线？

翻译|使用教程|编辑：况鱼杰|2020-11-10 13:22:54.647|阅读 340 次

概述：本教程将会持续介绍有关于图表控件Teechart的问答文章，帮助用户解决常见问题。本篇文章将会介绍如何在两个光标间画线。

# 慧都年终大促·界面/图表报表/文档/IDE等千款热门软控件火热促销中 >>

相关链接：

TeeChart Pro ActiveX图表组件库提供数百种2D和3D图形样式，54种运算和统计函数以及无限数量的坐标轴和14工具箱供你选择。该图表控件还可以有效地用于创建多任务的仪表板。

点击下载最新TeeChart Pro ActiveX试用版

Q：图表上有两个系列，每个系列都有一个光标。有没有办法在光标之间绘制一条垂直线以指示序列值之间的差异？（希望可以通过那条线显示差值）想下面图显示的一样：

还有其他办法做到这一点吗？

A：首先应该计算插值点并手动画线，然后使用AnnotationTool绘制差异值。这里有个简单的例子：

Dim XPos, YVal1, YVal2 As Double
Private Sub Form_Load()  
  With TChart1
    .Aspect.View3D = False
    .Legend.Visible = False
    .Panel.Gradient.Visible = False
    .Panel.Color = vbWhite
    .Walls.Back.Gradient.Visible = False
    .Walls.Back.Color = vbWhite
    .Axis.Left.GridPen.Visible = False
    .Axis.Bottom.GridPen.Visible = False
    .AddSeries scFastLine
    .Series(0).FillSampleValues 25
    
    .AddSeries scFastLine
    .Series(1).FillSampleValues 25
    
    .Tools.Add tcAnnotate
  End With
  
  XPos = -1
End Sub

Function InterpolateSeries(ByVal SeriesIndex As Long, ByVal XValue As Double) As Double
    InterpolateSeries = InterpolateLineSeries(SeriesIndex, TChart1.Series(SeriesIndex).FirstValueIndex, TChart1.Series(SeriesIndex).LastValueIndex, XValue)
End Function

Function InterpolateLineSeries(ByVal SeriesIndex As Long, FirstIndex As Integer, LastIndex As Integer, XValue As Double) As Double
    Dim index As Integer
    Dim dx, dy, val As Double
    
    index = FirstIndex
    
    Do While ((TChart1.Series(SeriesIndex).XValues.Value(index) <= XValue) And (index < LastIndex))
      index = index + 1
    Loop
    
    ' safeguard
    If (index < 1) Then
      index = 1
    ElseIf (index >= TChart1.Series(SeriesIndex).Count) Then
      index = TChart1.Series(SeriesIndex).Count - 1
    End If
    
    ' y=(y2-y1)/(x2-x1)*(x-x1)+y1
    dx = TChart1.Series(SeriesIndex).XValues.Value(index) - TChart1.Series(SeriesIndex).XValues.Value(index - 1)
    dy = TChart1.Series(SeriesIndex).YValues.Value(index) - TChart1.Series(SeriesIndex).YValues.Value(index - 1)
    
    If (dx <> 0) Then
      InterpolateLineSeries = dy * (XValue - TChart1.Series(SeriesIndex).XValues.Value(index - 1)) / dx + TChart1.Series(SeriesIndex).YValues.Value(index - 1)
    Else
      InterpolateLineSeries = 0
    End If
End Function

Private Sub TChart1_OnAfterDraw()
  With TChart1.Axis
    If XPos > -1 Then
      TChart1.Canvas.Pen.Style = psSolid
      TChart1.Canvas.Pen.Color = vbBlack
      TChart1.Canvas.DrawLine XPos, .Left.CalcYPosValue(YVal1), XPos, .Left.CalcYPosValue(YVal2)
    End If
  End With
End Sub

Private Sub TChart1_OnMouseMove(ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
  XPos = X
  XVal = TChart1.Axis.Bottom.CalcPosPoint(XPos)
  YVal1 = InterpolateSeries(0, XVal)
  YVal2 = InterpolateSeries(1, XVal)
  
  TChart1.Tools.Items(0).asAnnotation.Text = Format$(YVal1 - YVal2, "#,##0.##")
  TChart1.Tools.Items(0).asAnnotation.Left = XPos + 5
  TChart1.Tools.Items(0).asAnnotation.Top = TChart1.Axis.Left.CalcYPosValue(YVal1) + (TChart1.Axis.Left.CalcYPosValue(YVal2) - TChart1.Axis.Left.CalcYPosValue(YVal1)) / 2
  TChart1.Repaint
End Sub

希望以上问答能够给您提供帮助，如果您有任何的疑惑或者建议都可以在评论区留言，我们会尽快回复。

相关资料推荐：

TeeChart Pro ActiveX连载教程>>

TeeChart Pro ActiveX更新内容板块>>

TeeChart Pro ActiveX已加入在线订购，现在抢购可立享特别优惠！！！

关注慧聚IT微信公众号☟☟☟，了解产品的最新动态及最新资讯。