CheckedListView anzeige Column.Headertext, aber Column.Name auslesen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von tragl.

    CheckedListView anzeige Column.Headertext, aber Column.Name auslesen

    Hallo zusammen.

    Ich lasse mir für einen Excel-Export eine CheckedListView basteln, worin die ColumnHeaders zur Auswahl angezeigt werden.
    Die Headers sind ja "lesefreundlich" und können durchaus (je nach Anwendungsfall) auch mal mehrfach vorkommen. Dann gibt's
    beim Export natürlich Müll...

    Also wollte ich nun gerne, dass nach wie vor der Headertext in der CheckedListbox erscheint, jedoch die DataGridViewColumn ansich ausgelesen wird.
    Leider gibt's keinen "versteckten Namen", den ich der Listbox mitgeben kann.

    Hat jemand eine Idee?
    Aktuell mache ich das so (für den Headertext):

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ''' <summary> Stellt einen Dialog zur Auswahl des Inhalts eins DGV zum Export oder Kopieren bereit. </summary>
    2. <Extension>
    3. Public Sub copyExportSelection(dgv As DataGridView, excel As Boolean, Optional orderBy As String = Nothing)
    4. Using dlg As New dlgDGVcopyExport
    5. Dim listbox = dlg.chkLbSpalten
    6. For Each col As DataGridViewColumn In dgv.Columns
    7. If col.Visible Then
    8. listbox.Items.Add(col.HeaderText)
    9. End If
    10. Next
    11. For i = 0 To listbox.Items.Count - 1
    12. listbox.SetItemChecked(i, True) 'alle Items auf Checked setzen
    13. Next
    14. If dlg.ShowDialog <> DialogResult.OK Then Return
    15. Dim lstCol As New List(Of String)
    16. For Each chkItm In listbox.CheckedItems
    17. lstCol.Add(chkItm.ToString)
    18. Next
    19. Select Case True
    20. Case dlg._Selection = "all"
    21. If excel Then
    22. exportSelectionToExcel(dgv, "Export", lstCol, dlg._header)
    23. Else
    24. copySelectionToClipboard(dgv, lstCol, dlg._header)
    25. End If
    26. Case dlg._Selection = "marked"
    27. Dim lstRow = (From rw In dgv.SelectedRows.Cast(Of DataGridViewRow)() Order By rw.Index).ToList
    28. If excel Then
    29. exportSelectionToExcel(dgv, "Export", lstCol, dlg._header, lstRow)
    30. Else
    31. copySelectionToClipboard(dgv, lstCol, dlg._header, lstRow)
    32. End If
    33. End Select
    34. End Using
    35. End Sub

    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „tragl“ ()

    tragl schrieb:

    Also wollte ich nun gerne, dass nach wie vor der Headertext in der CheckedListbox erscheint, jedoch die DataGridViewColumn ansich ausgelesen wird.
    Klarer Fall für Databinding.
    Bastel eine kleine Klasse mit zwei Properties.
    Füll eine List(Of ) damit ab, binde per Code die chkListbox dran, unter Angabe von DisplayMember.
    Ich glaub mit den CheckedItems kriegste dann deine Objekte wieder.
    (Probiert habichs nicht - ich mach sowas lieber mit dgv)

    @ErfinderDesRades
    Danke für den Hinweis, find ich sehr umständlich - dachte das ging einfacher.
    Hab's an anderer Stelle nun probiert und klappt:

    VB.NET-Quellcode

    1. Private Class dgvCols
    2. Private colName As String
    3. Private colHeadertext As String
    4. Property name As String
    5. Get
    6. Return colName
    7. End Get
    8. Set(value As String)
    9. colName = value
    10. End Set
    11. End Property
    12. Property headertext As String
    13. Get
    14. Return colHeadertext
    15. End Get
    16. Set(value As String)
    17. colHeadertext = value
    18. End Set
    19. End Property
    20. End Class


    VB.NET-Quellcode

    1. ''' <summary> Stellt dem User ein DLG zur Verfügung, worin er auswählen kann welche DGV-Columns ihm angezeigt werden sollen.
    2. ''' Diese Auswahl wird in der Datenbank persistiert und beim nächsten Öffnen abgerufen </summary>
    3. Private Sub setCols(dgv As DataGridView, rwAppSettings As AppSettingsRow)
    4. Using dlg As New dlgChkLb
    5. Dim lb = dlg.chkLb
    6. Dim lstCol As New List(Of dgvCols)
    7. Dim selectedColNames As New List(Of String)
    8. Dim lstAdminCols = getDefaultAdminCols(dgv)
    9. For Each col As DataGridViewColumn In dgv.Columns
    10. If _uAdmin Then
    11. lstCol.Add(New dgvCols With {.name = col.Name, .headertext = col.HeaderText})
    12. Else
    13. If Not lstAdminCols.Any(Function(x) x.Equals(col.Name)) Then lstCol.Add(New dgvCols With {.name = col.Name, .headertext = col.HeaderText})
    14. End If
    15. Next
    16. lb.DataSource = lstCol
    17. lb.DisplayMember = "headertext"
    18. lb.ValueMember = "name"
    20. If Not rwAppSettings.strSetting = "" Then
    21. For Each colName In getColList(rwAppSettings)
    22. For i = 0 To lb.Items.Count - 1
    23. Dim itm = DirectCast(lb.Items(i), dgvCols)
    24. If itm.name = colName Then
    25. lb.SetItemChecked(i, True)
    26. End If
    27. Next
    28. Next
    29. End If
    31. If dlg.ShowDialog <> DialogResult.OK Then Return
    33. For Each itm In lb.CheckedItems
    34. selectedColNames.Add($"{DirectCast(itm, dgvCols).name}")
    35. Next
    36. rwAppSettings.strSetting = buildColString(selectedColNames)
    37. dgv.showSelectedCols(selectedColNames)
    38. End Using
    39. End Sub
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Ich find das nicht soo übertrieben. Natürlich kann man vieles eleganter formulieren, aber viel zu tun macht eben viel Code.
    Eine starke Vereinfachung aber:

    VB.NET-Quellcode

    1. Private Class dgvCols
    2. Property name As String
    3. Property headertext As String
    4. End Class
    Dieses Sprach-Feature heisst "AutoProperty".
    (Ich würd die Klasse übrigens singular benamen - ein Objekt davon stellt ja nur eine Dgv-Column dar /Klugsch...)

    Die längere Methode habich jetzt auch bisserl eingedampft:

    VB.NET-Quellcode

    1. ''' <summary> Stellt dem User ein DLG zur Verfügung, worin er auswählen kann welche DGV-Columns ihm angezeigt werden sollen.
    2. ''' Diese Auswahl wird in der Datenbank persistiert und beim nächsten Öffnen abgerufen </summary>
    3. Private Sub setCols(dgv As DataGridView, rwAppSettings As AppSettingsRow)
    4. Using dlg As New dlgChkLb
    5. Dim lb = dlg.chkLb
    6. Dim lstCol As New List(Of dgvCols)
    7. Dim selectedColNames As New List(Of String)
    8. Dim lstAdminCols = getDefaultAdminCols(dgv)
    9. For Each col As DataGridViewColumn In dgv.Columns
    10. If Not _uAdmin AndAlso lstAdminCols.Contains(col.Name) Then Continue For
    11. lstCol.Add(New dgvCols With {.Name = col.Name, .headertext = col.HeaderText})
    12. Next
    13. lb.DataSource = lstCol
    14. lb.DisplayMember = "headertext"
    15. lb.ValueMember = "name"
    17. For Each colName In getColList(rwAppSettings)
    18. For i = 0 To lb.Items.Count - 1
    19. If DirectCast(lb.Items(i), dgvCols).name = colName Then lb.SetItemChecked(i, true)
    20. Next
    21. Next
    22. If dlg.ShowDialog <> DialogResult.OK Then Return
    24. For Each itm In lb.CheckedItems
    25. selectedColNames.Add($"{DirectCast(itm, dgvCols).name}")
    26. Next
    27. rwAppSettings.strSetting = buildColString(selectedColNames)
    28. dgv.showSelectedCols(selectedColNames)
    29. End Using
    30. End Sub
    Eine erforderliche Anpassung dafür ist, getColList(rwAppSettings) so zu gestalten, dass es statt auf einen Fehler zu laufen einfach eine Leere Liste returnt, wenn rwAppSettings leer ist.

    @ErfinderDesRades
    Ja sieht sehr gut aus. Du hast mir mit Contains auch wieder unbewusst einen Hinweis gegeben, dass ich mir
    .Any(Function(x)x. bla bla) sparen kann - Contains ist hier wesentlich kürzer :)

    Ich hab die Methode aber nochmal komplett geändert, weil ich mit eingebaut hab, dass auch die Col-Widths mit persistiert und
    beim Aufruf der Form mit restored werden.

    Allerdings hab ich da grad das Problem, dass die Cols trotzdem in Standardbreite angezeigt werden (DGV steht auf dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None)
    Also Form öffnen, verändern einer Breite eines Cols und Form schließen -> Wert wird korrekt gespeichert.
    Form erneut öffnen, Col hat wieder ihre Standardbreite -> Wert wurde mit dem Standardwert überschrieben ?(

    Ich geh davon aus, dass da beim Öffnen der Form der Wert über irgendein Event überschrieben wird.
    Hast du eine Idee, welches Event mir da einen Strich durch die Rechnung macht?

    Hier mal der komplette Kauderwelsch:

    Beim öffnen der Form in Form_Load wird folgendes aufgerufen: dgv.GetSetDgvColumnSettings(False, Me) <- ruft die vom User gewünschten sichtbaren Spalten auf und soll hier
    natürlich auch die Widths wiederherstellen -> tut er aktuell nicht

    Ändert man die Spalten-Anzeige (über Kontextmenu): dgv.GetSetDgvColumnSettings(True, Me)

    Beim schließen der Form: dgv.GetSetDgvColumnSettings(False, Me) <- hier werden dann u.A. auch die Col-Widths gespeichert

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ''' <summary> prüft, ob eine Einstellung zur Anzeige der DGV-Columns vorhanden ist. Falls nicht, wird ein Default-Eintrag mit allen Columns erstellt. Außerdem kann
    2. ''' ist useHeaderText True, wird Column.Headertext anstelle Column.Name genutzt
    3. ''' ist setCol True, wird dem User ein DLG zur Auswahl der sichtbaren Columns angezeigt </summary>
    4. <Extension>
    5. Public Sub GetSetDgvColumnSettings(dgv As DataGridView, setCol As Boolean, frm As Form, Optional additionalInfo As String = Nothing)
    6. Dim settingName = $"dgvColSettings_{dgv.Name}_{frm.Name}_{_user}"
    7. Dim settingNameOriginCols = $"dgvColSettingsOrigin_{dgv.Name}_{frm.Name}_{_user}"
    8. If additionalInfo IsNot Nothing Then
    9. settingName = $"dgvColSettings_{dgv.Name}_{frm.Name}_{additionalInfo}_{_user}"
    10. settingNameOriginCols = $"dgvColSettingsOrigin_{dgv.Name}_{frm.Name}_{additionalInfo}_{_user}"
    11. End If
    12. Dim rwAppSettingsOriginCols = getAppSettingsRow(settingNameOriginCols)
    13. If rwAppSettingsOriginCols Is Nothing Then rwAppSettingsOriginCols = Dts.AppSettings.AddAppSettingsRow(getUserRow, settingNameOriginCols, buildColString(getActualDgvCols(dgv)), 0, 0, 0, _defaultDate)
    14. Dim rwAppSettings = getAppSettingsRow(settingName)
    15. If rwAppSettings Is Nothing Then
    16. rwAppSettings = Dts.AppSettings.AddAppSettingsRow(getUserRow, settingName, buildColString(getActualDgvCols(dgv)), 0, 0, 0, _defaultDate)
    17. dgv.setSelectedCols(getColList(rwAppSettings))
    18. Else
    19. compare(dgv, rwAppSettingsOriginCols, rwAppSettings)
    20. If setCol Then
    21. ShowColSelectionDlg(dgv, rwAppSettings)
    22. Else
    23. dgv.setSelectedCols(getColList(rwAppSettings))
    24. End If
    25. End If
    26. Dts.SaveDtsWithoutBusyDlg()
    27. End Sub
    29. ''' <summary> Vergleicht gespeicherte Settings mit aktuellen Daten eines DGV und berücksichtigt
    30. ''' dabei die vom User gewählten sichtbaren Columns. Nicht mehr vorhandene Columns werden entfernt, neu hinzugefügte
    31. ''' werden dem User automatisch angezeigt. Col-Widths werden abgeglichen und bei Änderung mit geupdatet. </summary>
    32. Private Sub compare(dgv As DataGridView, rwSavedOrigin As AppSettingsRow, rwSetting As AppSettingsRow)
    33. '.LeftCut(";"c) = col.Name
    34. '.RightCut(";"c).LeftCut(";"c) = col.Width
    35. '.RightCut(";"c).RightCut(","c) = col.Visible
    36. Dim actualOriginCols = getActualDgvCols(dgv) 'aktuelle Original-Auflistung
    37. Dim savedOriginCols = rwSavedOrigin.strSetting.Split("#"c).ToList 'gespeicherte Original-Auflistung
    38. Dim savedVisibleCols = rwSetting.strSetting.Split("#"c).ToList 'gespeicherte Benutzerdefinierte Auflistung
    39. Dim neu = actualOriginCols.Where(Function(x) Not savedOriginCols.Any(Function(y) y.LeftCut(";"c).Equals(x.name))).ToList 'neu hinzugefügte Cols
    40. Dim entfernt = savedOriginCols.Where(Function(x) Not actualOriginCols.Any(Function(y) y.name.Equals(x.LeftCut(";"c)))).ToList 'entfernte Cols
    41. For Each col In neu
    42. savedVisibleCols.Add($"{col.name};{col.width},{col.visible}") 'neue Cols hinzufügen
    43. Next
    44. entfernt.ForEach(AddressOf savedVisibleCols.Remove) 'entfernte Cols rausschmeißen
    45. rwSavedOrigin.strSetting = buildColString(actualOriginCols) 'neuen Origin-String bauen
    46. Dim savedNew As New List(Of dgvCol)
    47. For Each str In savedVisibleCols 'neue aktualisierte Col-Liste
    48. Dim itm As New dgvCol
    49. Dim actual = actualOriginCols.First(Function(x) x.name = str.LeftCut(";"c))
    50. If actual.width <> CInt(str.RightCut(";"c).LeftCut(","c)) Then
    51. itm = New dgvCol With {.name = str.LeftCut(";"c), .width = actual.width, .visible = CBool(str.RightCut(";"c).RightCut(","c))} 'neue Width benutzen
    52. Else
    53. itm = New dgvCol With {.name = str.LeftCut(";"c), .width = CInt(str.RightCut(";"c).LeftCut(","c)), .visible = CBool(str.RightCut(";"c).RightCut(","c))} 'alte Width benutzen
    54. End If
    55. savedNew.Add(itm)
    56. Next
    57. rwSetting.strSetting = buildColString(savedNew)
    58. End Sub
    60. ''' <summary> Returned die aktuell enthaltenen Columns des DGV </summary>
    61. Private Function getActualDgvCols(dgv As DataGridView) As List(Of dgvCol)
    62. Dim lst As New List(Of dgvCol)
    63. Dim lstAdminCols = getDefaultAdminCols(dgv)
    64. For Each col As DataGridViewColumn In dgv.Columns
    65. Dim itm As New dgvCol With {.name = col.Name, .headertext = col.HeaderText, .width = col.Width, .visible = col.Visible}
    66. If _uAdmin Then
    67. lst.Add(itm)
    68. Else
    69. If Not lstAdminCols.Contains(col.Name) Then lst.Add(itm)
    70. End If
    71. Next
    72. Return lst
    73. End Function
    75. ''' <summary> Stellt dem User ein DLG zur Verfügung, worin er auswählen kann welche DGV-Columns ihm angezeigt werden sollen. </summary>
    76. Private Sub ShowColSelectionDlg(dgv As DataGridView, rwAppSettings As AppSettingsRow)
    77. Using dlg As New dlgChkLb
    78. Dim lb = dlg.chkLb
    79. Dim lstCol As New List(Of dgvCol)
    80. Dim selectedColNames As New List(Of dgvCol)
    81. Dim lstAdminCols = getDefaultAdminCols(dgv)
    82. For Each col As DataGridViewColumn In dgv.Columns
    83. If Not _uAdmin AndAlso lstAdminCols.Contains(col.Name) Then Continue For
    84. lstCol.Add(New dgvCol With {.name = col.Name, .headertext = col.HeaderText, .width = col.Width})
    85. Next
    86. lb.DataSource = lstCol
    87. lb.DisplayMember = "headertext"
    88. lb.ValueMember = "name"
    90. For Each colName In getColList(rwAppSettings)
    91. For i = 0 To lb.Items.Count - 1
    92. If DirectCast(lb.Items(i), dgvCol).name = colName.LeftCut(";"c) Then
    93. If colName.RightCut(";"c).RightCut(",") = "True" Then lb.SetItemChecked(i, True) 'gespeicherte Visible auch in der Listbox anhaken
    94. End If
    95. Next
    96. Next
    98. If dlg.ShowDialog <> DialogResult.OK Then Return
    100. For Each itm In lb.CheckedItems
    101. selectedColNames.Add(DirectCast(itm, dgvCol))
    102. Next
    104. Dim savedNew As New List(Of dgvCol)
    105. For Each str In rwAppSettings.strSetting.Split("#"c).ToList
    106. Dim selected = selectedColNames.FirstOrDefault(Function(x) x.name = str.LeftCut(";"c))
    107. If selected IsNot Nothing Then 'wurde ausgewählt
    108. selected.visible = True
    109. savedNew.Add(selected)
    110. Else 'wurde nicht ausgewählt -> visible auf False setzen, Rest beibehalten
    111. Dim itm As New dgvCol With {.name = str.LeftCut(";"c), .width = CInt(str.RightCut(";"c).LeftCut(","c)), .visible = False}
    112. savedNew.Add(itm)
    113. End If
    114. Next
    115. rwAppSettings.strSetting = buildColString(savedNew) 'neuen String speichern
    116. dgv.setSelectedCols(getColList(rwAppSettings)) 'Änderungen anzeigen
    117. End Using
    118. End Sub
    120. ''' <summary> Returned eine Liste aus dem strSetting-String </summary>
    121. Private Function getColList(rwAppSettings As AppSettingsRow) As List(Of String)
    122. Return rwAppSettings.strSetting.Split("#"c).ToList
    123. End Function
    125. ''' <summary> erstellt einen String mit Separator "#" aus allen Cols in lstCol zum Persistieren in "strSetting" </summary>
    126. Private Function buildColString(lstCol As List(Of dgvCol)) As String
    127. Dim s = ""
    128. For Each col In lstCol
    129. If s = "" Then
    130. s = $"{col.name};{col.width},{col.visible}"
    131. Else
    132. s = $"{s}#{col.name};{col.width},{col.visible}"
    133. End If
    134. Next
    135. Return s
    136. End Function
    138. Private Class dgvCol
    139. Property name As String
    140. Property headertext As String
    141. Property width As Integer
    142. Property visible As Boolean
    143. End Class


    VB.NET-Quellcode

    1. ''' <summary> Return die Default-Admin Columns, nach Prüfung ob diese auch vorhanden sind </summary>
    2. <Extension>
    3. Public Function getDefaultAdminCols(dgv As DataGridView) As List(Of String)
    4. Dim lstAdminCol As New List(Of String) From {"ID", "IDDataGridViewTextBoxColumn",
    5. "logTimestamp", "logTimestamp2", "logTimestampDataGridViewTextBoxColumn", "LogTimestampDataGridViewTextBoxColumn",
    6. "logType", "logType2", "logTypeDataGridViewTextBoxColumn", "LogTypeDataGridViewTextBoxColumn",
    7. "logUser", "logUser2", "logUserDataGridViewTextBoxColumn", "LogUserDataGridViewTextBoxColumn"
    8. }
    9. Dim lstNew As New List(Of String)
    10. For Each colName In lstAdminCol
    11. If colExists(dgv, colName) Then lstNew.Add(colName)
    12. Next
    13. 'urspr. Liste durchlaufen und String rausschmeißen ging nicht (mit for each, fehler in aufzählung, mit i wurde das übersprungen!)
    14. Return lstNew
    15. End Function
    17. ''' <summary> Überprüft, ob eine Column anhand ColumnName exisitert </summary>
    18. Private Function colExists(dgv As DataGridView, colName As String) As Boolean
    19. For i = 0 To dgv.Columns.Count - 1
    20. If dgv.Columns(i).Name = colName Then Return True
    21. Next
    22. Return False
    23. End Function
    25. ''' <summary> zeigt bestimmte Columns aus lstCol an und blendet alle anderen aus, außerdem werden die Col-Widths wiederhergestellt </summary>
    26. <Extension>
    27. Public Sub setSelectedCols(dgv As DataGridView, lstColNames As List(Of String))
    28. For Each col As DataGridViewColumn In dgv.Columns
    29. Dim selected = lstColNames.First(Function(x) x.LeftCut(";"c) = col.Name)
    30. Dim visible = CBool(selected.RightCut(";"c).RightCut(","c))
    31. Dim width = CInt(selected.RightCut(";").LeftCut(","))
    32. col.Visible = visible
    33. col.Width = width
    34. Next
    35. End Sub




    EDIT: hat sich erledigt - ich hab' mal wieder was verdaddelt gehabt :rolleyes: hier nun der Funktionierende Kauderwelsch (vielleicht kann das ja jemand gebrauchen. anstatt das in's DataSet zu Persistieren, kann man natürlich auch die my.settings nutzen):
    aktualisierter Aufruf bei frm_Closing: dgv.GetSetDgvColumnSettings(False, Me,, True)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ''' <summary> Return die Default-Admin Columns, nach Prüfung ob diese auch vorhanden sind </summary>
    2. <Extension>
    3. Public Function getDefaultAdminCols(dgv As DataGridView) As List(Of String)
    4. Dim lstAdminCol As New List(Of String) From {"ID", "IDDataGridViewTextBoxColumn",
    5. "logTimestamp", "logTimestamp2", "logTimestampDataGridViewTextBoxColumn", "LogTimestampDataGridViewTextBoxColumn",
    6. "logType", "logType2", "logTypeDataGridViewTextBoxColumn", "LogTypeDataGridViewTextBoxColumn",
    7. "logUser", "logUser2", "logUserDataGridViewTextBoxColumn", "LogUserDataGridViewTextBoxColumn"
    8. }
    9. Dim lstNew As New List(Of String)
    10. For Each colName In lstAdminCol
    11. If colExists(dgv, colName) Then lstNew.Add(colName)
    12. Next
    13. 'urspr. Liste durchlaufen und String rausschmeißen ging nicht (mit for each, fehler in aufzählung, mit i wurde das übersprungen!)
    14. Return lstNew
    15. End Function
    17. ''' <summary> Überprüft, ob eine Column anhand ColumnName exisitert </summary>
    18. Private Function colExists(dgv As DataGridView, colName As String) As Boolean
    19. For i = 0 To dgv.Columns.Count - 1
    20. If dgv.Columns(i).Name = colName Then Return True
    21. Next
    22. Return False
    23. End Function
    25. ''' <summary> zeigt bestimmte Columns aus lstCol an und blendet alle anderen aus, außerdem werden die Col-Widths wiederhergestellt </summary>
    26. <Extension>
    27. Public Sub setSelectedCols(dgv As DataGridView, lstColNames As List(Of String))
    28. For Each col As DataGridViewColumn In dgv.Columns
    29. Dim selected = lstColNames.FirstOrDefault(Function(x) x.LeftCut(";"c) = col.Name)
    30. If selected IsNot Nothing Then
    31. Dim visible = CBool(selected.RightCut(";"c).RightCut(","c))
    32. Dim width = CInt(selected.RightCut(";").LeftCut(","))
    33. col.Visible = visible
    34. col.Width = width
    35. Else
    36. col.Visible = False
    37. End If
    38. Next
    39. End Sub


    VB.NET-Quellcode

    1. ''' <summary> prüft, ob eine Einstellung zur Anzeige der DGV-Columns vorhanden ist. Falls nicht, wird ein Default-Eintrag mit allen Columns erstellt. Außerdem kann
    2. ''' ist useHeaderText True, wird Column.Headertext anstelle Column.Name genutzt
    3. ''' ist setCol True, wird dem User ein DLG zur Auswahl der sichtbaren Columns angezeigt </summary>
    4. <Extension>
    5. Public Sub GetSetDgvColumnSettings(dgv As DataGridView, setCol As Boolean, frm As Form, Optional additionalInfo As String = Nothing, Optional newColWidth As Boolean = False)
    6. If _userID = 0 Then Return
    7. Dim settingName = $"dgvColSettings_{dgv.Name}_{frm.Name}_{_user}"
    8. Dim settingNameOriginCols = $"dgvColSettingsOrigin_{dgv.Name}_{frm.Name}_{_user}"
    9. If additionalInfo IsNot Nothing Then
    10. settingName = $"dgvColSettings_{dgv.Name}_{frm.Name}_{additionalInfo}_{_user}"
    11. settingNameOriginCols = $"dgvColSettingsOrigin_{dgv.Name}_{frm.Name}_{additionalInfo}_{_user}"
    12. End If
    13. Dim rwAppSettingsOriginCols = getAppSettingsRow(settingNameOriginCols)
    14. If rwAppSettingsOriginCols Is Nothing Then rwAppSettingsOriginCols = Dts.AppSettings.AddAppSettingsRow(getUserRow, settingNameOriginCols, buildColString(getActualDgvCols(dgv)), 0, 0, 0, _defaultDate)
    15. Dim rwAppSettings = getAppSettingsRow(settingName)
    16. If rwAppSettings Is Nothing Then
    17. rwAppSettings = Dts.AppSettings.AddAppSettingsRow(getUserRow, settingName, buildColString(getActualDgvCols(dgv)), 0, 0, 0, _defaultDate)
    18. dgv.setSelectedCols(getColList(rwAppSettings))
    19. Else
    20. compare(dgv, rwAppSettingsOriginCols, rwAppSettings, newColWidth)
    21. If setCol Then
    22. ShowColSelectionDlg(dgv, rwAppSettings)
    23. Else
    24. dgv.setSelectedCols(getColList(rwAppSettings))
    25. End If
    26. End If
    27. Dts.SaveDtsWithoutBusyDlg()
    28. End Sub
    30. ''' <summary> Vergleicht gespeicherte Settings mit aktuellen Daten eines DGV und berücksichtigt
    31. ''' dabei die vom User gewählten sichtbaren Columns. Nicht mehr vorhandene Columns werden entfernt, neu hinzugefügte
    32. ''' werden dem User automatisch angezeigt. Col-Widths werden abgeglichen und bei Änderung mit geupdatet. </summary>
    33. Private Sub compare(dgv As DataGridView, rwSavedOrigin As AppSettingsRow, rwSetting As AppSettingsRow, newColWidth As Boolean)
    34. '.LeftCut(";"c) = col.Name
    35. '.RightCut(";"c).LeftCut(";"c) = col.Width
    36. '.RightCut(";"c).RightCut(","c) = col.Visible
    37. Dim actualOriginCols = getActualDgvCols(dgv) 'aktuelle Original-Auflistung
    38. Dim savedOriginCols = rwSavedOrigin.strSetting.Split("#"c).ToList 'gespeicherte Original-Auflistung
    39. Dim savedVisibleCols = rwSetting.strSetting.Split("#"c).ToList 'gespeicherte Benutzerdefinierte Auflistung
    40. Dim neu = actualOriginCols.Where(Function(x) Not savedOriginCols.Any(Function(y) y.LeftCut(";"c).Equals(x.name))).ToList 'neu hinzugefügte Cols
    41. Dim entfernt = savedOriginCols.Where(Function(x) Not actualOriginCols.Any(Function(y) y.name.Equals(x.LeftCut(";"c)))).ToList 'entfernte Cols
    42. For Each col In neu
    43. savedVisibleCols.Add($"{col.name};{col.width},{col.visible}") 'neue Cols hinzufügen
    44. Next
    45. entfernt.ForEach(AddressOf savedVisibleCols.Remove) 'entfernte Cols rausschmeißen
    46. rwSavedOrigin.strSetting = buildColString(actualOriginCols) 'neuen Origin-String bauen
    47. Dim savedNew As New List(Of dgvCol)
    48. For Each str In savedVisibleCols 'neue aktualisierte Col-Liste
    49. Dim itm As New dgvCol
    50. Dim actual = actualOriginCols.First(Function(x) x.name = str.LeftCut(";"c))
    51. If newColWidth Then
    52. itm = New dgvCol With {.name = str.LeftCut(";"c), .width = actual.width, .visible = CBool(str.RightCut(";"c).RightCut(","c))} 'neue Width benutzen
    53. Else
    54. itm = New dgvCol With {.name = str.LeftCut(";"c), .width = CInt(str.RightCut(";"c).LeftCut(","c)), .visible = CBool(str.RightCut(";"c).RightCut(","c))} 'alte Width benutzen
    55. End If
    56. savedNew.Add(itm)
    57. Next
    58. rwSetting.strSetting = buildColString(savedNew)
    59. End Sub
    61. ''' <summary> Returned die aktuell enthaltenen Columns des DGV </summary>
    62. Private Function getActualDgvCols(dgv As DataGridView) As List(Of dgvCol)
    63. Dim lst As New List(Of dgvCol)
    64. Dim lstAdminCols = getDefaultAdminCols(dgv)
    65. For Each col As DataGridViewColumn In dgv.Columns
    66. Dim itm As New dgvCol With {.name = col.Name, .headertext = col.HeaderText, .width = col.Width, .visible = col.Visible}
    67. If _uAdmin Then
    68. lst.Add(itm)
    69. Else
    70. If Not lstAdminCols.Contains(col.Name) Then lst.Add(itm)
    71. End If
    72. Next
    73. Return lst
    74. End Function
    76. ''' <summary> Stellt dem User ein DLG zur Verfügung, worin er auswählen kann welche DGV-Columns ihm angezeigt werden sollen. </summary>
    77. Private Sub ShowColSelectionDlg(dgv As DataGridView, rwAppSettings As AppSettingsRow)
    78. Using dlg As New dlgChkLb
    79. Dim lb = dlg.chkLb
    80. Dim lstCol As New List(Of dgvCol)
    81. Dim selectedColNames As New List(Of dgvCol)
    82. Dim lstAdminCols = getDefaultAdminCols(dgv)
    83. For Each col As DataGridViewColumn In dgv.Columns
    84. If Not _uAdmin AndAlso lstAdminCols.Contains(col.Name) Then Continue For
    85. lstCol.Add(New dgvCol With {.name = col.Name, .headertext = col.HeaderText, .width = col.Width})
    86. Next
    87. lb.DataSource = lstCol
    88. lb.DisplayMember = "headertext"
    89. lb.ValueMember = "name"
    91. For Each colName In getColList(rwAppSettings)
    92. For i = 0 To lb.Items.Count - 1
    93. If DirectCast(lb.Items(i), dgvCol).name = colName.LeftCut(";"c) Then
    94. If colName.RightCut(";"c).RightCut(",") = "True" Then lb.SetItemChecked(i, True) 'gespeicherte Visible auch in der Listbox anhaken
    95. End If
    96. Next
    97. Next
    99. If dlg.ShowDialog <> DialogResult.OK Then Return
    101. For Each itm In lb.CheckedItems
    102. selectedColNames.Add(DirectCast(itm, dgvCol))
    103. Next
    105. Dim savedNew As New List(Of dgvCol)
    106. For Each str In rwAppSettings.strSetting.Split("#"c).ToList
    107. Dim selected = selectedColNames.FirstOrDefault(Function(x) x.name = str.LeftCut(";"c))
    108. If selected IsNot Nothing Then 'wurde ausgewählt
    109. selected.visible = True
    110. savedNew.Add(selected)
    111. Else 'wurde nicht ausgewählt -> visible auf False setzen, Rest beibehalten
    112. Dim itm As New dgvCol With {.name = str.LeftCut(";"c), .width = CInt(str.RightCut(";"c).LeftCut(","c)), .visible = False}
    113. savedNew.Add(itm)
    114. End If
    115. Next
    116. rwAppSettings.strSetting = buildColString(savedNew) 'neuen String speichern
    117. dgv.setSelectedCols(getColList(rwAppSettings)) 'Änderungen anzeigen
    118. End Using
    119. End Sub
    121. ''' <summary> Returned eine Liste aus dem strSetting-String </summary>
    122. Private Function getColList(rwAppSettings As AppSettingsRow) As List(Of String)
    123. Return rwAppSettings.strSetting.Split("#"c).ToList
    124. End Function
    126. ''' <summary> erstellt einen String mit Separator "#" aus allen Cols in lstCol zum Persistieren in "strSetting" </summary>
    127. Private Function buildColString(lstCol As List(Of dgvCol)) As String
    128. Dim s = ""
    129. For Each col In lstCol
    130. If s = "" Then
    131. s = $"{col.name};{col.width},{col.visible}"
    132. Else
    133. s = $"{s}#{col.name};{col.width},{col.visible}"
    134. End If
    135. Next
    136. Return s
    137. End Function
    139. Private Class dgvCol
    140. Property name As String
    141. Property headertext As String
    142. Property width As Integer
    143. Property visible As Boolean
    144. End Class


    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „tragl“ ()

Facebook
Telefonspende