0

Series の 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 に答える