ChangeShapezOrder example

Example for ChangeShapezOrder method

Dim h1 As Integer
Dim h2 As Integer

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Dim zOrder As Integer
    Command1.Text = "ChangeShapezOrder"
    cAvax1.StartAvax()
    zOrder = 0
    h1 = CAvax1.Add_ShapeRectangle(0, 0, 12, 5, Nothing, 1, 1, 1, 1, "", zOrder, 0, -1, -1, -1, -1)
    zOrder = 1
    h2 = CAvax1.Add_ShapeRectangle(1, 1, 12, 5, Nothing, 1, 3, 1, 5, "", zOrder, 0, -1, -1, -1, -1)
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 zOrder As Integer
    zOrder = 1
    h1 = cAvax1.ChangeShapezOrder(h1, zOrder)
    zOrder = 0
    h2 = cAvax1.ChangeShapezOrder(h2, zOrder)
    Swap(h1, h2)
End Sub

Sub Swap(ByRef a As Integer, ByRef b As Integer)
    Dim c As Integer
    c = a
    a = b
    b = c
End Sub