Results 1 to 3 of 3

Thread: [.NET 2.0+] Custom Typed Collections and Data-binding Support

  1. #1

    Thread Starter
    Super Moderator jmcilhinney's Avatar
    Join Date
    May 2005
    Location
    Sydney, Australia
    Posts
    111,221

    [.NET 2.0+] Custom Typed Collections and Data-binding Support

    C# version here.

    If we want to use a standard collection in .NET 2.0 or later we use a generic List. If we want to create our own strongly-typed collection we used to have to inherit CollectionBase. That was a pain because, in the days before generics, we used to have to define all the type-specific members ourselves. We would inherit members like Clear and RemoveAt from CollectionBase because they didn't depend on the type of the items. Members like Item and Add though, whose return type or parameter type(s) depends on the type of the items, were left up to us. Since the introduction of generics, life has become much easier. To create a strongly typed collection with all the standard functionality we simply inherit the generic Collection class and that's it:
    vb.net Code:
    1. Public Class ThingCollection
    2.     Inherits System.Collections.ObjectModel.Collection(Of Thing)
    3. End Class
    All the standard functionality is inherited from the base class so we don't need to add any members of our own. That said, if we want to provide custom functionality then we can add our own members. The generic Collection class provides methods that you can override to process items as they are added and removed from the collection. One common use for those members is custom validation, e.g.
    vb.net Code:
    1. Public Class ThingCollection
    2.     Inherits System.Collections.ObjectModel.Collection(Of Thing)
    3.  
    4.     Protected Overrides Sub InsertItem(ByVal index As Integer, ByVal item As Thing)
    5.         Dim duplicateID As Boolean = False
    6.  
    7.         For Each existingItem As Thing In Me.Items
    8.             If item.ID = existingItem.ID Then
    9.                 duplicateID = True
    10.  
    11.                 Exit For
    12.             End If
    13.         Next
    14.  
    15.         If duplicateID Then
    16.             'Don't add an item with a duplicate ID.
    17.             Throw New ArgumentException("An item with the specified ID already exists")
    18.         Else
    19.             'Allow the item to be added.
    20.             MyBase.InsertItem(index, item)
    21.         End If
    22.     End Sub
    23.  
    24.     Protected Overrides Sub SetItem(ByVal index As Integer, ByVal item As Thing)
    25.         Dim duplicateID As Boolean = False
    26.  
    27.         For existingIndex As Integer = 0 To Me.Count - 1
    28.             'Ignore the existing item at the index being set because it is being replaced.
    29.             If existingIndex <> index AndAlso _
    30.                item.ID = Me.Items(existingIndex).ID Then
    31.                 duplicateID = True
    32.  
    33.                 Exit For
    34.             End If
    35.         Next
    36.  
    37.         If duplicateID Then
    38.             'Don't add an item with a duplicate ID.
    39.             Throw New ArgumentException("An item with the specified ID already exists")
    40.         Else
    41.             'Allow the item to be added.
    42.             MyBase.SetItem(index, item)
    43.         End If
    44.     End Sub
    45.  
    46. End Class
    So, that's nice and easy. Now, with regards to data-binding, you can quite easily bind either a generic List or your own strongly-typed collection to controls in your UI and the data they contain will be displayed. That's because they all implement the IList interface, which is all data-binding requires. The problem is, if you intend to make changes to your collection in code, like adding or removing items or editing properties of the items, then you'll be disappointed if you expect to see those changes reflected in the UI.

    That's because the bound control is not implicitly aware of any changes taking place in the data source. It must be explicitly notified of changes in order to know that it should update its display. In order to provide such notification your data source must implement the IBindingList interface, which neither the generic List nor generic Collection class does. The easy way out of this is to bind your data to a BindingSource and then bind that to the control(s). You can then call ResetCurrentItem, ResetItem or RestBindings on the BindingSource to raise its ListChanged event and thereby notify the bound control to update.

    That's all well and good, but what if the changes to the collection are occurring in code that can't see the BindingSource, like a business logic layer? In that case you need your collection to implement IBindingList itself. You could do that from scratch but you don't actually need to. Instead of deriving your collection directly from the generic Collection class, you can instead inherit the generic BindingList class, which itself inherits Collection and adds an IBindingList implementation. Again, you don't have to add any code of your own if you only want the standard functionality:
    vb.net Code:
    1. Public Class ThingCollection
    2.     Inherits System.ComponentModel.BindingList(Of Thing)
    3. End Class
    Now your collection will raise its ListChanged event automatically whenever you add, insert, set or remove an item or clear the list. Any bound controls will automatically update as a result.

    Now, that's fine for making changes to the list but what about if you make changes to items that are already in the list? Bound controls will not update automatically because the BindingList doesn't raise a ListChanged event automatically because it doesn't inherently know when an item changes. This is where you need to do a little bit of work.

    What needs to happen is that your item class needs to raise an event when a property value changes, e.g.
    vb.net Code:
    1. Public Class Thing
    2.  
    3.     Private _name As String
    4.  
    5.     Public Property Name() As String
    6.         Get
    7.             Return Me._name
    8.         End Get
    9.         Set(ByVal value As String)
    10.             If Me._name <> value Then
    11.                 Me._name = value
    12.                 Me.OnNameChanged(EventArgs.Empty)
    13.             End If
    14.         End Set
    15.     End Property
    16.  
    17.     Public Event NameChanged As EventHandler
    18.  
    19.     Protected Overridable Sub OnNameChanged(ByVal e As EventArgs)
    20.         RaiseEvent NameChanged(Me, e)
    21.     End Sub
    22.  
    23. End Class
    Your typed collection can now handle that event and raise its own ListChanged event to notify any bound controls of the change:
    vb.net Code:
    1. Public Class ThingCollection
    2.     Inherits System.ComponentModel.BindingList(Of Thing)
    3.  
    4.     Private Sub HandleNameChanged(ByVal sender As Object, ByVal e As EventArgs)
    5.         Me.OnListChanged(New ListChangedEventArgs(ListChangedType.ItemChanged, _
    6.                                                   Me.Items.IndexOf(DirectCast(sender,  _
    7.                                                                               Thing))))
    8.     End Sub
    9.  
    10. End Class
    Note that you specify ItemChanged as the change type.

    Now, that method isn't going to handle any events on its own. We need to attach it to the NameChanged event of each item as it gets added to the list. We also need to make sure we detach when an item gets removed from the list. For that we need to override methods inherited from the Collection class, much as we did for the validation earlier:
    vb.net Code:
    1. Public Class ThingCollection
    2.     Inherits System.ComponentModel.BindingList(Of Thing)
    3.  
    4.     Protected Overrides Sub InsertItem(ByVal index As Integer, ByVal item As Thing)
    5.         MyBase.InsertItem(index, item)
    6.  
    7.         'Attach the event handler to the item being added.
    8.         AddHandler item.NameChanged, AddressOf HandleNameChanged
    9.     End Sub
    10.  
    11.     Protected Overrides Sub SetItem(ByVal index As Integer, ByVal item As Thing)
    12.         'Remove the event handler from the item being removed.
    13.         RemoveHandler Me.Items(index).NameChanged, AddressOf HandleNameChanged
    14.  
    15.         MyBase.SetItem(index, item)
    16.  
    17.         'Attach the event handler to the item being added.
    18.         AddHandler item.NameChanged, AddressOf HandleNameChanged
    19.     End Sub
    20.  
    21.     Protected Overrides Sub RemoveItem(ByVal index As Integer)
    22.         'Remove the event handler from the item being removed.
    23.         RemoveHandler Me.Items(index).NameChanged, AddressOf HandleNameChanged
    24.  
    25.         MyBase.RemoveItem(index)
    26.     End Sub
    27.  
    28.     Protected Overrides Sub ClearItems()
    29.         'Remove the event handler from all existing items.
    30.         For Each item As Thing In Me.Items
    31.             RemoveHandler item.NameChanged, AddressOf HandleNameChanged
    32.         Next
    33.  
    34.         MyBase.ClearItems()
    35.     End Sub
    36.  
    37.     Private Sub HandleNameChanged(ByVal sender As Object, ByVal e As EventArgs)
    38.         Me.OnListChanged(New ListChangedEventArgs(ListChangedType.ItemChanged, _
    39.                                                   Me.Items.IndexOf(DirectCast(sender,  _
    40.                                                                               Thing))))
    41.     End Sub
    42.  
    43. End Class
    Another useful feature of the IBindingList interface is simple sorting support, i.e. sorting by a single column/property. By adding such support to your typed collection you enable, for instance, a user to click a column header in a DataGridView bound to your collection and have the data sorted automatically. I'll look at that in the next installment. Stay tuned!
    Last edited by jmcilhinney; Nov 27th, 2008 at 07:19 PM.
    Why is my data not saved to my database? | MSDN Data Walkthroughs
    VBForums Database Development FAQ
    My CodeBank Submissions: VB | C#
    My Blog: Data Among Multiple Forms (3 parts)
    Beginner Tutorials: VB | C# | SQL

  2. #2

    Thread Starter
    Super Moderator jmcilhinney's Avatar
    Join Date
    May 2005
    Location
    Sydney, Australia
    Posts
    111,221

    Sorting Using a Custom BindingList

    I've attached a test project containing the final Person and PersonCollection classes used in this example, but I'll post code snippets along the way to highlight certain points.

    As I mentioned in the previous post, in order to support sorting when bound a collection must implement the IBindingList interface. As I also mentioned, the easiest way to implement the IBindingList interface is to inherit the BindingList class:
    vb.net Code:
    1. Public Class PersonCollection
    2.     Inherits System.ComponentModel.BindingList(Of Person)
    3. End Class
    Now, in order to support sorting in our collection we must do three things:

    1. Override the SupportsSorting property and return True;
    2. Override the ApplySortCore method and implement our sort; and
    3. Override the RemoveSortCore method and remove our sort.
    vb.net Code:
    1. Imports System.ComponentModel
    2.  
    3. Public Class PersonCollection
    4.     Inherits System.ComponentModel.BindingList(Of Person)
    5.  
    6.     Protected Overrides ReadOnly Property SupportsSortingCore() As Boolean
    7.         Get
    8.             Return True
    9.         End Get
    10.     End Property
    11.  
    12.     Protected Overrides Sub ApplySortCore(ByVal prop As PropertyDescriptor, _
    13.                                           ByVal direction As ListSortDirection)
    14.         MyBase.ApplySortCore(prop, direction)
    15.     End Sub
    16.  
    17.     Protected Overrides Sub RemoveSortCore()
    18.         MyBase.RemoveSortCore()
    19.     End Sub
    20.  
    21. End Class
    Next, if we're going to sort the items in our collection, we need some way to compare them. If the item class is under your control then you can make it implement the IComparable interface and then items can be compared directly. That's not much good if we want to sort by different properties at different times though. In that case we need to define a new class that implements the IComparer interface. It does much the same job as IComparable but from outside the objects instead of from inside.

    Data-binding makes heavy use of PropertyDescriptors. As the name suggests, A PropertyDescriptor is an object that describes a property, which is why only properties can be bound and not fields. As such, our IComparer implementation should also be based on PropertyDescriptors:
    vb.net Code:
    1. Private Class PersonComparer
    2.     Implements System.Collections.Generic.IComparer(Of Person)
    3.  
    4.     Private prop As PropertyDescriptor
    5.     Private direction As ListSortDirection
    6.  
    7.     Public Function Compare(ByVal x As Person, _
    8.                             ByVal y As Person) As Integer Implements IComparer(Of Person).Compare
    9.         'Get a value that indicates the relative positions of the values of the specified property.
    10.         Dim result As Integer = DirectCast(Me.prop.GetValue(x), IComparable).CompareTo(Me.prop.GetValue(y))
    11.  
    12.         'If the sort order is descending...
    13.         If Me.direction = ListSortDirection.Descending Then
    14.             '...reverse the relative positions.
    15.             result = -result
    16.         End If
    17.  
    18.         Return result
    19.     End Function
    20.  
    21.     Public Sub New(ByVal prop As PropertyDescriptor, ByVal direction As ListSortDirection)
    22.         Me.prop = prop
    23.         Me.direction = direction
    24.     End Sub
    25.  
    26. End Class
    Note that this class is declared Private because, in the example, I've declared it inside the PersonCollection class. That's the only place it gets used so it makes sense.

    Now, how does this class work? You create an instance by specifying the property you want to compare by, as a PropertyDescriptor, and a sort direction. Obviously the relative positions of the two objects will be reversed if the sort direction is reversed. You can pass any two Person objects to this instance's Compare method and it will provide a value that indicates their relative order.

    Notice that I cast the first property value as type IComparable, which is done to access its CompareTo method in order to compare it to the other property value. This requires that the type of the property actually does implement IComparable. This will always be the case for primitive types like String and Integer, which are always directly comparable, but will not be the case for more complex types. For instance, you wouldn't sort a collection of DataTables by their Rows properties because it doesn't make sense to compare two DataRowCollections and get a relative order.

    Now, when sorting a list of items, such comparisons are performed repeatedly in order to shuffle pairs of items into the correct order until all items are ordered as desired. Our ApplySortCore method must do just that:
    vb.net Code:
    1. Protected Overrides Sub ApplySortCore(ByVal prop As PropertyDescriptor, _
    2.                                       ByVal direction As ListSortDirection)
    3.     Dim upperBound As Integer = Me.Items.Count - 1
    4.     Dim items(upperBound) As Person
    5.  
    6.     Me.Items.CopyTo(items, 0)
    7.  
    8.     Array.Sort(items, _
    9.                New PersonComparer(prop, _
    10.                                   direction))
    11.  
    12.     For index As Integer = 0 To upperBound
    13.         Me.Items(index) = items(index)
    14.     Next
    15.  
    16.     Me.OnListChanged(New ListChangedEventArgs(ListChangedType.Reset, 0))
    17. End Sub
    In this method we create an array containing all our items, sort it using an instance of our IComparer, then replace the existing items with this sorted set. They are the same items but in a different order. There may well be more efficient ways to implement the sort but that will do for this example.

    Note that this ApplySortCore method is what gets invoked when your collection is bound to a DataGridView and the user clicks a column header. This may seem a little strange because the method is declared Protected, so it should not be accessible outside the class. In fact, the ApplySortCore method is NOT accessible outside the class. ApplySortCore is an explicit implementation of the IBindingList.ApplySort method though. That means that you cannot call ApplySortCore on a PersonCollection object, but if you cast it as type IBindingList and call ApplySort then you will invoke that method. This is exactly what happens when your collection is bound.

    This all allows you to sort your collection when bound to your UI. It does make sorting a collection in code somewhat cumbersome though. You'd have to create a PropertyDescriptor, cast the collection as type IBindingList and call ApplySort. To avoid this, I've added a Sort property to the PersonCollection class in the attached project. It works much like the Sort property of the BindingSource and DataView classes, but it only supports one property at a time.

    When you run the attached project you'll see a small PersonCollection bound to a DataGridView. Try clicking the column headers and watch the data get sorted. Now try entering a sort clause in the TextBox and clicking the Sort button. You can specify any of the three property names and, optionally, a direction. If the direction is omitted then ascending is assumed. Note that the property name is case sensitive but the direction is not. Examples of valid clauses are "LastName", "FirstName ASC" and "ID DESC".

    One final point to note. This implementation is not perfect. For instance, if you sort the collection and then add a new item it will not take into account the current sort order. This may be desirable but, in case it's not, I'll look at fixing that in the next installment. Stay tuned!
    Attached Files Attached Files
    Why is my data not saved to my database? | MSDN Data Walkthroughs
    VBForums Database Development FAQ
    My CodeBank Submissions: VB | C#
    My Blog: Data Among Multiple Forms (3 parts)
    Beginner Tutorials: VB | C# | SQL

  3. #3

    Thread Starter
    Super Moderator jmcilhinney's Avatar
    Join Date
    May 2005
    Location
    Sydney, Australia
    Posts
    111,221

    Dynamic Sorting

    For this example I used the project from the previous post as a starting point, modified it and I've attached the new version to this post. This new version addresses the issue I mentioned at the end of the previous post. Now, if you sort the grid, either by clicking a column header or the Sort button, and then you edit the data, the grid will resort itself automatically. How is this achieved? Read on.

    The first step was to make the Person class implement the INotifyPropertyChanged interface:
    vb.net Code:
    1. Imports System.ComponentModel
    2.  
    3. Public Class Person
    4.     Implements System.ComponentModel.INotifyPropertyChanged
    5.  
    6.     Private _id As Integer
    7.     Private _firstName As String
    8.     Private _lastName As String
    9.  
    10.  
    11.     Public Property ID() As Integer
    12.         Get
    13.             Return Me._id
    14.         End Get
    15.         Set(ByVal value As Integer)
    16.             If Me._id <> value Then
    17.                 Me._id = value
    18.                 Me.OnPropertyChanged(New PropertyChangedEventArgs("ID"))
    19.             End If
    20.         End Set
    21.     End Property
    22.  
    23.     Public Property FirstName() As String
    24.         Get
    25.             Return Me._firstName
    26.         End Get
    27.         Set(ByVal value As String)
    28.             If Me._firstName <> value Then
    29.                 Me._firstName = value
    30.                 Me.OnPropertyChanged(New PropertyChangedEventArgs("FirstName"))
    31.             End If
    32.         End Set
    33.     End Property
    34.  
    35.     Public Property LastName() As String
    36.         Get
    37.             Return Me._lastName
    38.         End Get
    39.         Set(ByVal value As String)
    40.             If Me._lastName <> value Then
    41.                 Me._lastName = value
    42.                 Me.OnPropertyChanged(New PropertyChangedEventArgs("LastName"))
    43.             End If
    44.         End Set
    45.     End Property
    46.  
    47.  
    48.     Public Sub New(ByVal id As Integer, _
    49.                    ByVal firstName As String, _
    50.                    ByVal lastName As String)
    51.         Me.ID = id
    52.         Me.FirstName = firstName
    53.         Me.LastName = lastName
    54.     End Sub
    55.  
    56.  
    57.     ''' <summary>
    58.     ''' Occurs when a property value changes.
    59.     ''' </summary>
    60.     Public Event PropertyChanged(ByVal sender As Object, _
    61.                                  ByVal e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
    62.  
    63.  
    64.     ''' <summary>
    65.     ''' Raises the PropertyChanged event.
    66.     ''' </summary>
    67.     Protected Overridable Sub OnPropertyChanged(ByVal e As PropertyChangedEventArgs)
    68.         RaiseEvent PropertyChanged(Me, e)
    69.     End Sub
    70.  
    71. End Class
    Now a Person object will notify any listeners each time one of its property values changes. This has two effects:

    1. If we edit a property value of a Person object in code, that change will be reflected automatically in any bound controls. That's because bound controls listen for the PropertyChanged event of the items they're bound to.

    2. Our collection knows when a property value of an item changes so it can resort itself if necessary.

    The second effect is what we're specifically interested in here. In order to implement this we must first add an event handler to the PersonCollection class to handle the PropertyChanged event of its items:
    vb.net Code:
    1. ''' <summary>
    2. ''' Handles the PropertyChanged event for all items in the collection.
    3. ''' </summary>
    4. ''' <param name="sender">
    5. ''' The item whose property value has changed.
    6. ''' </param>
    7. ''' <param name="e">
    8. ''' Contains the name of the property whose value has changed.
    9. ''' </param>
    10. Private Sub Person_PropertyChanged(ByVal sender As Object, ByVal e As PropertyChangedEventArgs)
    11.     If Me._sortProperty.Name = e.PropertyName Then
    12.         'A value has changed in the property by which the items are sorted so resort the collection.
    13.         Me.ApplySortCore(Me._sortProperty, Me._sortDirection)
    14.     End If
    15. End Sub
    Now, this method is supposed to handle the PropertyChanged event for all the items in the collection and none that aren't. This doesn't happen automatically. We need to attach the event handler as an item is added to the collection and, just as importantly, we need to detach the event handler as an item is removed from the collection:
    vb.net Code:
    1. ''' <summary>
    2. ''' Removes all elements from the collection.
    3. ''' </summary>
    4. Protected Overrides Sub ClearItems()
    5.     'Detach event handlers from all items.
    6.     For Each item As Person In Me.Items
    7.         RemoveHandler item.PropertyChanged, AddressOf Person_PropertyChanged
    8.     Next
    9.  
    10.     MyBase.ClearItems()
    11. End Sub
    12.  
    13. ''' <summary>
    14. ''' Inserts the specified item in the list at the specified index.
    15. ''' </summary>
    16. Protected Overrides Sub InsertItem(ByVal index As Integer, ByVal item As Person)
    17.     MyBase.InsertItem(index, item)
    18.  
    19.     'Attach event handlers to the item being added.
    20.     AddHandler item.PropertyChanged, AddressOf Person_PropertyChanged
    21. End Sub
    22.  
    23. ''' <summary>
    24. ''' Removes the item at the specified index.
    25. ''' </summary>
    26. Protected Overrides Sub RemoveItem(ByVal index As Integer)
    27.     'Detach event handlers from the item being removed.
    28.     RemoveHandler Me.Items(index).PropertyChanged, AddressOf Person_PropertyChanged
    29.  
    30.     MyBase.RemoveItem(index)
    31. End Sub
    32.  
    33. ''' <summary>
    34. ''' Replaces the item at the specified index with the specified item.
    35. ''' </summary>
    36. Protected Overrides Sub SetItem(ByVal index As Integer, ByVal item As Person)
    37.     'Detach event handlers from the item being removed.
    38.     RemoveHandler Me.Items(index).PropertyChanged, AddressOf Person_PropertyChanged
    39.  
    40.     MyBase.SetItem(index, item)
    41.  
    42.     'Attach event handlers to the item being added.
    43.     AddHandler item.PropertyChanged, AddressOf Person_PropertyChanged
    44. End Sub
    That looks after resorting when existing items are edited. We need only extend that slightly to resort the collection when new items are added:
    vb.net Code:
    1. ''' <summary>
    2. ''' Inserts the specified item in the list at the specified index.
    3. ''' </summary>
    4. Protected Overrides Sub InsertItem(ByVal index As Integer, ByVal item As Person)
    5.     MyBase.InsertItem(index, item)
    6.  
    7.     'Attach event handlers to the item being added.
    8.     AddHandler item.PropertyChanged, AddressOf Person_PropertyChanged
    9.  
    10.     If Me._sortProperty IsNot Nothing Then
    11.         'Ensure that the collection maintains the correct sort order.
    12.         Me.ApplySortCore(Me._sortProperty, Me._sortDirection)
    13.     End If
    14. End Sub
    15.  
    16. ''' <summary>
    17. ''' Replaces the item at the specified index with the specified item.
    18. ''' </summary>
    19. Protected Overrides Sub SetItem(ByVal index As Integer, ByVal item As Person)
    20.     'Detach event handlers from the item being removed.
    21.     RemoveHandler Me.Items(index).PropertyChanged, AddressOf Person_PropertyChanged
    22.  
    23.     MyBase.SetItem(index, item)
    24.  
    25.     'Attach event handlers to the item being added.
    26.     AddHandler item.PropertyChanged, AddressOf Person_PropertyChanged
    27.  
    28.     If Me._sortProperty IsNot Nothing Then
    29.         'Ensure that the collection maintains the correct sort order.
    30.         Me.ApplySortCore(Me._sortProperty, Me._sortDirection)
    31.     End If
    32. End Sub
    Now, if the collection is currently sorted, it is resorted each time a new item is added.

    To test this out, try running the attached project and click a column header to sort the grid by that column. Now try editing a cell in that column such that it would make the rows out of order. Note that when you navigate away from that cell the grid resorts to maintain correct order in the sorted column. Now try entering new values in the controls at the bottom of the form and hitting the Add button. Make sure that adding the new item at the bottom of the grid would make the rows out of order. Note that the grid resorts itself such that the new item is placed to maintain correct order in the sorted column.

    Again, I should point out that this code has not been implemented in the most efficient way possible. I've used the easiest way to provide sorting but the best way would require some more work. For instance, when an item is added, at the moment it is added to the end of the collection and the grid will update, then the collection is resorted and the grid will update again. In this example you don't see a difference and there are so few items that everything happens quickly enough that it doesn't matter. With a larger number of items it might become apparent that the grid was refreshing twice. Ideally we would avoid updating the grid twice by ensuring that the new item is inserted at the correct index to begin with. I'll look at optimising this code at a later time. Stay tuned!
    Attached Files Attached Files
    Why is my data not saved to my database? | MSDN Data Walkthroughs
    VBForums Database Development FAQ
    My CodeBank Submissions: VB | C#
    My Blog: Data Among Multiple Forms (3 parts)
    Beginner Tutorials: VB | C# | SQL

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width