0

我想在系列的 LbuttonDown 上画一个圆圈。我正在做的是我正在使用 DrawLine 工具并在 OnMouseDownTchart 事件上添加一条线。但问题是,一旦我滚动轴,这条线就会消失。

谢谢阿克谢

4

1 回答 1

1

我正在尝试使用下面的代码重现问题,但在这里对我来说似乎工作正常。每次单击图表时,它都会在随机位置添加一条线。而且我仍然可以用鼠标右键拖动相同的图表来滚动。

Private Sub Form_Load()
  TChart1.Aspect.View3D = False

  TChart1.AddSeries scPoint
  Dim i As Integer
  For i = 0 To 20
    TChart1.Series(0).Add i, "", clTeeColor
  Next i

  TChart1.Tools.Add tcDrawLine
  TChart1.Tools.Items(0).asDrawLine.EnableDraw = False
End Sub

Private Sub TChart1_OnMouseDown(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
  With TChart1.Tools.Items(0).asDrawLine
    .AddLine Rnd * 20, Rnd * 20, Rnd * 20, Rnd * 20
  End With
End Sub

我正在使用 TeeChart ActiveX v2013.0.1.0。

也许你正在做一些OnMouseDown与滚动动作相冲突的事情。

如果您仍然发现它有问题,请改进更具体的问题。一些代码会有所帮助。另外我不确定“LbuttonDown on Series”是什么意思。

于 2013-06-07T14:43:20.293 回答