BindingListFilter - Eine Klasse zum Filtern einer Listen-Datenquelle

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

      BindingListFilter - Eine Klasse zum Filtern einer Listen-Datenquelle

      Hi
      habe letztens für ein kleines Programm eine Klasse geschrieben, die eine IBindingList filtert. Leider ist der Code mehr als 19000 Zeichen lang, daher habe ich ihn als Anhang hochgeladen.
      Die Klasse filtert die im Konstruktor angegebene Liste auf Basis des Typs T und des übergebenen Prädikats, sofern dieses gesetzt ist. Sofern nicht auf den Typ gefiltert werden soll, kann man ihn einfach auf Object setzen. Der Code ist leider nicht dokumentiert, aber das meiste sollte selbsterklärend sein. Sofern Fragen - auch zum Code - bestehen beantworte ich die natürlich gerne. Die Indexermittlung ist unperformant, das hab' ich aber im Code auch noch mal angemerkt.
      Hier noch ein kleines Beispiel, bei dem eine Liste von Strings gefiltert wird. Ich implementiere demnächst noch eine Version, bei der stattdessen der DisplayMember genommen wird:

      VB.NET-Quellcode

      1. Private _filteredList As BindingListFilter(Of String)
      3. Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      4. Dim bf As New BindingList(Of String)() 'die darunterliegende Liste der Strings
      5. _filteredList = New BindingListFilter(Of String)(bf, Function(a) a.Contains(TextBox.Text)) '1. Parameter ist die darunterliegende Liste, 2. ist das Praedikat. Wenn das Praedikat Nothing ist oder weggelassen wird, wird es einfach ignoriert
      6. ListBox.DataSource = _filteredList 'Die Datenquelle der ListBox auf die gefilterte Liste setzen
      7. End Sub
      9. Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox.TextChanged
      10. _filteredList.Update() 'die Liste updaten, da sich das Praedikat geaendert hat
      11. End Sub

      Ich hoffe, ich habe keine Bugs reinprogrammiert und es hilft dem einen oder anderen. Viel Spaß. ;)

      Gruß
      ~blaze~
      Dateien

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

      So, hier das Beispiel entsprechend mit DisplayMember und ValueMember:

      VB.NET-Quellcode

      1. Imports System.ComponentModel
      3. Public NotInheritable Class ValueSelector
      4. Private _converter As TypeConverter
      5. Private _displayMember, _valueMember As PropertyDescriptor
      6. Private _properties As PropertyDescriptorCollection
      8. Public Sub New(ByVal underlyingList As ITypedList) 'Properties fuer die Datenbindung aus der Liste ermitteln (funktioniert mit BindingListFilter)
      9. If underlyingList Is Nothing Then Throw New ArgumentNullException("underlyingList")
      10. _properties = underlyingList.GetItemProperties(Nothing)
      11. End Sub
      13. Public Sub New(ByVal properties As PropertyDescriptorCollection) 'Properties direkt entgegennehmen - zum Beispiel per System.ComponentModel.TypeDescriptor.GetProperties
      14. If properties Is Nothing Then Throw New ArgumentNullException("properties")
      15. _properties = properties
      16. End Sub
      18. Public Property DisplayMember As String 'Die angezeigte Property
      19. Get
      20. Return If(_displayMember IsNot Nothing, _displayMember.Name, String.Empty)
      21. End Get
      22. Set(ByVal value As String)
      23. _displayMember = _properties.Find(value, False)
      24. If _displayMember IsNot Nothing Then
      25. _converter = TypeDescriptor.GetConverter(_displayMember)
      26. If Not _converter.CanConvertTo(GetType(String)) Then _converter = Nothing
      27. Else
      28. _converter = Nothing
      29. End If
      30. End Set
      31. End Property
      33. Public Property ValueMember As String 'Der dargestellte Wert
      34. Get
      35. Return If(_valueMember IsNot Nothing, _valueMember.Name, String.Empty)
      36. End Get
      37. Set(ByVal value As String)
      38. _valueMember = _properties.Find(value, False)
      39. End Set
      40. End Property
      42. Public Function GetDisplayMember(ByVal value As Object) As Object 'Ermittle dargestellten Wert auf Basis von DisplayMember
      43. If _displayMember Is Nothing OrElse Not _displayMember.ComponentType.IsInstanceOfType(value) Then
      44. Return value
      45. Else
      46. Return _displayMember.GetValue(value)
      47. End If
      48. End Function
      50. Public Function GetValue(ByVal value As Object) As Object 'Ermittle Wert auf Basis von ValueMember
      51. If _valueMember Is Nothing OrElse Not _valueMember.ComponentType.IsInstanceOfType(value) Then
      52. Return value
      53. Else
      54. Return _valueMember.GetValue(value)
      55. End If
      56. End Function
      58. Public Function GetDisplayText(ByVal value As Object) As String 'Text zurueckgeben, der angezeigt wird
      59. Dim display As Object = GetDisplayMember(value)
      60. Return If(_converter Is Nothing, If(display Is Nothing, String.Empty, display.ToString()), _converter.ConvertToString(display))
      61. End Function
      62. End Class

      Hier wird eine ListBox _fileList auf Basis einer TextBox _filterTextBox auf Basis der DisplayMember-Eigenschaft von _fileList gefiltert, damit sie nur diejenigen Elemente enthält, die den Text enthalten.

      VB.NET-Quellcode

      1. Private _bindingListFilter As BindingListFilter(Of IO.FileInfo)
      2. Private _valueSelector As ValueSelector
      4. Public Sub New()
      5. InitializeComponent()
      6. Dim bf As New BindingList(Of IO.FileInfo)()
      7. For Each fi As System.IO.FileInfo In New IO.DirectoryInfo(Application.StartupPath).GetFiles() 'Alle bestehenden Files in die Liste
      8. bf.Add(fi)
      9. Next
      10. _bindingListFilter = New BindingListFilter(Of IO.FileInfo)(bf, Function(fi) _valueSelector IsNot Nothing AndAlso _
      11. _valueSelector.GetDisplayText(fi).IndexOf(_filterTextBox.Text, StringComparison.CurrentCultureIgnoreCase) <> -1) 'nach DisplayMember filtern
      12. _valueSelector = New ValueSelector(_bindingListFilter)
      13. _valueSelector.DisplayMember = _fileList.DisplayMember 'DisplayMember an ListBox _fileList anpassen
      14. _bindingListFilter.Update() ' da _valueSelector vorher nicht gesetzt war und sich das Praedikat geaendert hat, muss der Filter geupdatet werden
      15. _fileList.DataSource = _bindingListFilter 'Datenquelle setzen
      16. End Sub
      18. Private Sub _filterTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _filterTextBox.TextChanged
      19. _bindingListFilter.Update() 'Die Filter-Eingabe hat sich geaendert ==> BindingListFilter updaten
      20. End Sub
      22. Private Sub _fileList_DisplayMemberChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles _fileList.DisplayMemberChanged
      23. _valueSelector.DisplayMember = _fileList.DisplayMember 'Der DisplayMember der ListBox hat sich geaendert ==> ValueSelector DisplayMember neu setzen
      24. _bindingListFilter.Update() 'und Liste updaten
      25. End Sub

      Der BindingList-Filter ist übrigens dazu gedacht, sich ändernde Collections zu verarbeiten. In den gezeigten Beispielen verändert sich die darunterliegende BindingList nicht, das wird aber vom Filter automatisch mitbehandelt. So könnte man im obigen Beispiel zum Beispiel eine IBindingList implementieren, die die Dateien und Verzeichnisse in einem Verzeichnis über einen FileSystemWatcher in der Liste synchronisiert. Angezeigt werden dann nur Dateien, die sich im Ordner befinden und zum Beispiel einen bestimmten Text im Dateinamen enthalten.

      Das ganze ist ggf. noch verbesserungswürdig.

      Gruß
      ~blaze~

    Facebook
    Telefonspende