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

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

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

最新TeeChart Pro ActiveX试用版

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

还有其他办法做到这一点吗/span>

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

Dim XPos, YVal1, YVal2 As DoublePrivate 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 = -1End SubFunction InterpolateSeries(ByVal SeriesIndex As Long, ByVal XValue As Double) As Double    InterpolateSeries = InterpolateLineSeries(SeriesIndex, TChart1.Series(SeriesIndex).FirstValueIndex, TChart1.Series(SeriesIndex).LastValueIndex, XValue)End FunctionFunction 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 IfEnd FunctionPrivate 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 WithEnd SubPrivate 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.RepaintEnd Sub

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

相关资料推荐：

TeeChart Pro ActiveX连载教程>>

TeeChart Pro ActiveX更新内容板块>>

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

标签：图表图表控件teechart工业4.0