0

我正在使用 TCHART 的缩放。在我们的应用程序中,我们有一个 Next 和 Prev 按钮,用户可以使用它来执行 Zoom 和 UndoZoom。你能告诉我如何在点击这两个按钮时触发缩放和取消缩放事件吗

4

1 回答 1

0

您可以直接调用偶数方法(参见下面的代码)或使用将触发事件的调用(参见下面的注释代码)。

Private Sub Command1_Click()
    TChart1_OnZoom
    'TChart1.Zoom.ZoomRect 0, 0, 100, 100
End Sub

Private Sub Command2_Click()
    TChart1_OnUndoZoom
    'TChart1.Zoom.Undo
End Sub

Private Sub TChart1_OnUndoZoom()
    TChart1.Header.Text.Clear
    TChart1.Header.Text.Add "Unzoom!"
End Sub

Private Sub TChart1_OnZoom()
    TChart1.Header.Text.Clear
    TChart1.Header.Text.Add "Zoom!"
End Sub
于 2013-09-02T12:07:43.027 回答