First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,43 @@
+' 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