33 lines
1.1 KiB
VB.net
33 lines
1.1 KiB
VB.net
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 |