VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DS_Form 
   Caption         =   "Daten splitten"
   ClientHeight    =   5580
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5490
   OleObjectBlob   =   "DS_Form.frm.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "DS_Form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub CancelBT_Click()
    DS_Form.Hide
    End
End Sub

Private Sub EingabeCB_Change()
    If EingabeCB.Text = "aktuelles Part" Then
        SelektionTB.Visible = False
        SelektionBT.Visible = False
        PartBox.Value = True
        ProduktBox.Value = True
    End If
    If EingabeCB.Text = "anderes CATPart wählen" Then
        SelektionTB.Visible = True
        SelektionBT.Visible = True
        PartBox.Value = False
        ProduktBox.Value = False
    End If
    If EingabeCB.Text = "alle CATParts aus Ordner wählen" Then
        SelektionTB.Visible = True
        SelektionBT.Visible = True
        PartBox.Value = False
        ProduktBox.Value = False
    End If
End Sub



Private Sub Label6_Click()

End Sub

Sub OkBT_Click()
    MaxGroesse = MaxGroesseTB.Text
    
    If EingabeCB.Text = "anderes CATPart wählen" Then
        EinFormat = "gewaehltPart"
        DateiName = SelektionTB.Text
    ElseIf EingabeCB.Text = "alle CATParts aus Ordner wählen" Then
        EinFormat = "gewaehltOrdner"
        OrdnerName = SelektionTB.Text
    Else
        EinFormat = "aktuellPart"
        AusgabeText = EingabeCB.Text
    End If
    
    If AusgabeCB.Text = "CATIA V4 - model" Then
        AusFormat = "V4"
    Else
        AusFormat = "V5"
    End If
    
    If KoerperBox.Value = True Then
        Leerkoerper = 1
    Else
        Leerkoerper = 0
    End If
    
    If ProduktBox.Value = True Then
        ProduktOffen = 1
    Else
        ProduktOffen = 0
    End If
    
    If PartBox.Value = True Then
        PartOffen = 1
    Else
        PartOffen = 0
    End If
    
    DS_Form.Hide
End Sub

Sub SelektionBT_Click()
    Dim DateiName As String
    Dim OrdnerName As String
    
    If EingabeCB.Text = "anderes CATPart wählen" Then
        DateiName = CATIA.FileSelectionBox("Datei wählen", "*.CATPart", CatFileSelectionModeOpen)
        If DateiName = "" Then
            End
        End If
        SelektionTB.Text = DateiName
    End If
    
    If EingabeCB.Text = "alle CATParts aus Ordner wählen" Then
        Dim Shell As Object
        Set Shell = CreateObject("Shell.Application")
        OrdnerName = Shell.BrowseForFolder(0, "Wählen Sie", 0).Self.Path
        SelektionTB.Text = OrdnerName
    End If
        
End Sub

Private Sub UserForm_Initialize()

    With AusgabeCB
        .AddItem "CATIA V5 - CATPart"
        .AddItem "CATIA V4 - model"
        .Value = "CATIA V5 - CATPart"
     End With
    
    With EingabeCB
        .AddItem "aktuelles Part"
        .AddItem "anderes CATPart wählen"
        .AddItem "alle CATParts aus Ordner wählen"
        .Value = "aktuelles Part"
     End With
    
    With SelektionTB
        .Value = ""
    End With
     
    With ProduktBox
        .Value = True
    End With
    
    With PartBox
        .Value = True
    End With
    
    With KoerperBox
        .Value = False
    End With
     
End Sub