Wert gecheckter CheckBox/en ausgeben

  • VB.NET

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

    Wert gecheckter CheckBox/en ausgeben

    Hallo Community,
    Ich bin an einem Rechtesystem für ein Tool am arbeiten. In dem Rechtesystem hat man 4-5 Verschiedene Rechte die durch CheckBoxen vergeben werden.
    Nun steht ich vor folgendem Problem:
    Ich will ohne 25 IF-Abfragen Überprüfen, welche CheckBox/en gechekt ist/sind und dessen Wert dann ausgeben.

    Beispiel:
    CheckBox1 ist gechekt dann wird nur der Wert von CheckBox1 ausgegebenen
    Wenn jetzt CheckBox1 und CheckBox2 gechekt sind, dann soll der wert beider CheckBoxen ausgegeben werden
    usw....

    Wie kann man sowas am einfachsten Anstellen ?

    Hey,

    Linq ist Dein Freund...

    VB.NET-Quellcode

    1. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    2. Dim result = From c As CheckBox In Me.Controls.OfType(Of CheckBox)() Select c Where c.Checked
    4. For Each c As CheckBox In result
    5. MessageBox.Show(c.Name & " checked=" & c.Checked.ToString())
    6. Next
    7. End Sub
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Etwas zum Spielen. Benötigt: ein Label, ein Panel und ein paar Checkboxen darin. Die Elemente werden in "ausgewählteElemente" gespeichert, falls du sie noch weiterverwerten möchtest.

    VB.NET-Quellcode

    1. Dim ausgewählteElemente As New List(Of String)
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. For Each element As CheckBox In Panel1.Controls.OfType(Of CheckBox)()
    5. AddHandler element.CheckedChanged, Sub(chk_sender As Object, chk_e As EventArgs)
    6. If DirectCast(chk_sender, CheckBox).Checked Then
    7. ausgewählteElemente.Add(DirectCast(chk_sender, CheckBox).Text)
    8. Else
    9. ausgewählteElemente.Remove(DirectCast(chk_sender, CheckBox).Text)
    10. End If
    11. Label1.Text = String.Join(", ", ausgewählteElemente.ToArray)
    12. End Sub
    13. Next
    14. End Sub

    Generiere Dir ein Flags-Enum, in dem die CheckBoxen je ein Bit setzen.
    5 CheckBoxen, ein Label:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. <Flags()> _
    3. Public Enum Rechte
    4. Recht0 = 0
    5. Recht1 = 1
    6. Recht2 = 2
    7. Recht3 = 4
    8. Recht4 = 8
    9. Recht5 = 16
    10. End Enum
    11. Private MyRecht As Rechte = Rechte.Recht0
    13. Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
    14. If CheckBox1.Checked Then
    15. MyRecht = MyRecht Or Rechte.Recht1
    16. Else
    17. MyRecht = MyRecht And Not Rechte.Recht1
    18. End If
    19. Label1.Text = MyRecht.ToString
    20. End Sub
    22. Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
    23. If CheckBox2.Checked Then
    24. MyRecht = MyRecht Or Rechte.Recht2
    25. Else
    26. MyRecht = MyRecht And Not Rechte.Recht2
    27. End If
    28. Label1.Text = MyRecht.ToString
    29. End Sub
    31. Private Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged
    32. If CheckBox3.Checked Then
    33. MyRecht = MyRecht Or Rechte.Recht3
    34. Else
    35. MyRecht = MyRecht And Not Rechte.Recht3
    36. End If
    37. Label1.Text = MyRecht.ToString
    38. End Sub
    40. Private Sub CheckBox4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox4.CheckedChanged
    41. If CheckBox4.Checked Then
    42. MyRecht = MyRecht Or Rechte.Recht4
    43. Else
    44. MyRecht = MyRecht And Not Rechte.Recht4
    45. End If
    46. Label1.Text = MyRecht.ToString
    47. End Sub
    49. Private Sub CheckBox5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox5.CheckedChanged
    50. If CheckBox5.Checked Then
    51. MyRecht = MyRecht Or Rechte.Recht5
    52. Else
    53. MyRecht = MyRecht And Not Rechte.Recht5
    54. End If
    55. Label1.Text = MyRecht.ToString
    56. End Sub
    57. End Class
    So ausführlich, damit Dir das Verfahren schnell klar wird.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany: Hey, du hast mir meinen Post geklaut! Genau das wollte ich auch schreiben. ;)

    Ich würde es allerdings so umsetzen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. <Flags()> _
    3. Public Enum Rechte
    4. Recht0 = 0
    5. Recht1 = 1
    6. Recht2 = 2
    7. Recht3 = 4
    8. Recht4 = 8
    9. Recht5 = 16
    10. End Enum
    12. Private MyRecht As Rechte = Rechte.Recht0
    13. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    14. CheckBox1.Tag = Rechte.Recht0
    15. CheckBox2.Tag = Rechte.Recht1
    16. CheckBox3.Tag = Rechte.Recht2
    17. CheckBox4.Tag = Rechte.Recht3
    18. CheckBox5.Tag = Rechte.Recht4
    19. CheckBox6.Tag = Rechte.Recht5
    20. End Sub
    21. Private Sub SomeCheckbox_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged
    23. Dim cb as CheckBox = DirectCast(sender, CheckBox)
    24. If cb Is Nothing Then Exit Sub
    26. Dim rechteMarker as Rechte = DirectCast(cb.Tag, Rechte)
    28. If cb.Checked Then
    29. MyRecht = MyRecht Or rechteMarker
    30. Else
    31. MyRecht = MyRecht And Not rechteMarker
    32. End If
    33. Label1.Text = MyRecht.ToString()
    34. End Sub
    35. End Class
    (6 Checkboxen, 6 Rechte, ein Label und eine Form)


    Übrigens: Bei der Verwendung des Flags-Attribut erhalten die Enum-Member automatisch 2er-Potenz-Werte. ;)
    Edit: Hab mich geirrt, ist leider doch nicht so: ideone.com/k46XT7
    Von meinem iPhone gesendet

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

    nikeee13 schrieb:

    Hey, du hast mir meinen Post geklaut!
    Wie Du siehst, kann ich Gedanken lesen.
    Die Lösung mit dem Tag ist gut, doch ich wollte den TE nicht überlasten, weil hier immer noch einige Kollegen "Angst" vor den Enums haben, insbesondere, wenn es sich um Flags handelt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wenn ich jetzt die "Version" von der_Kurt nehme dann müsste ich wenn ich die Rechte in eine Datenbank schreiben will einfach nur die ListeOf in die Spalte schreiben richtig ?

Facebook
Telefonspende