________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Danke für die Hilfe

Gruß Christian

Public Class FilterForm
    Private _dgv As DataGridView
 
    Public Sub New(dgv As DataGridView)
        InitializeComponent()
        _dgv = dgv
 
        DGVF.EnableHeadersVisualStyles = False
        DGVF.AllowUserToAddRows = False
        DGVF.RowHeadersVisible = False
 
        For Each dgvc As DataGridViewColumn In _dgv.Columns
            Dim idx As Integer = DGVF.Columns.Add(dgvc.Name, dgvc.HeaderText)
 
            Dim dgvcf As DataGridViewColumn = DGVF.Columns(idx)
            dgvcf.SortMode = DataGridViewColumnSortMode.NotSortable
            If dgvc.Visible Then
                dgvcf.HeaderCell.Style.BackColor = Color.Green
            Else
                dgvcf.HeaderCell.Style.BackColor = Color.Red
            End If
        Next
    End Sub
 
    Private Sub DGVF_ColumnHeaderMouseClick(sender As Object, e As _
      DataGridViewCellMouseEventArgs) Handles DGVF.ColumnHeaderMouseClick
        Dim dgvc As DataGridViewColumn = _dgv.Columns(e.ColumnIndex)
        Dim dgvcf As DataGridViewColumn = DGVF.Columns(e.ColumnIndex)
        dgvc.Visible = Not dgvc.Visible
        If dgvc.Visible Then
            dgvcf.HeaderCell.Style.BackColor = Color.Green
        Else
            dgvcf.HeaderCell.Style.BackColor = Color.Red
        End If
    End Sub
End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Using filter As New FilterForm(DataGridView1)
            filter.ShowDialog()
        End Using
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Zitat:

Ich würde ein DGV nehmen und die Headers als Schalter benutzen. (Ähnlich kann man ein DGV bequem benutzen um auch die Rows zu filtern, indem man in die entsprechende Spalte einen Ausdruck eintippt).

    Private Sub FilterForm_FormClosing(sender As Object, e As _
      FormClosingEventArgs) Handles Me.FormClosing
        For idx As Integer = 0 To _dgv.Columns.Count - 1
            Dim dgvcf As DataGridViewColumn = DGVF.Columns(idx)
            Debug.WriteLine(DGVF.Rows(0).Cells(dgvcf.Name).Value)
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Danke für die Hilfe

Gruß Christian

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist