TeeChart中的访问违规

Question

下面的代码违反了访问权限。有人能帮我吗。

for(long i = nTools-1; i > 0 ; i--)
{
    if(m_spGraph.GetTools().GetItems(i).GetToolType() == 25 && m_spGraph.GetTools().GetItems(i).GetAsRectangle().GetAllowDrag() == TRUE)  // Rectangle tool
    {
        m_spGraph.GetTools().Delete(i);
    }
}

谢谢Akshay

Answer 1

在VB6中，如果我运行它，然后打开一个编辑器，我会看到5个矩形工具和5个注释工具：

  TChart1.AddSeries scBar
  TChart1.Series(0).FillSampleValues 8
  Dim i As Integer
  For i = 0 To 9
    If (i Mod 2 = 0) Then
      TChart1.Tools.Add tcRectangle
    Else
      TChart1.Tools.Add tcAnnotate
    End If
  Next i

然后，如果我运行这个并在它之后再次打开编辑器，我只看到5个Annotation工具：

  For i = TChart1.Tools.Count - 1 To 0 Step -1
    If (TChart1.Tools.Items(i).ToolType = 25 And TChart1.Tools.Items(i).asRectangle.AllowDrag) Then
      TChart1.Tools.Delete i
    End If
  Next i

所以这对我来说似乎很好
你在不同的TeeChart ActiveX版本中尝试过吗？你对每一个都获得了不同的结果吗？

请编辑您的问题，添加SSCCE，这样我们就可以在这里重现问题，并尝试弄清楚您的代码或组件中是否存在问题。