TryCatch NavigationPane

2019-02-21 21:52:27 +01:00
parent 72788c84bd
commit 39ae902929
9 changed files with 126 additions and 117 deletions
--- a/EDMI_ClientSuite/UserManager/frmUserManager.Designer.vb
+++ b/EDMI_ClientSuite/UserManager/frmUserManager.Designer.vb
@@ -25,21 +25,19 @@ Partial Class frmUserManager
        Me.BarButtonGroupEdit = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonAssign = New DevExpress.XtraBars.BarButtonItem()
        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonRefresh = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPageCategoryUserManager = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
        Me.RibbonPageUserManager = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
-        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
-        Me.TabPageUserToGroup = New DevExpress.XtraTab.XtraTabPage()
-        Me.UCUserToGroup = New DigitalData.GUIs.ClientSuite.UserControlAssignment()
-        Me.TabPageGroupToGroup = New DevExpress.XtraTab.XtraTabPage()
        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.BarButtonRefresh = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.UCUserToGroup = New DigitalData.GUIs.ClientSuite.UserControlAssignment()
+        Me.OfficeNavigationBar1 = New DevExpress.XtraBars.Navigation.OfficeNavigationBar()
+        Me.NavigationBarItem1 = New DevExpress.XtraBars.Navigation.NavigationBarItem()
+        Me.NavigationBarItem2 = New DevExpress.XtraBars.Navigation.NavigationBarItem()
        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.XtraTabControl1.SuspendLayout()
-        Me.TabPageUserToGroup.SuspendLayout()
+        CType(Me.OfficeNavigationBar1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'RibbonControl
@@ -86,6 +84,14 @@ Partial Class frmUserManager
        Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
        Me.BarButtonItem1.Name = "BarButtonItem1"
        '
+        'BarButtonRefresh
+        '
+        Me.BarButtonRefresh.Caption = "Neu Laden"
+        Me.BarButtonRefresh.Id = 8
+        Me.BarButtonRefresh.ImageOptions.Image = CType(resources.GetObject("BarButtonRefresh.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonRefresh.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonRefresh.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.BarButtonRefresh.Name = "BarButtonRefresh"
+        '
        'RibbonPageCategoryUserManager
        '
        Me.RibbonPageCategoryUserManager.Name = "RibbonPageCategoryUserManager"
@@ -112,6 +118,12 @@ Partial Class frmUserManager
        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
        Me.RibbonPageGroup2.Text = "Zuordnung"
        '
+        'RibbonPageGroup3
+        '
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonRefresh)
+        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
+        Me.RibbonPageGroup3.Text = "Daten"
+        '
        'RibbonStatusBar
        '
        Me.RibbonStatusBar.Location = New System.Drawing.Point(0, 519)
@@ -119,62 +131,44 @@ Partial Class frmUserManager
        Me.RibbonStatusBar.Ribbon = Me.RibbonControl
        Me.RibbonStatusBar.Size = New System.Drawing.Size(1070, 21)
        '
-        'XtraTabControl1
-        '
-        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.XtraTabControl1.HeaderLocation = DevExpress.XtraTab.TabHeaderLocation.Left
-        Me.XtraTabControl1.HeaderOrientation = DevExpress.XtraTab.TabOrientation.Horizontal
-        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 146)
-        Me.XtraTabControl1.Name = "XtraTabControl1"
-        Me.XtraTabControl1.SelectedTabPage = Me.TabPageUserToGroup
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1070, 373)
-        Me.XtraTabControl1.TabIndex = 2
-        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageUserToGroup, Me.TabPageGroupToGroup})
-        '
-        'TabPageUserToGroup
-        '
-        Me.TabPageUserToGroup.Controls.Add(Me.UCUserToGroup)
-        Me.TabPageUserToGroup.Name = "TabPageUserToGroup"
-        Me.TabPageUserToGroup.Size = New System.Drawing.Size(966, 371)
-        Me.TabPageUserToGroup.Text = "User zu Gruppe"
-        '
        'UCUserToGroup
        '
-        Me.UCUserToGroup.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UCUserToGroup.Location = New System.Drawing.Point(0, 0)
+        Me.UCUserToGroup.Location = New System.Drawing.Point(250, 168)
        Me.UCUserToGroup.Name = "UCUserToGroup"
