GetEllipseGeometry example

Example for GetEllipseGeometry method

Dim avHandle As Integer

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Dim avHandles(1) As Integer
    Call CAvax1.StartAvax()
    avHandle = CAvax1.Add_Ellipse(10, 10, 0, 4, 2)
    avHandles(1) = avHandle
    CAvax1.RotateItems(avHandles, 12, 11, 20)
End Sub

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim cx As Single
    Dim cy As Single
    Dim aR As Single
    Dim bR As Single
    Dim dAngle As Single
    Dim Answer as Boolean
    Answer = CAvax1.GetEllipseGeometry(avHandle, cx, cy, aR, bR, dAngle)
    MsgBox("cx=" & cx & Environment.NewLine & "cy=" & cy & Environment.NewLine & "aR=" & aR & Environment.NewLine & "bR=" & bR & Environment.NewLine & "Angle=" & dAngle)
End Sub