BeforeTransform example

Example for BeforeTransform event

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Dim h() As Integer
    Dim TransArr33(3, 3) As Single
    TransArr33(1, 1) = 1
    TransArr33(2, 2) = 1
    TransArr33(3, 3) = 1
    If cAvax1.GetAllHandlesArr(h) > 0 Then
        TransArr33(3, 1) = 5
        TransArr33(3, 2) = 3
        Call cAvax1.TransformItems(h, TransArr33)
    End If
End Sub

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, 12, 0, 0)
    Call cAvax1.Add_Line(1, 1, 0, 12, 0, 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 CAvax1_BeforeTransform(ByVal Sender As Object, ByVal e As Avax.cAvax.BeforeTransformEventArgs) Handles CAvax1.BeforeTransform
    If MsgBox("Do you want to transform the objects", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "Event BeforeCopy") = MsgBoxResult.No Then
        e.fCancel = True
    End If
End Sub