Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
Me.ultraListView1.ItemSelectionStrategyFilter = New SelectionStrategyFilter(Me.ultraListView1)
Public Class SelectionStrategyFilter
Implements ISelectionStrategyFilter
Private listView As UltraListView = Nothing
Public Sub New(ByVal listView As UltraListView)
MyBase.New()
Me.listView = listView
End Sub
Public Overridable Overloads Function GetSelectionStrategy(ByVal selectableItem As Infragistics.Shared.ISelectableItem) As ISelectionStrategy Implements ISelectionStrategyFilter.GetSelectionStrategy
Return New SelectionStrategyContiguous(Me.listView)
End Function
End Class