GetLayers example

Example for GetLayers method

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
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 sLayerNames() As String
    Dim iLayerStatus() As Short
    Dim Answer As Short
    Dim iCnt As Short
    Dim s1 As String
    Answer = cAvax1.GetLayers(sLayerNames, iLayerStatus)
    For iCnt = 1 To Answer
        If sLayerNames(iCnt - 1) = "" Then sLayerNames(iCnt - 1) = Format(iCnt - 1)
        If iLayerStatus(iCnt - 1) = 0 Then s1 = "Visible" Else s1 = "Not visible"
        List1.Items.Add(sLayerNames(iCnt - 1) & "/" & s1)
    Next iCnt
End Sub