-        Me.UCUserToGroup.Size = New System.Drawing.Size(966, 371)
+        Me.UCUserToGroup.Size = New System.Drawing.Size(567, 300)
        Me.UCUserToGroup.TabIndex = 0
        Me.UCUserToGroup.TextAssignedToParent = "Zugeordnete Benutzer zu Gruppe:"
        Me.UCUserToGroup.TextNotAssignedToParent = "Nicht zugeordnete Benutzer:"
        Me.UCUserToGroup.TextParentList = "Verfügbare Gruppen:"
        '
-        'TabPageGroupToGroup
+        'OfficeNavigationBar1
        '
-        Me.TabPageGroupToGroup.Name = "TabPageGroupToGroup"
-        Me.TabPageGroupToGroup.Size = New System.Drawing.Size(966, 371)
-        Me.TabPageGroupToGroup.Text = "Gruppe zu Gruppe"
+        Me.OfficeNavigationBar1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.OfficeNavigationBar1.Items.AddRange(New DevExpress.XtraBars.Navigation.NavigationBarItem() {Me.NavigationBarItem1, Me.NavigationBarItem2})
+        Me.OfficeNavigationBar1.Location = New System.Drawing.Point(0, 474)
+        Me.OfficeNavigationBar1.Name = "OfficeNavigationBar1"
+        Me.OfficeNavigationBar1.Size = New System.Drawing.Size(1070, 45)
+        Me.OfficeNavigationBar1.TabIndex = 2
+        Me.OfficeNavigationBar1.Text = "OfficeNavigationBar1"
        '
-        'RibbonPageGroup3
+        'NavigationBarItem1
        '
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonRefresh)
-        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
-        Me.RibbonPageGroup3.Text = "Daten"
+        Me.NavigationBarItem1.Name = "NavigationBarItem1"
+        Me.NavigationBarItem1.Text = "Userzuordnung"
        '
-        'BarButtonRefresh
+        'NavigationBarItem2
        '
-        Me.BarButtonRefresh.Caption = "Neu Laden"
-        Me.BarButtonRefresh.Id = 8
-        Me.BarButtonRefresh.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image)
-        Me.BarButtonRefresh.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image)
-        Me.BarButtonRefresh.Name = "BarButtonRefresh"
+        Me.NavigationBarItem2.Name = "NavigationBarItem2"
+        Me.NavigationBarItem2.ShowPeekFormOnItemHover = DevExpress.Utils.DefaultBoolean.[True]
+        Me.NavigationBarItem2.Text = "Gruppenzuordnung"
        '
        'frmUserManager
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1070, 540)
-        Me.Controls.Add(Me.XtraTabControl1)
+        Me.Controls.Add(Me.UCUserToGroup)
+        Me.Controls.Add(Me.OfficeNavigationBar1)
        Me.Controls.Add(Me.RibbonStatusBar)
        Me.Controls.Add(Me.RibbonControl)
        Me.Name = "frmUserManager"
@@ -182,9 +176,7 @@ Partial Class frmUserManager
        Me.StatusBar = Me.RibbonStatusBar
        Me.Text = "User Manager"
        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabControl1.ResumeLayout(False)
-        Me.TabPageUserToGroup.ResumeLayout(False)
+        CType(Me.OfficeNavigationBar1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -197,13 +189,13 @@ Partial Class frmUserManager
    Friend WithEvents BarButtonUserEdit As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents BarButtonGroupEdit As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents RibbonPageCategoryUserManager As DevExpress.XtraBars.Ribbon.RibbonPageCategory
-    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
-    Friend WithEvents TabPageUserToGroup As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents TabPageGroupToGroup As DevExpress.XtraTab.XtraTabPage
    Friend WithEvents UCUserToGroup As UserControlAssignment
    Friend WithEvents BarButtonAssign As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents BarButtonRefresh As DevExpress.XtraBars.BarButtonItem
    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents OfficeNavigationBar1 As DevExpress.XtraBars.Navigation.OfficeNavigationBar
+    Friend WithEvents NavigationBarItem1 As DevExpress.XtraBars.Navigation.NavigationBarItem
+    Friend WithEvents NavigationBarItem2 As DevExpress.XtraBars.Navigation.NavigationBarItem
 End Class