Elemente einer Enumeration ermitteln und zur Auswahl anzeigen Dieser Tipp zeigt, wie sich die einzelnene Elemente einer Enumeration (Aufzählung) zur Laufzeit ermitteln und bspw. in einer ComboBox zur Auswahl anzeigen lassen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  19.674
www.tools4vb.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 8 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Heute zeigen wir Ihnen, wie sich zur Laufzeit sowohl die Anzahl Elemente einer Enumeration, als auch die Elemente selbst ermitteln lassen. Diese kann man dann bspw. in einer ComboBox zur Auswahl anbieten.

' Enum-Auflistung
Private Enum Wochentag
  Sonntag = 0
  Montag
  Dienstag
  Mittwoch
  Donnerstag
  Freitag
  Samstag
End Enum

' Anzahl der Elemente der Enum-Auflistung
Dim nCount As Integer = [Enum].GetNames(GetType(Wochentag)).Length

' alle Enum-Elemente und deren Werte in einer ComboBox zur Auswahl anzeigen
Dim names() As String = [Enum].GetNames(GetType(Wochentag))
Dim values() As Integer = [Enum].GetValues(GetType(Wochentag))
 
With ComboBox1.Items
  For i As Integer = 0 To names.Length - 1
    .Add(CStr(values(i)) & " - " & names(i))
  Next i
End With