ZooFlow: WIP Administration

GUIs.ZooFlow/Administration/frmAdministrationZooFlow.vb

@@ -0,0 +1,71 @@
+Imports DevExpress.XtraBars.Docking2010.Views
+Imports DevExpress.XtraBars.Ribbon
+Imports DevExpress.XtraTab
+Imports DigitalData.Modules.Logging
+
+Public Class frmAdministrationZooFlow
+    Private Const IDB_ATTRIBUTES = "IDB_ATTRIBUTES"
+    Private Const IDB_ENTITIES = "IDB_ENTITIES"
+    Private Const GLOBIX = "GLOBIX"
+    Private Const CLIPBOARD_WATCHER = "CLIPBOARD_WATCHER"
+
+    Private Logger As Logger
+
+    Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Logger = My.LogConfig.GetLogger
+
+
+    End Sub
+
+    Sub DisplayTab(PageToDisplay As XtraTabPage)
+        Try
+            For Each oDocument As XtraTabPage In XtraTabControl.TabPages
+                If oDocument.Name = PageToDisplay.Name Then
+                    oDocument.PageVisible = True
+                Else
+                    oDocument.PageVisible = False
+                End If
+            Next
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Sub
+
+    Sub DisplayRibbonPage(PageToDisplay As RibbonPage)
+        Try
+            For Each oPage As RibbonPage In RibbonControl1.Pages
+                If oPage.Name = PageToDisplay.Name Then
+                    oPage.Visible = True
+                Else
+                    oPage.Visible = False
+                End If
+            Next
+        Catch ex As Exception
+            Logger.Error(ex)
+        End Try
+    End Sub
+
+    Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeList1.FocusedNodeChanged
+        If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
+            Exit Sub
+        End If
+
+        Select Case e.Node.Tag.ToString
+            Case IDB_ATTRIBUTES
+                'DisplayTab(ctrl)
+            Case IDB_ENTITIES
+                'DisplayTab(XtraTabPage_Entities)
+            Case GLOBIX
+                DisplayTab(XtraTabPage_GlobalIndexer)
+                DisplayRibbonPage(RibbonPage_GlobalIndexer)
+            Case CLIPBOARD_WATCHER
+                DisplayTab(XtraTabPage_ClipboardWatcher)
+                DisplayRibbonPage(RibbonPage_ClipboardWatcher)
+        End Select
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+
+    End Sub
+
+End Class