我正在使用TCHART的缩放。在我们的应用程序中,我们有一个Next和Prev Button,用户可以使用它进行Zoom和UndoZoom。你能告诉我如何在点击这两个按钮时触发zoom和undozoom事件
答案 0 :(得分: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