44 lines
2.0 KiB
VB.net
44 lines
2.0 KiB
VB.net
' Developer Express Code Central Example:
|
|
' How to populate a List View with data from a LINQ query
|
|
'
|
|
' See the http://www.devexpress.com/scid=K18107 KB Article for more information.
|
|
'
|
|
' You can find sample updates and versions for different programming languages here:
|
|
' http://www.devexpress.com/example=E859
|
|
|
|
' Developer Express Code Central Example:
|
|
' How to populate the list view with data from a LINQ query
|
|
'
|
|
' See the http://www.devexpress.com/scid=K18107 KB Article for more information.
|
|
'
|
|
' You can find sample updates and versions for different programming languages here:
|
|
' http://www.devexpress.com/example=E859
|
|
|
|
|
|
Imports Microsoft.VisualBasic
|
|
Imports System
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.ExpressApp.SystemModule
|
|
|
|
Namespace Dennis.Linq
|
|
Public Class DisableActionsLinqListViewController
|
|
Inherits ViewController
|
|
Private Const DefaultReason As String = "LinqListViewController is active"
|
|
Protected Overloads Overrides Sub OnActivated()
|
|
MyBase.OnActivated()
|
|
Dim flag As Boolean = Not View.Id.EndsWith(LinqCollectionSource.DefaultSuffix)
|
|
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active(DefaultReason) = flag
|
|
Frame.GetController(Of DeleteObjectsViewController)().Active(DefaultReason) = flag
|
|
Frame.GetController(Of NewObjectViewController)().Active(DefaultReason) = flag
|
|
Frame.GetController(Of FilterController)().Active(DefaultReason) = flag
|
|
End Sub
|
|
Protected Overloads Overrides Sub OnDeactivated()
|
|
MyBase.OnDeactivated()
|
|
Frame.GetController(Of ListViewProcessCurrentObjectController)().Active.RemoveItem(DefaultReason)
|
|
Frame.GetController(Of DeleteObjectsViewController)().Active.RemoveItem(DefaultReason)
|
|
Frame.GetController(Of NewObjectViewController)().Active.RemoveItem(DefaultReason)
|
|
Frame.GetController(Of FilterController)().Active.RemoveItem(DefaultReason)
|
|
End Sub
|
|
End Class
|
|
End Namespace
|