MS Language und Globix

GUIs.ZooFlow/Globix/frmGlobixAdministration.vb

@@ -98,12 +98,15 @@ Public Class frmGlobixAdministration
 
 
             If GlobixDataset.TBDD_DOKUMENTART.Rows.Count > 0 Then
-                GridView1.SelectRow(1)
+                GridViewProfiles.SelectRow(1)
                 'EnableControls(XtraTabPageProfiles)
             End If
             'If Me.DOKART_GUIDTextBox.Text <> "" Then
             'Load_TabData()
             ' End If
+            IDB_FILESTORE_IDComboBox.DataSource = My.Tables.DTIDB_FILESTORE
+            IDB_FILESTORE_IDComboBox.DisplayMember = My.Tables.DTIDB_FILESTORE.Columns("TITLE").ColumnName
+            IDB_FILESTORE_IDComboBox.ValueMember = My.Tables.DTIDB_FILESTORE.Columns("GUID").ColumnName
 
         Catch ex As Exception
             MsgBox("Error in Load_Dokart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
@@ -194,16 +197,16 @@ Public Class frmGlobixAdministration
         Next
     End Sub
 
-    Private Sub Root_Click(sender As Object, e As EventArgs) Handles ControlGroupIndexeMan.Click, ControlGroupIndexeAuto.Click
+    Private Sub Root_Click(sender As Object, e As EventArgs) Handles ControlGroupIndexeMan.MouseDown, ControlGroupIndexeMan.Click, ControlGroupIndexeAuto.Click
         CURRCOntrolGroup = sender
         Select Case CURRCOntrolGroup.Name
 
             Case ControlGroupProfile.Name
-                RibbonPageGroup1.Text = "Profile"
+                RibbonPage1.Text = "Profile"
             Case ControlGroupIndexeMan.Name
-                RibbonPageGroup1.Text = "Manual Values"
+                RibbonPage1.Text = "Manual Values"
             Case ControlGroupIndexeAuto.Name
-                RibbonPageGroup1.Text = "Auto Values"
+                RibbonPage1.Text = "Auto Values"
         End Select
     End Sub
 
@@ -218,4 +221,45 @@ Public Class frmGlobixAdministration
     Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
 
     End Sub
+
+    Private Sub BbtnitmRecordSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbtnitmRecordSave.ItemClick
+        Select Case CURRCOntrolGroup.Name
+
+            Case ControlGroupProfile.Name
+
+            Case ControlGroupIndexeMan.Name
+
+            Case ControlGroupIndexeAuto.Name
+
+        End Select
+    End Sub
+
+    Private Sub ControlGroupProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles ControlGroupProfile.MouseDown, ControlGroupIndexeMan.MouseDown, ControlGroupIndexeAuto.MouseDown
+        CURRCOntrolGroup = sender
+        Select Case CURRCOntrolGroup.Name
+
+            Case ControlGroupProfile.Name
+                RibbonPage1.Text = "Profile"
+            Case ControlGroupIndexeMan.Name
+                RibbonPage1.Text = "Manual Values"
+            Case ControlGroupIndexeAuto.Name
+                RibbonPage1.Text = "Auto Values"
+        End Select
+    End Sub
+
+    Private Sub XtraTabControl1_MouseEnter(sender As Object, e As EventArgs) Handles XtraTabControl1.MouseEnter
+
+    End Sub
+
+    Private Sub XtraTabPageRework_MouseEnter(sender As Object, e As EventArgs) Handles XtraTabPageRework.MouseEnter
+        RibbonPage1.Text = "Manual Values"
+    End Sub
+
+    Private Sub XtraTabPageManIndexe_MouseEnter(sender As Object, e As EventArgs) Handles XtraTabPageManIndexe.MouseEnter
+        RibbonPage1.Text = "Rework"
+    End Sub
+
+    Private Sub XtraTabPageAutoIndexe_MouseEnter(sender As Object, e As EventArgs) Handles XtraTabPageAutoIndexe.MouseEnter
+        RibbonPage1.Text = "Auto Values"
+    End Sub
 End Class