Series の LbuttonDown に円を描きたいです。私がやっていることは、DrawLine ツールを使用して、OnMouseDownTchart イベントに線を追加することです。しかし、問題は、スクロール軸を実行するとすぐに行が消えることです。
ありがとうございます
以下のコードで問題を再現しようとしていますが、ここではうまくいくようです。チャートをクリックするたびに、ランダムな位置に線が追加されます。また、マウスの右ボタンで同じようにドラッグしてチャートをスクロールすることもできます。
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」の意味がよくわかりません。