Imports System.Collections.Generic
 
<Serializable()> _
Public Class TvGuideList
    Private m_StartTime As Date
    Private m_EndTime As Date
    Private m_Title As String
    Private m_Channel As String
    Private m_Description As String
 
    Private Shared Schedulerini As clsInit = clsInit.Instance
 
'Properties removed!!
 
 
    'Public Function CompareTo(ByVal obj As Object) As Integer Implements 
    ' System.IComparable.CompareTo
    '    Dim cc As Recording = CType(obj, Recording)
 
    '    Return DateTime.Compare(Me.StartTime, cc.StartTime)
    'End Function
    Public Class Comparer
        Implements IComparer
        Private Shared _sortProperties As _
          System.ComponentModel.PropertyDescriptorCollection
        Private _sortProperty As System.ComponentModel.PropertyDescriptor
        Private _baseProperty As System.ComponentModel.PropertyDescriptor
        Private _sortDescending As Boolean
 
        Public Sub New(ByVal sortFieldName As String, ByVal sortDescending As _
          Boolean)
            If _sortProperties Is Nothing Then
                _sortProperties = _
                  System.ComponentModel.TypeDescriptor.GetProperties(GetType( _
                  TvGuideList))
            End If
            _sortProperty = _sortProperties(sortFieldName)
            _sortDescending = sortDescending
        End Sub
        Public Sub New(ByVal sortFieldName As String, ByVal baseFieldName As _
          String, ByVal sortDescending As Boolean)
            If _sortProperties Is Nothing Then
                _sortProperties = _
                  System.ComponentModel.TypeDescriptor.GetProperties(GetType( _
                  TvGuideList))
            End If
            _sortProperty = _sortProperties(sortFieldName)
            _baseProperty = _sortProperties(baseFieldName)
            _sortDescending = sortDescending
        End Sub
 
        Public Function Compare(ByVal obj1 As Object, ByVal obj2 As Object) As _
          Integer Implements IComparer.Compare
            Dim Wert1 As Object = _sortProperty.GetValue(obj1)
            Dim Wert2 As Object = _sortProperty.GetValue(obj2)
            Dim res As Integer
            If Wert1.GetType.FullName = "System.DateTime" Then
                If _baseProperty.GetValue(obj1) = _baseProperty.GetValue(obj2) _
                  Then
                    res = DateTime.Compare(Wert1, Wert2)
                Else
                    res = 0
                End If
            Else
                Dim Comp1 As IComparable = CType(_sortProperty.GetValue(obj1), _
                  IComparable)
                res = Comp1.CompareTo(Wert2)
            End If
            If _sortDescending Then Return -res
            Return res
 
        End Function
    End Class
End Class