Vergleich bei Enumerationen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Vergleich bei Enumerationen

    Hi
    ich steh z.Z. iwie aufm Schlauch... Ich versuch, Werte einer Enumeration zu vergleichen:

    VB.NET-Quellcode

    1. Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
    2. Select Case e.State
    4. End Select
    5. End Sub


    Wenn ich jetzt einfach Case DrawItemState.Focus Or DrawItemState.Selected schreib geht das ja nicht... Weiß jemand wie man das ordentlich macht?...

    Gruß
    ~blaze~

    hallo blaze,

    ich gehe davon aus, dass du den inhalt der combobox selbst zeichnen willst.
    normalerweise sollte es mit der abfrage keine probleme geben.

    die hilfeseite dazu wirst du schon aufgesucht haben - vermute ich.

    gruss

    mikeb69

    Hab ich mal überflogen aber nachdem da nichts über die States erklärt wird und das State wenn was markiert wird Selected und Focused sein sollte, dachte ich ich könnte das so wie oben machen aber irgendwie bin ich zu dumm für das ^^ - trotzdem danke ;)

    Ich brauchs nicht unbedingt für die ComboBox, sondern allgemein für Enums. Hab das nur als Beispiel herangezogen.

    Gruß
    ~blaze~

    hallo blaze,

    ich versteh dein problem nicht ganz, hilft dir das vielleicht weiter ?

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents t As New Timer
    4. Private r As New Random
    5. Private temp As Status
    7. Private Enum Status
    8. Timer
    9. Form
    10. Ende
    11. End Enum
    13. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    14. t.Start()
    15. End Sub
    17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. Select Case temp
    19. Case Status.Ende
    20. MessageBox.Show("Ende")
    21. Case Status.Form
    22. MessageBox.Show("Form")
    23. Case Status.Timer
    24. MessageBox.Show("Timer")
    25. End Select
    26. End Sub
    28. Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
    29. temp = r.Next(0, [Enum].GetNames(GetType(Status)).Length)
    30. End Sub
    31. End Class

    gruss

    mikeb69

    Mein Problem liegt eher da:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents t As New Timer
    4. Private r As New Random
    5. Private temp As Status
    6. <Flags()> _
    7. Private Enum Status
    8. None = 0
    9. Timer = 1
    10. Form = 2
    11. Ende = 4
    12. End Enum
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. t.Start()
    16. End Sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. Select Case temp
    20. Case Status.Ende
    21. MessageBox.Show("Ende")
    22. Case Status.Timer, Status.Form
    23. MessageBox.Show("Timer & Form")
    24. End Select
    25. End Sub
    27. Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
    28. temp = r.Next(0, 2 ^([Enum].GetNames(GetType(Status)).Length - 1))
    29. End Sub
    30. End Class


    Aber das funktioniert irgendwie nicht...

    Gruß
    ~blaze~

    hallo blaze,

    so ?

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents t As New Timer
    4. Private r As New Random
    5. Private temp As Status
    6. <Flags()> _
    7. Private Enum Status
    8. None = 0
    9. Timer = 1
    10. Form = 2
    11. Ende = 4
    12. End Enum
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. t.Start()
    16. End Sub
    18. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. Select Case True
    20. Case (temp And Status.Ende) = Status.Ende
    21. MessageBox.Show("Ende")
    22. Case (temp And (Status.Timer Or Status.Form)) = (Status.Timer Or Status.Form)
    23. MessageBox.Show("Timer & Form")
    24. End Select
    25. End Sub
    27. Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
    28. temp = r.Next(0, 2 ^ ([Enum].GetNames(GetType(Status)).Length - 1))
    29. End Sub
    30. End Class

    gruss

    mikeb69

    hallo blaze,

    das ganze ist nichts anderes als eine logische UND verknüpfung.
    eigentlich recht einfach, in meinem calc.net rechner hab ich sowas auch verwendet.
    ziemlich praktisch.

    schönen sonntag noch

    mikeb69