You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
3.3 KiB
77 lines
3.3 KiB
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 |