MS V 2.4.7.0 Add MessageBoxFunction to onCustomButtonClick

app/TaskFlow/My Project/AssemblyInfo.vb

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.6.9")>
+<Assembly: AssemblyVersion("2.4.7.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 <Assembly: NeutralResourcesLanguage("")>

app/TaskFlow/frmValidator.Designer.vb

@@ -96,6 +96,7 @@ Partial Class frmValidator
         Me.ToggleSwitchItemLoadonClick = New DevExpress.XtraBars.BarToggleSwitchItem()
         Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem()
         Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -105,8 +106,6 @@ Partial Class frmValidator
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
-        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.BarButtonItem7 = New DevExpress.XtraBars.BarButtonItem()
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
@@ -694,9 +693,15 @@ Partial Class frmValidator
         Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
         Me.BarButtonItem6.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         '
+        'BarButtonItem7
+        '
+        resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7")
+        Me.BarButtonItem7.Id = 33
+        Me.BarButtonItem7.Name = "BarButtonItem7"
+        '
         'RibbonPage1
         '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2, Me.RibbonPageGroup1})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2})
         Me.RibbonPage1.Name = "RibbonPage1"
         resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
         '
@@ -761,18 +766,6 @@ Partial Class frmValidator
         Me.RibbonPage2.Name = "RibbonPage2"
         resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
         '
-        'RibbonPageGroup1
-        '
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem7)
-        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
-        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
-        '
-        'BarButtonItem7
-        '
-        resources.ApplyResources(Me.BarButtonItem7, "BarButtonItem7")
-        Me.BarButtonItem7.Id = 33
-        Me.BarButtonItem7.Name = "BarButtonItem7"
-        '
         'frmValidator
         '
         Me.Appearance.Options.UseFont = True
@@ -895,5 +888,4 @@ Partial Class frmValidator
     Friend WithEvents PanelValidatorControl As DevExpress.XtraEditors.XtraScrollableControl
     Friend WithEvents PanelValidatorControlBorder As DevExpress.XtraEditors.PanelControl
     Friend WithEvents BarButtonItem7 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
 End Class

app/TaskFlow/frmValidator.resx

@@ -978,9 +978,6 @@
   <data name="RibbonPageGroup2.Text" xml:space="preserve">
     <value>Information</value>
   </data>
-  <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>RibbonPageGroup1</value>
-  </data>
   <data name="RibbonPage1.Text" xml:space="preserve">
     <value>Start</value>
   </data>
@@ -1584,6 +1581,12 @@
   <data name="&gt;&gt;BarButtonItem6.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarButtonItem7.Name" xml:space="preserve">
+    <value>BarButtonItem7</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem7.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
     <value>RibbonPage1</value>
   </data>
@@ -1632,18 +1635,6 @@
   <data name="&gt;&gt;FolderBrowserDialog1.Type" xml:space="preserve">
     <value>System.Windows.Forms.FolderBrowserDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
-    <value>RibbonPageGroup1</value>
-  </data>
-  <data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;BarButtonItem7.Name" xml:space="preserve">
-    <value>BarButtonItem7</value>
-  </data>
-  <data name="&gt;&gt;BarButtonItem7.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmValidator</value>
   </data>

app/TaskFlow/frmValidator.vb

@@ -1281,6 +1281,8 @@ Public Class frmValidator
                 If Check_UpdateIndexe() = True Then
                     Finish_WFStep(False)
                 End If
+            Case "MsgboxResult".ToUpper
+                MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
             Case Else
                 MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
                 Logger.Warn($"No configured action provided for onCustomButtonClick [{oAction}]")
@@ -5753,10 +5755,5 @@ Public Class frmValidator
         Return tmpImg
     End Function
 
-    Private Sub BarButtonItem7_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem7.ItemClick
+
-        Dim oControlFontColor = Color.FromName("Black")
-        Dim oControlBackColor = Color.FromName("Red")
-        btnSave.Appearance.ForeColor = oControlFontColor
-        btnSave.Appearance.BackColor = oControlBackColor
-    End Sub
 End Class