SetLayers example

Example for SetLayers 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, 10, 0, 10, 10, 0)
    Call CAvax1.Add_Line(0, 0, 0, 10, 10, 0, Nothing, -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 sLayerNames() As String
    Dim iLayerStatus() As Short
    Dim Answer As Boolean
    Call cAvax1.GetLayers(sLayerNames, iLayerStatus)
    sLayerNames(1) = "Layer 1"
    iLayerStatus(1) = 1
    Answer = cAvax1.SetLayers(sLayerNames, iLayerStatus)
    Call cAvax1.GetLayers(sLayerNames, iLayerStatus)
    MsgBox(sLayerNames(1) & " is not visible")
    iLayerStatus(1) = 0
    Answer = cAvax1.SetLayers(sLayerNames, iLayerStatus)
    MsgBox(sLayerNames(1) & " is visible")
End Sub