X2021/Wardrobe/GUI/Export.vb

Public Class Export
    Private Sub CheckBox_3DModel_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_3DModel.CheckedChanged
        If User_Input.add3DGrating = True Then
            User_Input.add3DGrating = False
            CheckBox_3DModel_SW.Visible = False
            CheckBox_3DModel_STEP.Visible = False
        Else
            User_Input.add3DGrating = True
            CheckBox_3DModel_SW.Visible = True
            CheckBox_3DModel_STEP.Visible = True
        End If
    End Sub

    Private Sub CheckBox_3DModel_STEP_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_3DModel_STEP.CheckedChanged
        If User_Input.add3DStep = True Then
            User_Input.add3DStep = False
        Else
            User_Input.add3DStep = True
        End If
    End Sub

    Private Sub CheckBox_GratingDrawing_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_GratingDrawing.CheckedChanged
        If User_Input.addGratingDrawing = True Then
            User_Input.addGratingDrawing = False
        Else
            User_Input.addGratingDrawing = True
        End If
    End Sub

    Private Sub CheckBox_FrameDrawing_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_FrameDrawing.CheckedChanged
        If User_Input.addFrameDrawing = True Then
            User_Input.addFrameDrawing = False
        Else
            User_Input.addFrameDrawing = True
        End If
    End Sub

    Private Sub CheckBox_Instructions_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_Instructions.CheckedChanged
        If User_Input.addInstructions = True Then
            User_Input.addInstructions = False
        Else
            User_Input.addInstructions = True
        End If
    End Sub

    Private Sub CheckBox_Quote_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox_Quote.CheckedChanged
        If User_Input.addQuote = True Then
            User_Input.addQuote = False
        Else
            User_Input.addQuote = True
        End If
    End Sub

    ' ---------------------------------- Export Button ----------------------------------
    Private Sub Button_Export_SW_Click(sender As Object, e As EventArgs) Handles PictureBox_Export.Click
        If AppForm.fillMode Then
            Calculate_Fill_Grid.Calculate_Grid()

            Dim frameCreated As Boolean = False
            If User_Input.add3DGrating = True Then
                Multiple_3D.BuildGrid()
                frameCreated = True
            End If

            Dim simplifiedCreated As Boolean = False
            If User_Input.addGratingDrawing = True Then
                Multiple_3D_Simplified.Build_Grid(False)
                simplifiedCreated = True
                Multiple_Drawing.Generate_Drawing()
            End If

            Dim simplifiedWithFrameCreated As Boolean = False
            If User_Input.addFrameDrawing = True Then
                If frameCreated = False Then
                    Multiple_3D_Simplified.Build_Grid(True)
                    simplifiedWithFrameCreated = True
                End If
                For Each DR As DataRow In Frame_3D.frameDT.Rows
                    If DR("TYPE") = "SIDE" Then
                        Frame_3D.Generate_End_Frame_Pieces()
                        Frame_Drawing.Create_Assemblies(simplifiedWithFrameCreated)
                        Frame_Drawing.Generate_Drawings()
                        Exit For
                    End If
                Next
            End If

            If User_Input.addInstructions = True Then
                If User_Input.addFrame = True AndAlso simplifiedWithFrameCreated = False Then
                    Multiple_3D_Simplified.Build_Grid(True)
                ElseIf simplifiedWithFrameCreated = False Then
                    Multiple_3D_Simplified.Build_Grid(False)
                    simplifiedCreated = True
                End If
                If simplifiedCreated = False Then
                    Multiple_3D_Simplified.Build_Grid(False)
                End If
                Instructions.Generate_Instructions(User_Input.addFrame)
            End If
        Else

            Dim frameCreated As Boolean = False
            If User_Input.add3DGrating = True Then
                Individual_3D.BuildGrating()
                frameCreated = True
            End If

            If User_Input.addGratingDrawing = True Then
                Individual_Drawing.Generate_Drawing()
            End If

            Dim simplifiedWithFrameCreated As Boolean = False
            If User_Input.addFrameDrawing = True Then
                If frameCreated = False Then
                    Individual_3D_Simplified.Build_Simplified(True)
                    simplifiedWithFrameCreated = True
                End If
                For Each DR As DataRow In Frame_3D.frameDT.Rows
                    If DR("TYPE") = "SIDE" Then
                        Frame_3D.Generate_End_Frame_Pieces()
                        Frame_Drawing.Create_Assemblies(simplifiedWithFrameCreated)
                        Frame_Drawing.Generate_Drawings()
                        Exit For
                    End If
                Next
            End If

            Dim simplifiedCreated As Boolean = False
            If User_Input.addInstructions = True Then
                If User_Input.addFrame = True AndAlso simplifiedWithFrameCreated = False Then
                    Individual_3D_Simplified.Build_Simplified(True)
                ElseIf simplifiedWithFrameCreated = False Then
                    Individual_3D_Simplified.Build_Simplified(False)
                    simplifiedCreated = True
                End If
                If simplifiedCreated = False Then
                    Multiple_3D_Simplified.Build_Grid(False)
                End If
                Instructions.Generate_Instructions(User_Input.addFrame)
            End If
        End If

        If User_Input.addQuote = True Then
            GUI_Export.Generate_Quote()
        End If

        Me.Close()
    End Sub
    Private Sub PictureBox_Export_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox_Export.MouseEnter
        PictureBox_Export.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Export2_01
        PictureBox_Export.Cursor = Cursors.Hand
    End Sub
    Private Sub PictureBox_Export_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox_Export.MouseLeave
        PictureBox_Export.BackgroundImage = Global.Wardrobe.My.Resources.Resources.Icon_Export1_01
        PictureBox_Export.Cursor = Cursors.Default
    End Sub


End Class