64 lines
2.1 KiB
VB.net
64 lines
2.1 KiB
VB.net
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
|
|
End Class |