三通管放大和缩小按钮

Question

我正在使用TCHART的缩放。在我们的应用程序中，我们有一个"下一个"one_answers"上一个"按钮，用户可以使用它进行缩放和撤消缩放。你能告诉我如何在点击这两个按钮时触发缩放和取消缩放事件吗？

Answer 1

您可以直接调用even方法（请参阅下面的代码），也可以使用将触发事件的调用（请参阅后面注释的代码）。

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