From 23ea8ef6863ab713698362f3968c058613195c06 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Fri, 26 Apr 2024 09:17:44 +0200 Subject: [PATCH] MS V 2.4.7.0 Add MessageBoxFunction to onCustomButtonClick --- app/TaskFlow/My Project/AssemblyInfo.vb | 2 +- app/TaskFlow/frmValidator.Designer.vb | 24 ++++++++---------------- app/TaskFlow/frmValidator.resx | 21 ++++++--------------- app/TaskFlow/frmValidator.vb | 9 +++------ 4 files changed, 18 insertions(+), 38 deletions(-) diff --git a/app/TaskFlow/My Project/AssemblyInfo.vb b/app/TaskFlow/My Project/AssemblyInfo.vb index 30c3636..c2d53b7 100644 --- a/app/TaskFlow/My Project/AssemblyInfo.vb +++ b/app/TaskFlow/My Project/AssemblyInfo.vb @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/TaskFlow/frmValidator.Designer.vb b/app/TaskFlow/frmValidator.Designer.vb index 2547be1..e70f5ec 100644 --- a/app/TaskFlow/frmValidator.Designer.vb +++ b/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 diff --git a/app/TaskFlow/frmValidator.resx b/app/TaskFlow/frmValidator.resx index a93ce08..2d222fa 100644 --- a/app/TaskFlow/frmValidator.resx +++ b/app/TaskFlow/frmValidator.resx @@ -978,9 +978,6 @@ Information - - RibbonPageGroup1 - Start @@ -1584,6 +1581,12 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem7 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -1632,18 +1635,6 @@ System.Windows.Forms.FolderBrowserDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - RibbonPageGroup1 - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - BarButtonItem7 - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - frmValidator diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb index ad3f5af..6d9f585 100644 --- a/app/TaskFlow/frmValidator.vb +++ b/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 \ No newline at end of file