GetAllNodes example

Example for GetAllNodes 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, 0, 0, 10, 10, 0)
    Call cAvax1.Add_Line(7, 10, 0, 10, 10, 0)
    Call cAvax1.Add_Line(7, 0, 0, 14, 5, 0)
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 x() As Single
    Dim y() As Single
    Dim i As Short
    Dim Answer As Boolean
    If cAvax1.GetAllNodes(x, y) = True Then
        For i = 1 To UBound(x)
            Text1.Text = Text1.Text & Str(x(i)) & vbCrLf
        Next i
        For i = 1 To UBound(y)
            Text2.Text = Text2.Text & Str(y(i)) & vbCrLf
        Next i
    End If
End Sub