Techart + Paging 和 Scroll 一起答案

【问题标题】：Teechart + Paging and Scroll togetherTechart + Paging 和 Scroll 一起
【发布时间】：2013-10-02 06:37:05
【问题描述】：

我可以同时使用分页和滚动轴工具吗，因为一旦我们进行滚动，然后尝试使用页码工具执行下一页或上一页，它就不起作用了。

谢谢阿克谢

【问题讨论】：

【解决方案1】：

我不确定您使用的是什么 TeeChart ActiveX 版本，也不确定您使用的是什么工具。

使用 TeeChart v2013.0.1.1 我可以将tcAxisScroll 工具链接到底部轴，我仍然可以使用鼠标右键拖动图表（默认功能）并使用鼠标左键拖动底部轴（tcAxisScroll 工具）：

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

  TChart1.AddSeries scLine
  TChart1.Series(0).FillSampleValues 100

  TChart1.Axis.Bottom.SetMinMax 0, 20

  TChart1.Tools.Add tcAxisScroll
  TChart1.Tools.Items(0).asAxisScroll.Axis = TChart1.Axis.Bottom
End Sub

另一方面，您可能将分页功能与tcPageNumber 工具结合使用。在这种情况下，您是对的，恐怕分页功能并未与默认的拖动滚动功能一起使用。

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

  TChart1.AddSeries scLine
  TChart1.Series(0).FillSampleValues 100

  TChart1.Page.MaxPointsPerPage = 20
  TChart1.Tools.Add tcPageNumber
End Sub

正如您所说，只要您拖动图表进行滚动，tcPageNumber 工具就会停止工作。这是因为拖动图表会更改轴范围，并且该工具仅在您未更改比例时才有效。因此，您可以在 OnPageChange 事件中轻松修复它，在按下工具后立即强制轴为自动：

Private Sub TChart1_OnPageChange()
  TChart1.Axis.Bottom.Automatic = True
End Sub

【讨论】：