AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Navigation

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-02-22 10:31:20 +01:00
parent 39ae902929
commit 39c118308d
2 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
EDMI_ClientSuite/UserManager/frmUserManager.vb
View File

@@ -85,4 +85,16 @@ Public Class frmUserManager
Private Sub OfficeNavigationBar1_ItemClick(sender As Object, e As DevExpress.XtraBars.Navigation.NavigationBarItemEventArgs) Handles OfficeNavigationBar1.ItemClick
End Sub
Private Sub OfficeNavigationBar1_SelectedItemChanged(sender As Object, e As DevExpress.XtraBars.Navigation.NavigationBarItemEventArgs) Handles OfficeNavigationBar1.SelectedItemChanged
Select Case OfficeNavigationBar1.SelectedItem.Name
Case "NavigationBarItem1"
UCUserToGroup.Visible = True
UCUserToGroup.Dock = DockStyle.Fill
Case "NavigationBarItem2"
UCUserToGroup.Visible = False
UCUserToGroup.Dock = DockStyle.None
End Select
End Sub
End Class