From 39c118308d92f6bedf54fad6ff6c460f3391b7f4 Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <developer01@didalog.de>
Date: Fri, 22 Feb 2019 10:31:20 +0100
Subject: [PATCH] MS Navigation

---
 .../UserManager/frmUserManager.Designer.vb           |  4 ++--
 EDMI_ClientSuite/UserManager/frmUserManager.vb       | 12 ++++++++++++
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/EDMI_ClientSuite/UserManager/frmUserManager.Designer.vb b/EDMI_ClientSuite/UserManager/frmUserManager.Designer.vb
index c55228b3..cb812e04 100644
--- a/EDMI_ClientSuite/UserManager/frmUserManager.Designer.vb
+++ b/EDMI_ClientSuite/UserManager/frmUserManager.Designer.vb
@@ -133,9 +133,9 @@ Partial Class frmUserManager
         '
         'UCUserToGroup
         '
-        Me.UCUserToGroup.Location = New System.Drawing.Point(250, 168)
+        Me.UCUserToGroup.Location = New System.Drawing.Point(54, 152)
         Me.UCUserToGroup.Name = "UCUserToGroup"
-        Me.UCUserToGroup.Size = New System.Drawing.Size(567, 300)
+        Me.UCUserToGroup.Size = New System.Drawing.Size(719, 300)
         Me.UCUserToGroup.TabIndex = 0
         Me.UCUserToGroup.TextAssignedToParent = "Zugeordnete Benutzer zu Gruppe:"
         Me.UCUserToGroup.TextNotAssignedToParent = "Nicht zugeordnete Benutzer:"
diff --git a/EDMI_ClientSuite/UserManager/frmUserManager.vb b/EDMI_ClientSuite/UserManager/frmUserManager.vb
index 800238ca..9cdec8e3 100644
--- a/EDMI_ClientSuite/UserManager/frmUserManager.vb
+++ b/EDMI_ClientSuite/UserManager/frmUserManager.vb
@@ -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
\ No newline at end of file