StretchItems example

Example for StretchItems 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, 3, 3, 0)
    Call cAvax1.Add_Line(0, 3, 0, 3, 3, 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 [Handles]() As Integer
    Dim xOldMin As Single
    Dim yOldMin As Single
    Dim xOldMax As Single
    Dim yOldMax As Single
    Dim xNewMin As Single
    Dim yNewMin As Single
    Dim xNewMax As Single
    Dim yNewMax As Single
    Dim z1, z2 As Single
    Dim Answer As Boolean
    Call cAvax1.CalcBoundsDrawing()
    Call cAvax1.GetBoundsDrawing(xOldMin, yOldMin, z1, xOldMax, yOldMax, z2)
    If CAvax1.GetAllHandlesArr([Handles]) > 0 Then
        xNewMin = xOldMin + 5
        yNewMin = yOldMin + 5
        xNewMax = xOldMax + 9
        yNewMax = yOldMax + 9
        Answer = CAvax1.StretchItems([Handles], xOldMin, yOldMin, xOldMax, yOldMax, xNewMin, yNewMin, xNewMax, yNewMax)
    End If
End Sub