Kampf mit der CheckedListBox und dem CheckedListview

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ITFuzzi.

    Kampf mit der CheckedListBox und dem CheckedListview

    Hallo,

    ich versuche eine Liste mit Checkboxen darzustellen und kämpfe mit folgenden Problemen:

    Die CheckedListBox
    1. die CheckedListBox funktioniert eigentlich wie geplant, nur die Suchfunktion ist bescheiden: Markiere Anton und Tippe M und A. Wäre schön, wenn die Markierung auf Marta stünde, sie springt aber erst auf Marta und dann wieder auf Anton. Da es sich um grosse Listen handelt benötige ich diese Suchfunktion zum einfacheren Handling.

    2. mache ich in der CheckedListBox einen Doppelclick auf das Controllkästchen, dann bleibt der Zähler darunter auf 0, mache ich dann noch irgendetwas in der Liste wird der Zähler aktualisiert, warum nicht gleich so?

    Der CheckedListview
    1. wie kann ich in dem CheckedListview nur eine Spalte einstellen?

    2. die Suche wie oben funktioniert wie gewünscht, auch das markieren, aber der Zähler zeigt die unmöglichsten Ergebnisse. Spielt mal darin rum, es ist zum Haare raufen. Was mache ich da falsch ?

    Es sind erste Gehversuche von VB auf VB2008. Das Problem habe ich ohne Schnickschnack im Code dargestellt.
    Habe das Internet schon umgegraben, Haare hab ich auch keine mehr,
    bin dankbar für jede Hilfe.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. End
    7. End Sub
    9. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    11. 'Fülle Listen
    12. CheckedListBox1.Items.Add("Anton")
    13. CheckedListBox1.Items.Add("Berta")
    14. CheckedListBox1.Items.Add("Caesar")
    15. CheckedListBox1.Items.Add("Dora")
    16. CheckedListBox1.Items.Add("Emil")
    17. CheckedListBox1.Items.Add("Friedrich")
    18. CheckedListBox1.Items.Add("Gustav")
    19. CheckedListBox1.Items.Add("Heinz")
    20. CheckedListBox1.Items.Add("Ingo")
    21. CheckedListBox1.Items.Add("Julia")
    22. CheckedListBox1.Items.Add("Karl")
    23. CheckedListBox1.Items.Add("Ludwig")
    24. CheckedListBox1.Items.Add("Marta")
    25. CheckedListBox1.Items.Add("Norbert")
    26. CheckedListBox1.Items.Add("Otto")
    27. CheckedListBox1.Items.Add("Paula")
    29. ListBox1.Items.Add("Anton")
    30. ListBox1.Items.Add("Berta")
    31. ListBox1.Items.Add("Caesar")
    32. ListBox1.Items.Add("Dora")
    33. ListBox1.Items.Add("Emil")
    34. ListBox1.Items.Add("Friedrich")
    35. ListBox1.Items.Add("Gustav")
    36. ListBox1.Items.Add("Heinz")
    37. ListBox1.Items.Add("Ingo")
    38. ListBox1.Items.Add("Julia")
    39. ListBox1.Items.Add("Karl")
    40. ListBox1.Items.Add("Ludwig")
    41. ListBox1.Items.Add("Maria")
    42. ListBox1.Items.Add("Marta")
    43. ListBox1.Items.Add("Monika")
    44. ListBox1.Items.Add("Norbert")
    45. ListBox1.Items.Add("Otto")
    46. ListBox1.Items.Add("Paula")
    49. ListView1.Clear()
    50. ListView1.View = View.List
    51. ListView1.CheckBoxes = True
    53. ListView1.Items.Add("Anton")
    54. ListView1.Items.Add("Berta")
    55. ListView1.Items.Add("Caesar")
    56. ListView1.Items.Add("Dora")
    57. ListView1.Items.Add("Emil")
    58. ListView1.Items.Add("Friedrich")
    59. ListView1.Items.Add("Gustav")
    60. ListView1.Items.Add("Heinz")
    61. ListView1.Items.Add("Ingo")
    62. ListView1.Items.Add("Julia")
    63. ListView1.Items.Add("Karl")
    64. ListView1.Items.Add("Ludwig")
    65. ListView1.Items.Add("Maria")
    66. ListView1.Items.Add("Marta")
    67. ListView1.Items.Add("Monika")
    68. ListView1.Items.Add("Norbert")
    69. ListView1.Items.Add("Otto")
    70. ListView1.Items.Add("Paula")
    71. ListView1.Items.Add("Quietschi")
    72. ListView1.Items.Add("Rolf")
    73. ListView1.Items.Add("Siegfried")
    74. ListView1.Items.Add("Tobi")
    75. ListView1.Items.Add("Ursula")
    76. ListView1.Items.Add("Victor")
    77. ListView1.Items.Add("Willi")
    78. ListView1.Items.Add("Xaver")
    79. ListView1.Items.Add("Yvonne")
    80. ListView1.Items.Add("Zara")
    81. ListView1.Items.Add("xxx")
    82. Label4.Text = "0"
    83. Label5.Text = "0"
    85. End Sub
    87. Private Sub ListView1_ItemCheck1(ByVal sender As Object, _
    88. ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
    89. Label5.Text = ListView1.CheckedItems.Count
    90. End Sub
    92. Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged
    93. Label4.Text = CheckedListBox1.CheckedIndices.Count
    94. End Sub
    96. End Class

    1. in eine CheckedListbox kann man eiglich keine gscheite Suchfunktion einbauen, sondern dafür braucht man zusätzliche Controls, und ühaupt ein intelligentes Konzept, wie die Sucherei im einzeln ablaufen soll.
      Also sample und Konzeptions-hilfe lade dir mal AutoCompletion advanced - aber das ist schon sehr advanced, aber wie gesagt sieh es als Konzeptions-Hilfe an.
    zu den anneren Punkten sag ich jetzt nix, der eine ist schon reichlich umfangreich genug.

    Vergiss die ListBox, dass ist nur das Controll zum Anzeigen der Daten, benutze eine Binding Soruce in der kannst du nämlich auch mit Filter Ausdrücken / Filter Exressions arbeiten. Dass dürfte dein Problem gut in denn griff kriegen, desweitern kannst du dann von vorne rein den support für etweilige Datenbanck Verbindungen einbauen.

    LG, J.Herbrich

    Hallo,

    also mit vergiss es konnte ich mich nicht abfinden. So habe ich weiter gesucht und die Lösung gefunden.

    Zu 1: nur eine Spalte erhalte ich, wenn ich View.Details und mit Columns.Add eine Spalte mit einer gewissen Breite definiere
    Zu 2: es wird unterschieden in ListView1_CheckedItemsChanged und CheckBox1_CheckedChanged

    ich habe bis zu 120000 Rechner aus dem Active Directory eingelesen und kann jetzt einfach durch Eintippen des Rechnernamens darauf springen :)

    siehe Beispiel, probiert es mal aus, geht auf den ersten Eintrag, gebt xyz ein und die Markierung wandert genau dahin,
    ein click auf die Checkbox zählt das linke Label einen hoch etc

    genauso hatte ich mir das vorgestellt, geht doch :)
    VG

    Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. End
    7. End Sub
    9. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    11. ListView1.Clear()
    12. ListView1.View = View.Details
    13. ListView1.CheckBoxes = True
    14. 'Grösse von Listview - Checkbox : 264-21
    15. ListView1.Columns.Add("Spalte xy", 243, HorizontalAlignment.Left)
    17. ListView1.Items.Add("Anton")
    18. ListView1.Items.Add("Berta")
    19. ListView1.Items.Add("Caesar")
    20. ListView1.Items.Add("Dora")
    21. ListView1.Items.Add("Emil")
    22. ListView1.Items.Add("Friedrich")
    23. ListView1.Items.Add("Gustav")
    24. ListView1.Items.Add("Heinz")
    25. ListView1.Items.Add("Ingo")
    26. ListView1.Items.Add("Julia")
    27. ListView1.Items.Add("Karl")
    28. ListView1.Items.Add("Ludwig")
    29. ListView1.Items.Add("Marta")
    30. ListView1.Items.Add("Monika")
    31. ListView1.Items.Add("Norbert")
    32. ListView1.Items.Add("Otto")
    33. ListView1.Items.Add("Paula")
    34. ListView1.Items.Add("Quietschi")
    35. ListView1.Items.Add("Rolf")
    36. ListView1.Items.Add("Siegfried")
    37. ListView1.Items.Add("Tobi")
    38. ListView1.Items.Add("Ursula")
    39. ListView1.Items.Add("Victor")
    40. ListView1.Items.Add("Willi")
    41. ListView1.Items.Add("Xaver")
    42. ListView1.Items.Add("Yvonne")
    43. ListView1.Items.Add("Zara")
    44. ListView1.Items.Add("xxx")
    45. ListView1.Items.Add("xyx")
    46. ListView1.Items.Add("xyz")
    47. ListView1.Items.Add("Maria")
    48. ListView1.Items.Add("Marwin")
    49. ListView1.Items.Add("Manfred")
    50. ListView1.Items.Add("Ulrike")
    52. ListView1.GridLines = True
    53. ListView1.Sorting = SortOrder.Ascending
    54. ListView1.FullRowSelect = True
    55. ListView1.Scrollable = True
    57. Label1.Text = "0"
    58. Label2.Text = "0"
    60. End Sub
    62. Private Sub ListView1_CheckedItemsChanged _
    63. (ByVal sender As Object, _
    64. ByVal e As System.EventArgs) _
    65. Handles ListView1.SelectedIndexChanged
    67. Label2.Text = ListView1.SelectedItems.Count
    68. End Sub
    70. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
    71. ByVal e As System.EventArgs) _
    72. Handles ListView1.ItemChecked
    73. Label1.Text = ListView1.CheckedItems.Count
    74. End Sub
    76. End Class