GetBoundsZoom example

Example for GetBoundsZoom method

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
    Call cAvax1.Add_Line(0, 0, 0, 10, 10, 0)
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    cAvax1.EndAvax()
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Dim zxMin As Single
    Dim zyMin As Single
    Dim zxMax As Single
    Dim zyMax As Single
    Dim Answer As Boolean
    Dim txt As String
    Answer = cAvax1.GetBoundsZoom(zxMin, zyMin, zxMax, zyMax)
    txt = "Xmin =" & Str(zxMin) & vbCr & vbLf
    txt = txt & "Xmax =" & Str(zxMax) & vbCr & vbLf
    txt = txt & "Ymin =" & Str(zyMin) & vbCr & vbLf
    txt = txt & "Ymax =" & Str(zyMax) & vbCr & vbLf
    Text1.Text = txt
End Sub

Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
    CAvax1.Command = Avax.AvaxCommand.Previous_c
End Sub

Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
    CAvax1.Command = Avax.AvaxCommand.Zoom_c
End Sub