SetExternalLines example

Example for SetExternalLines event

Dim x1_Map() As Single
Dim y1_Map() As Single
Dim z1_Map() As Single
Dim x2_Map() As Single
Dim y2_Map() As Single
Dim z2_Map() As Single

Sub ReadMapData()
    Dim lMax As Integer
    Dim iFr As Short
    Static once As Short
    If once = 0 Then
        iFr = FreeFile
        FileOpen(iFr, My.Application.Info.DirectoryPath & "\..\map.dat", OpenMode.Binary)
        FileGet(iFr, lMax)
        ReDim x1_Map(lMax)
        ReDim y1_Map(lMax)
        ReDim z1_Map(lMax)
        ReDim x2_Map(lMax)
        ReDim y2_Map(lMax)
        ReDim z2_Map(lMax)
        FileGet(iFr, x1_Map)
        FileGet(iFr, y1_Map)
        FileGet(iFr, x2_Map)
        FileGet(iFr, y2_Map)
        FileClose(iFr)
        once = 1
    End If
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Call ReadMapData()
    Call cAvax1.Add_ExternalLines("My Map")
    CAvax1.Command = Avax.AvaxCommand.AutoLimits_c
End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Command1.Text = "Add_ExternalLines"
    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 CAvax1_SetExternalLines(ByVal Sender As Object, ByVal e As Avax.cAvax.SetExternalLinesEventArgs) Handles CAvax1.SetExternalLines
    Select Case e.sName
    Case "My Map"
        e.x1 = x1_Map
        e.y1 = y1_Map
        e.z1 = z1_Map
        e.x2 = x2_Map
        e.y2 = y2_Map
        e.z2 = z2_Map
    End Select
End Sub