35 lines
1.1 KiB
VB.net
35 lines
1.1 KiB
VB.net
Public Class frmAdministrationZooFlow
|
|
Private Sub frmAdministrationZooFlow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Sub DisplayTab(PageToDisplay As DevExpress.XtraTab.XtraTabPage)
|
|
Try
|
|
|
|
For Each oPage As DevExpress.XtraTab.XtraTabPage In XtraTabControl1.TabPages
|
|
If oPage.Name = PageToDisplay.Name Then
|
|
oPage.PageVisible = True
|
|
Else
|
|
oPage.PageVisible = False
|
|
End If
|
|
Next
|
|
Catch ex As Exception
|
|
|
|
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(XtraTabPageAttributes)
|
|
Case "IDB_ENTITIES"
|
|
DisplayTab(XtraTabPageEntities)
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
End Class |