GetShapezOrder example

Example for GetShapezOrder method

Dim hShape As Integer

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Command1.Text = "GetShapezOrder"
    cAvax1.StartAvax()
    Call AddShape()
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
    MsgBox("zOrder=" & cAvax1.GetShapezOrder(hShape), MsgBoxStyle.Information, "GetShapezOrder")
End Sub

Sub AddShape()
    Dim xV() As Single
    Dim yV() As Single
    Dim zV() As Single
    Dim vItemProperties As Object
    Dim Fill_iType As Byte
    Dim Fill_lHatchIndex As Integer
    Dim Fill_iInForeColor As Short
    Dim Fill_iInBackColor As Short
    Dim Fill_sPattern As String
    Dim Fill_zOrder As Integer
    Dim Fill_lFlags As Integer
    Dim iClr As Short
    Dim iWidth As Short
    Dim iStyle As Short
    Dim iLayer As Short
    Dim PolylineType As Avax.AvaxPolylineType
    ReDim xV(5)
    ReDim yV(5)
    ReDim zV(5)
    xV(1) = 2
    yV(1) = 2
    xV(2) = 2
    yV(2) = 12
    xV(3) = 12
    yV(3) = 12
    xV(4) = 12
    yV(4) = 2
    xV(5) = 10
    yV(5) = -1
    Fill_iType = Avax.AvaxFillType.Pattern_f
    Fill_lHatchIndex = 2
    iClr = 1
    iWidth = 2
    Fill_iInBackColor = 4
    '---
    Fill_zOrder = 15
    '---
    hShape = cAvax1.Add_Shape(xV, yV, zV, vItemProperties, Fill_iType, Fill_lHatchIndex, Fill_iInForeColor, Fill_iInBackColor, Fill_sPattern, Fill_zOrder, Fill_lFlags, iClr, iWidth, iStyle, iLayer, PolylineType)
End Sub