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:	Views:  19.489
www.tools4vb.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.