ClearableComboBox für WinForms

    • VB.NET
    • .NET (FX) 4.5–4.8

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von DerSmurf.

      ClearableComboBox für WinForms

      DataBinding ist eine tolle Sache. Auch die ComboBox ist sehr mächtig. Aber eines stört mich schon seit Längerem: Sobald man die ComboBox an ne gefüllte Datenquelle anschließt, kann man eine Selektion nicht mehr verhindern. Denn manchmal ergibt es eben doch Sinn, eben nichts ausgewählt zu haben. Und sei es nur, um dem User klarzumachen, dass er da vielleicht was vergessen hat. Daher hab ich mir ein UserControl zusammengebastelt, welches ich ClearableComboBox (CCB) nenne.
      Das Teil besteht aus einer ComboBox und einem Löschbutton. Für den WinForms-Designer gibt es für's DataBinding einen Designer-Editor via SmartTag.
      Erstmal das Teil in Aktion, dann der Quellcode.



      der Code zum gezeigten Programm

      VB.NET-Quellcode

      1. Public Class Form1
      3. Public Class TvChannel
      4. Property Name As String
      5. Property ListPosition As Integer
      6. End Class
      8. Public ReadOnly TvChannelList As New List(Of TvChannel)
      10. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      11. BsTvChannels.DataSource = TvChannelList
      12. BsTvChannels.Add(New TvChannel With {.Name = "ARD", .ListPosition = 1})
      13. BsTvChannels.Add(New TvChannel With {.Name = "ZDF", .ListPosition = 2})
      14. BsTvChannels.Add(New TvChannel With {.Name = "NDR", .ListPosition = 3})
      15. BsTvChannels.Add(New TvChannel With {.Name = "WDR", .ListPosition = 4})
      16. End Sub
      18. Private Sub BtnSwitchTvChannel_Click(sender As Object, e As EventArgs) Handles BtnSwitchTvChannel.Click
      19. If ClearableComboBox1.IsEmpty Then MessageBox.Show("Der Fernseher ist wohl aus :-(") : Return
      21. MessageBox.Show($"Sie schauen nun {DirectCast(ClearableComboBox1.SelectedItem, TvChannel).Name}.")
      22. End Sub
      24. End Class

      Ich habe die CCB über eine BindingSource an die TvChannelList gebunden



      und im Designer einen DefaultText für die CCB hinterlegt



      Nach Programmstart sieht man erstmal nur diesen Text. Klickt man auf den Button [Sender wechseln] (der nicht Teil der CCB ist ;) ), wird die Property IsEmpty ausgewertet, die jetzt erstmal True zurückgibt. Sobald man die Liste aber aufklappt, werden die Items der angebundenen Liste gezeigt und der DefaultText verschwindet. Klickt man danach auf [Sender wechseln], wird dieser mittels passendem Cast angezeigt. Und warum heißt das Ganze "Clearable" ComboBox? Dafür gibt es den Button [X], der die Auswahl wieder löscht.

      Wo wäre sowas u.a. sinnvoll: Wenn eine ComboBox eine Mitarbeiterliste anzeigt, bei der man festlegt, wer gerade eine Sache bearbeitet. Mit einer normalen ComboBox ist der erste Mitarbeiter immer gewählt und es wird ggf. vergessen diesen zu ändern. Und dann taucht er immer in der Protokollierung auf und ärgert sich, dass sein Name an erster Stelle in der Liste steht. Einen Dummy-Eintrag kann man auch nicht immer verwenden. Nun ja. Dies ist jedenfalls meine Lösung zu diesem Problem.

      Ach ja, der Code. Er teilt sich in 4 Dateien auf, wobei 2 nur für den DataBinding-Designer sind:
      Hauptdatei

      VB.NET-Quellcode

      1. <Designer(GetType(ClearableComboBoxDesigner))>
      2. <LookupBindingProperties(NameOf(ClearableComboBox.DataSource), NameOf(ClearableComboBox.DisplayMember), NameOf(ClearableComboBox.ValueMember), NameOf(ClearableComboBox.SelectedItem))>
      3. Public Class ClearableComboBox
      5. Public Property DataSource As Object = Nothing
      6. Public Property DisplayMember As String = Nothing
      7. Public Property ValueMember As String = Nothing
      8. Public Property DefaultText As String = Nothing
      10. Private _IsEmpty As Boolean = True
      11. Public Property IsEmpty As Boolean
      12. Get
      13. Return _IsEmpty
      14. End Get
      15. Private Set
      16. _IsEmpty = Value
      17. End Set
      18. End Property
      20. Public Property SelectedItem As Object
      21. Get
      22. Return CbxData.SelectedItem
      23. End Get
      24. Set
      25. If IsEmpty Then Return
      26. CbxData.SelectedItem = Value
      27. End Set
      28. End Property
      30. Private Sub BtnClearList_Click(sender As Object, e As EventArgs) Handles BtnClearList.Click
      31. ClearComboBox()
      32. End Sub
      34. Private Sub CbxData_DropDown(sender As Object, e As EventArgs) Handles CbxData.DropDown
      35. If DataSource Is Nothing Then Return
      37. CbxData.DataSource = DataSource
      38. CbxData.ValueMember = ValueMember
      39. CbxData.DisplayMember = DisplayMember
      40. IsEmpty = False
      41. End Sub
      43. Private Sub ClearableComboBox_Load(sender As Object, e As EventArgs) Handles Me.Load
      44. ClearComboBox()
      45. End Sub
      47. Private Sub ClearComboBox()
      48. CbxData.DataSource = Nothing
      49. CbxData.Items.Clear()
      50. Dim DefaultItem = ""
      51. If DefaultText.IsNotEmpty Then DefaultItem = DefaultText
      52. CbxData.Items.Add(DefaultItem)
      53. CbxData.SelectedIndex = 0
      54. _IsEmpty = True
      55. End Sub
      57. End Class

      Designer.VB

      VB.NET-Quellcode

      1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
      2. Partial Class ClearableComboBox
      3. Inherits System.Windows.Forms.UserControl
      5. 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
      6. <System.Diagnostics.DebuggerNonUserCode()> _
      7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
      8. Try
      9. If disposing AndAlso components IsNot Nothing Then
      10. components.Dispose()
      11. End If
      12. Finally
      13. MyBase.Dispose(disposing)
      14. End Try
      15. End Sub
      17. 'Wird vom Windows Form-Designer benötigt.
      18. Private components As System.ComponentModel.IContainer
      20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
      21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
      22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
      23. <System.Diagnostics.DebuggerStepThrough()> _
      24. Private Sub InitializeComponent()
      25. Me.BtnClearList = New System.Windows.Forms.Button()
      26. Me.CbxData = New System.Windows.Forms.ComboBox()
      27. Me.SuspendLayout()
      28. '
      29. 'BtnClearList
      30. '
      31. Me.BtnClearList.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
      32. Me.BtnClearList.Location = New System.Drawing.Point(126, 3)
      33. Me.BtnClearList.Name = "BtnClearList"
      34. Me.BtnClearList.Size = New System.Drawing.Size(21, 21)
      35. Me.BtnClearList.TabIndex = 3
      36. Me.BtnClearList.Text = "X"
      37. Me.BtnClearList.UseVisualStyleBackColor = True
      38. '
      39. 'CbxData
      40. '
      41. Me.CbxData.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
      42. Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
      43. Me.CbxData.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
      44. Me.CbxData.FormattingEnabled = True
      45. Me.CbxData.Location = New System.Drawing.Point(3, 3)
      46. Me.CbxData.Name = "CbxData"
      47. Me.CbxData.Size = New System.Drawing.Size(117, 21)
      48. Me.CbxData.TabIndex = 2
      49. '
      50. 'ClearableComboBox
      51. '
      52. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
      53. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
      54. Me.Controls.Add(Me.BtnClearList)
      55. Me.Controls.Add(Me.CbxData)
      56. Me.Name = "ClearableComboBox"
      57. Me.Size = New System.Drawing.Size(147, 27)
      58. Me.ResumeLayout(False)
      60. End Sub
      62. Private WithEvents BtnClearList As Button
      63. Private WithEvents CbxData As ComboBox
      64. End Class


      Zusatzdatei1

      VB.NET-Quellcode

      1. Imports System.ComponentModel.Design
      3. Public Class ClearableComboBoxActionList : Inherits DesignerActionList
      5. Private ReadOnly ClearableComboBox As ClearableComboBox = Nothing
      6. Private ReadOnly DesignerActionUIService As DesignerActionUIService = Nothing
      8. Public Sub New(Component As IComponent)
      9. MyBase.New(Component)
      10. ClearableComboBox = DirectCast(Component, ClearableComboBox)
      11. DesignerActionUIService = DirectCast(GetService(GetType(DesignerActionUIService)), DesignerActionUIService)
      12. End Sub
      14. Private Function GetPropertyByName(Name As String) As PropertyDescriptor
      15. Dim FittingProperty = TypeDescriptor.GetProperties(ClearableComboBox)(Name)
      16. If FittingProperty.NotExists Then Throw New ArgumentException("Matching property not found!", Name)
      17. Return FittingProperty
      18. End Function
      20. <AttributeProvider(GetType(IListSource))>
      21. Public Property DataSource() As Object
      22. Get
      23. Return ClearableComboBox.DataSource
      24. End Get
      25. Set
      26. GetPropertyByName(NameOf(DataSource)).SetValue(ClearableComboBox, Value)
      27. End Set
      28. End Property
      30. <DefaultValue("")> <Editor("System.Windows.Forms.Design.DataMemberFieldEditor", GetType(Design.UITypeEditor))>
      31. Public Property DisplayMember() As String
      32. Get
      33. Return ClearableComboBox.DisplayMember
      34. End Get
      35. Set
      36. GetPropertyByName(NameOf(DisplayMember)).SetValue(ClearableComboBox, Value)
      37. End Set
      38. End Property
      40. <DefaultValue(""), Editor("System.Windows.Forms.Design.DataMemberFieldEditor", GetType(Design.UITypeEditor))>
      41. Public Property ValueMember() As String
      42. Get
      43. Return ClearableComboBox.ValueMember
      44. End Get
      45. Set
      46. GetPropertyByName(NameOf(ValueMember)).SetValue(ClearableComboBox, Value)
      47. End Set
      48. End Property
      50. Public Overrides Function GetSortedActionItems() As DesignerActionItemCollection
      51. Dim SmartTagItems As New DesignerActionItemCollection From {New DesignerActionHeaderItem("Daten"),
      52. New DesignerActionPropertyItem(NameOf(DataSource), "Datenquelle", "Data", "legt die Datenquelle fest"),
      53. New DesignerActionPropertyItem(NameOf(DisplayMember), "Anzeigemember", "Data", "legt den Anzeigewert fest"),
      54. New DesignerActionPropertyItem(NameOf(ValueMember), "Wertemember", "Data", "legt den Wertewert fest")}
      55. Return SmartTagItems
      56. End Function
      58. End Class

      Zusatzdatei2

      VB.NET-Quellcode

      1. Imports System.ComponentModel.Design
      3. <Security.Permissions.PermissionSet(Security.Permissions.SecurityAction.Demand, Name:="FullTrust")>
      4. Public Class ClearableComboBoxDesigner : Inherits Windows.Forms.Design.ControlDesigner
      6. Private ActionList As DesignerActionListCollection = Nothing
      8. Public Overrides ReadOnly Property ActionLists() As DesignerActionListCollection
      9. Get
      10. If ActionList.NotExists Then ActionList = New DesignerActionListCollection From {New ClearableComboBoxActionList(Component)}
      11. Return ActionList
      12. End Get
      13. End Property
      15. End Class
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

      Nachdem ich festgestellt habe, dass es u.a. bei Schriftgrößenveränderungen Probleme gibt und das Fehlen des SelectedItems mich doch etwas wurmt, habe ich die freien Tage genutzt, um etwas nachzubessern.
      Das Teil ist jetzt nur noch eine spezialisierte ComboBox, die auf Befehl das Deselektionsverhalten aufweist.
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class ClearableComboBox : Inherits ComboBox
      3. Public Property DefaultText As String = Nothing
      4. Private _IsEmpty As Boolean = True
      5. Private _DataSource As Object
      6. Private _ValueMember As String
      7. Private _DisplayMember As String
      8. Private _DataBindingToRemember As Binding = Nothing
      10. Public Property IsEmpty As Boolean
      11. Get
      12. Return _IsEmpty
      13. End Get
      14. Private Set
      15. _IsEmpty = Value
      16. End Set
      17. End Property
      19. Public Sub New()
      20. MyBase.New
      21. ResetDropDownStyle()
      22. End Sub
      24. Private Sub ResetDropDownStyle()
      25. DropDownStyle = ComboBoxStyle.DropDownList
      26. End Sub
      28. Private Sub ClearableComboBox_DropDownStyleChanged(sender As Object, e As EventArgs) Handles Me.DropDownStyleChanged
      29. ResetDropDownStyle()
      30. End Sub
      32. Public Sub Clear()
      33. SaveCurrentData()
      34. RemoveControlData()
      35. SetDefaultTextAsOnlyItem()
      36. TreatMeAsEmpty()
      37. End Sub
      39. Private Sub SaveCurrentData()
      40. If DataSource Is Nothing Then Return
      42. _DataSource = DataSource
      43. _ValueMember = ValueMember
      44. _DisplayMember = DisplayMember
      45. If DataBindings.Count > 0 Then _DataBindingToRemember = DataBindings(0)
      46. End Sub
      48. Private Sub RemoveControlData()
      49. DataSource = Nothing
      50. If DataBindings.Count > 0 Then DataBindings.RemoveAt(0)
      51. End Sub
      53. Private Sub SetDefaultTextAsOnlyItem()
      54. Items.Clear()
      55. Items.Add(If(String.IsNullOrEmpty(DefaultText), "", DefaultText))
      56. SelectedIndex = 0
      57. End Sub
      59. Private Sub TreatMeAsEmpty()
      60. _IsEmpty = True
      61. End Sub
      63. Private Sub ClearableComboBox_DropDown(sender As Object, e As EventArgs) Handles Me.DropDown
      64. If _DataSource Is Nothing Then Return
      66. RestoreData()
      67. TreatMeAsFilled()
      68. End Sub
      70. Private Sub RestoreData()
      71. DataSource = _DataSource
      72. ValueMember = _ValueMember
      73. DisplayMember = _DisplayMember
      74. If DataBindings.Count = 0 AndAlso _DataBindingToRemember IsNot Nothing Then DataBindings.Add(_DataBindingToRemember)
      75. End Sub
      77. Private Sub TreatMeAsFilled()
      78. IsEmpty = False
      79. End Sub
      81. End Class


      Anbei ein kleines Testprojekt.
      Im ersten Tab-Reiter kann man eine Firma aussuchen und »kontaktieren« (es erscheint natürlich nur eine MessageBox), sofern eine Auswahl getroffen wurde.
      Im zweiten Tab-Reiter kann man ein Fahrzeug mit einer Firma verknüpfen, sofern eine Auswahl getroffen wurde. Dies zeigt die normale Funktionalität der bisher fehlenden Eigenschaft »ausgewählter Wert«
      Dateien
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

      Ein kleines Code-Update, weil mir immer wieder doch ein paar Kleinigkeiten aufgefallen sind.
      Wenn man im Designer ein DataBinding eingebaut hatte und das Projekt neulud, wurde es vermeintlich wieder entfernt, was zu Verwirrung führte. Es war zwar zwischengespeichert, aber die Anzeige im Designer machte das nicht klar.
      Auch das Setzen des DefaultTextes führte zu diesem Effekt.
      Diese Verhaltensweisen sind nun entfernt. Dementsprechend bleibt es dem Programmierer überlassen, ob er bei Programmstart die CCB-Auswahl löscht (also CCB.Clear ausführt und somit den DefaultText anzeigen lässt) oder nicht. Wär natürlich m.E. immer sinnvoll, da man ja zu Beginn eben keine Auswahl getroffen haben will.
      Der DropDownStyle ist nun versteckt und wenn trotzdem jemand versucht, den Style zu ändern, läuft das ins Leere :rolleyes:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.ComponentModel
      3. <ToolboxItem(True),
      4. Description("eine DropDownList-ComboBox, deren DataBinding-Auswahl auch gelöscht werden kann")>
      5. Public Class ClearableComboBox : Inherits ComboBox
      7. '''<summary>der anzuzeigende Text bei Nicht-Auswahl</summary>
      8. Property DefaultText As String = "(keine Auswahl getroffen)"
      10. <Browsable(False)> Shadows Property DropDownStyle As ComboBoxStyle
      11. Get
      12. Return MyBase.DropDownStyle
      13. End Get
      14. Set
      15. MyBase.DropDownStyle = ComboBoxStyle.DropDownList
      16. End Set
      17. End Property
      19. '''<summary>gibt wieder, ob keine Auswahl getroffen wurde</summary>
      20. Private _IsEmpty As Boolean = True
      21. Public Property IsEmpty As Boolean
      22. Get
      23. Return _IsEmpty
      24. End Get
      25. Private Set
      26. _IsEmpty = Value
      27. End Set
      28. End Property
      30. Private _DataSource As Object
      31. Private _ValueMember As String
      32. Private _DisplayMember As String
      33. Private _DataBindingToRemember As Binding = Nothing
      35. Public Sub New()
      36. MyBase.New
      37. DropDownStyle = ComboBoxStyle.DropDownList
      38. End Sub
      40. '''<summary>löscht die eventuell bereits getätigte Auswahl</summary>
      41. Public Sub Clear()
      42. SaveCurrentData()
      43. RemoveControlData()
      44. SetDefaultTextAsOnlyItem()
      45. TreatMeAsEmpty()
      46. End Sub
      48. Private Sub SaveCurrentData()
      49. If DataSource Is Nothing Then Return
      51. _DataSource = DataSource
      52. _ValueMember = ValueMember
      53. _DisplayMember = DisplayMember
      54. If DataBindings.Count > 0 Then _DataBindingToRemember = DataBindings(0)
      55. End Sub
      57. Private Sub RemoveControlData()
      58. DataSource = Nothing
      59. If DataBindings.Count > 0 Then DataBindings.RemoveAt(0)
      60. End Sub
      62. Private Sub SetDefaultTextAsOnlyItem()
      63. Items.Clear()
      64. If String.IsNullOrEmpty(DefaultText) Then Return
      65. Items.Add(DefaultText)
      66. SelectedIndex = 0
      67. End Sub
      69. Private Sub TreatMeAsEmpty()
      70. _IsEmpty = True
      71. End Sub
      73. Private Sub ClearableComboBox_DropDown(sender As Object, e As EventArgs) Handles Me.DropDown
      74. If _DataSource Is Nothing Then Return
      76. RestoreData()
      77. TreatMeAsFilled()
      78. End Sub
      80. Private Sub RestoreData()
      81. DataSource = _DataSource
      82. ValueMember = _ValueMember
      83. DisplayMember = _DisplayMember
      84. If DataBindings.Count = 0 AndAlso _DataBindingToRemember IsNot Nothing Then DataBindings.Add(_DataBindingToRemember)
      85. End Sub
      87. Private Sub TreatMeAsFilled()
      88. IsEmpty = False
      89. End Sub
      91. End Class

      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

      Huhu. Ich habe eine Frage (oder einen Verbesserungsvorschlag?) zu deiner CCB, die ich an mehreren Stellen nutze. Teilweise nutze ich auch die "normale" CB.
      Bei der normal ComboBox kann ich die ​AutoCompleteSource auf ListItems, den ​AutoCompleteMode auf Append und DropDownStyle auf DropDownList stellen.
      Dadurch wird erreicht, dass innerhalb der ComboBox nur Einträge der angestöpselten Liste ausgewählt werden können, es ist aber möglich mit reiner Tastatureingabe einen Eintrag auszuwählen.
      Gibt es also z.B. die 3 Einträge "Coca Cola", "Coalabär", und "CoCoCo", kann ich die CB auswählen und "coa" eingeben, um Coalabär auszuwählen.

      In der CCB ist dies so nicht möglich, da sämtliche Einstellungen (außer None) im ​AutoCompleteMode zum folgendem Fehler führen:
      ​System.NotSupportedException: "Nur der Wert AutoCompleteMode.None kann verwendet werden, wenn für DropDownStyle die Einstellung ComboBoxStyle.DropDownList und für AutoCompleteSource nicht die Einstellung AutoCompleteSource.ListItems gilt."

      Es ist hier also nur möglich, die vorhandenen Einträge nach dem Anfangsbustaben vorzusortieren.

      Das ist tatsächlich (bisher) absichtlich so. Man soll nur aus vorhandenen Einträgen wählen dürfen. Würde man selber eintippen können, könnten auch datenquellenfremde Eingaben gemacht werden. Das Ganze ist ja open source, daher kannst Du da natürlich Anpassungen vornehmen, falls gebraucht.
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

      VaporiZed schrieb:

      Man soll nur aus vorhandenen Einträgen wählen dürfen

      Wenn aber der DropDownStyle auf DropDownList steht, was ja bei der CCB im Designer auf nicht änderbar ist, können ja generell nur vorhandene Einträge ausgewählt werden, auch wenn mit Append und dergleichen gearbeitet wird.

      Jetzt habe ich es verstanden. Eine Zeile im Konstruktor sorgt für das »Problem«: Entferne die Zeile DropDownStyle = ComboBoxStyle.DropDownList, dann kannst Du AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append und AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems setzen.
      Allerdings musst Du dann selbst zu Programmstart oder besser in der FormX.Designer.VB DropDownStyle = ComboBoxStyle.DropDownList setzen. Ansonsten hast Du ein normales ComboBox-Verhalten, was sich dann … irgendwie verhält. Ich sag nur Freitext.
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

      Vielen Dank, genau das habe ich gemeint. Nun kann ich mit der Tastatur einfach in die CCB schreiben (und eben nach mehr suchen, als nur dem Anfangsbuchstaben) und trotzdem nur Werte auswählen, die in der Liste vorhanden sind.

    Facebook
    Telefonspende