Imports C1.Win.C1TrueDBGrid
Public Class FrmGridSpalten

    Dim c1daten As New C1TrueDBGrid

    Sub New(ByRef c1daten As C1TrueDBGrid)

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
        Me.c1daten = c1daten

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    End Sub
    Private Sub FrmGridSpalten_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        load_columns()
    End Sub
    Private Sub load_columns()
        Me.lbVorhandeneSpalten.Items.Clear()
        Me.lbVerwendeteSpalten.Items.Clear()
        Dim i As Integer = 0
        For i = 0 To Me.c1daten.Splits(0).DisplayColumns.Count - 1
            If Me.c1daten.Splits(0).DisplayColumns(i).Width = 0 Then
                Me.lbVorhandeneSpalten.Items.Add(Me.c1daten.Splits(0).DisplayColumns(i).Name)
            Else
                Me.lbVerwendeteSpalten.Items.Add(Me.c1daten.Splits(0).DisplayColumns(i).Name)
            End If
        Next

    End Sub
    Private Sub lbVerwendeteSpalten_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbVerwendeteSpalten.DoubleClick
        Dim i As Integer
        For i = 0 To Me.lbVerwendeteSpalten.SelectedItems.Count - 1
            Me.lbVorhandeneSpalten.Items.Add(Me.lbVerwendeteSpalten.SelectedItems(i))
            'Me.c1daten.Splits(0).DisplayColumns(Me.lbVerwendeteSpalten.SelectedItems(i)).with = 0
            Dim xx As Integer = 0
            For xx = 0 To Me.c1daten.Splits(0).DisplayColumns.Count - 1
                If Me.c1daten.Splits(0).DisplayColumns(xx).Name = Me.lbVerwendeteSpalten.SelectedItems(i) Then
                    Me.c1daten.Splits(0).DisplayColumns(xx).Width = 0
                    Exit For
                End If
            Next

        Next
        For i = 0 To Me.lbVerwendeteSpalten.SelectedItems.Count - 1
            Me.lbVerwendeteSpalten.Items.Remove(Me.lbVerwendeteSpalten.SelectedItems(0))
        Next
        load_columns()

    End Sub

    Private Sub lbVorhandeneSpalten_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbVorhandeneSpalten.DoubleClick
        Dim i As Integer
        For i = 0 To Me.lbVorhandeneSpalten.SelectedItems.Count - 1
            Me.lbVerwendeteSpalten.Items.Add(Me.lbVorhandeneSpalten.SelectedItems(i))
            Dim xx As Integer = 0
            For xx = 0 To Me.c1daten.Splits(0).DisplayColumns.Count - 1
                If Me.c1daten.Splits(0).DisplayColumns(xx).Name = Me.lbVorhandeneSpalten.SelectedItems(i) Then
                    Me.c1daten.Splits(0).DisplayColumns(xx).Width = 75
                    Exit For
                End If
            Next
        Next
        For i = 0 To Me.lbVorhandeneSpalten.SelectedItems.Count - 1
            Me.lbVorhandeneSpalten.Items.Remove(Me.lbVorhandeneSpalten.SelectedItems(0))
        Next
        load_columns()

    End Sub

    Private Sub btnUnselectColumn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnselectColumn.Click
        Me.lbVorhandeneSpalten_DoubleClick(sender, e)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.lbVerwendeteSpalten_DoubleClick(sender, e)
    End Sub
End Class