AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
EDMI_ClientSuite/UserManager/frmUserManager.Designer.vb generated
View File

@ -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:"

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