MS

GUIs.ZooFlow/frmAdministrationZooFlow.vb

@@ -1,5 +1,33 @@
 Public Class frmAdministrationZooFlow
+    Private _TABIndex As Integer
     Private Sub frmAdministrationZooFlow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
     End Sub
+
+    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
+        Dim selnode As TreeNode = TreeViewMain.SelectedNode
+        If Not IsNothing(selnode) Then
+            Select Case selnode.Text
+                Case "Business Entities"
+                    _TABIndex = 0
+                Case "Attributes"
+                    _TABIndex = 1
+            End Select
+            DisplayTabs()
+        End If
+    End Sub
+    Sub DisplayTabs()
+        Try
+            Dim oindex = 0
+            For Each otab As DevExpress.XtraTab.IXtraTabPage In XtraTabControl1.TabPages
+                XtraTabControl1.TabPages(oindex).PageVisible = False
+                If oindex = _TABIndex Then
+                    XtraTabControl1.TabPages(oindex).PageVisible = True
+                End If
+                oindex += 1
+            Next
+        Catch ex As Exception
+
+        End Try
+    End Sub
 End Class