activex - ティーチャート ズームインおよびズームアウト ボタン

Question

TCHART のズームを使用しています。このアプリケーションには、ユーザーが Zoom と UndoZoom を実行できる Next ボタンと Prev ボタンがあります。この2つのボタンをクリックすると、ズームおよびズーム解除イベントを発生させる方法を教えてください

Answer 1

イベント メソッドを直接呼び出すことも (以下のコードを参照)、イベントを発生させる呼び出しを使用することもできます (以下のコメント付きコードを参照)。

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