From c24202cdcfd9b0b16cad2ff3e7366e035fe938a7 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 14 Sep 2022 14:21:11 +0200 Subject: [PATCH] TestGUI: update --- GUIs.Test.TestGUI/frmMsgBox.Designer.vb | 50 +++++++++++++++++++++++-- GUIs.Test.TestGUI/frmMsgBox.vb | 30 ++++++++++++++- 2 files changed, 75 insertions(+), 5 deletions(-) diff --git a/GUIs.Test.TestGUI/frmMsgBox.Designer.vb b/GUIs.Test.TestGUI/frmMsgBox.Designer.vb index be13370d..224076a3 100644 --- a/GUIs.Test.TestGUI/frmMsgBox.Designer.vb +++ b/GUIs.Test.TestGUI/frmMsgBox.Designer.vb @@ -25,6 +25,10 @@ Partial Class frmMsgBox Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton6 = New DevExpress.XtraEditors.SimpleButton() + Me.SimpleButton7 = New DevExpress.XtraEditors.SimpleButton() Me.SuspendLayout() ' 'SimpleButton1 @@ -33,7 +37,7 @@ Partial Class frmMsgBox Me.SimpleButton1.Name = "SimpleButton1" Me.SimpleButton1.Size = New System.Drawing.Size(163, 23) Me.SimpleButton1.TabIndex = 0 - Me.SimpleButton1.Text = "SimpleButton1" + Me.SimpleButton1.Text = "Error Message" ' 'SimpleButton2 ' @@ -41,7 +45,7 @@ Partial Class frmMsgBox Me.SimpleButton2.Name = "SimpleButton2" Me.SimpleButton2.Size = New System.Drawing.Size(163, 23) Me.SimpleButton2.TabIndex = 0 - Me.SimpleButton2.Text = "SimpleButton1" + Me.SimpleButton2.Text = "Warning Message" ' 'SimpleButton3 ' @@ -49,13 +53,49 @@ Partial Class frmMsgBox Me.SimpleButton3.Name = "SimpleButton3" Me.SimpleButton3.Size = New System.Drawing.Size(163, 23) Me.SimpleButton3.TabIndex = 0 - Me.SimpleButton3.Text = "SimpleButton1" + Me.SimpleButton3.Text = "Question Message" + ' + 'SimpleButton4 + ' + Me.SimpleButton4.Location = New System.Drawing.Point(12, 99) + Me.SimpleButton4.Name = "SimpleButton4" + Me.SimpleButton4.Size = New System.Drawing.Size(163, 23) + Me.SimpleButton4.TabIndex = 0 + Me.SimpleButton4.Text = "Info Message" + ' + 'SimpleButton5 + ' + Me.SimpleButton5.Location = New System.Drawing.Point(12, 128) + Me.SimpleButton5.Name = "SimpleButton5" + Me.SimpleButton5.Size = New System.Drawing.Size(163, 23) + Me.SimpleButton5.TabIndex = 0 + Me.SimpleButton5.Text = "Info Message (with cancel)" + ' + 'SimpleButton6 + ' + Me.SimpleButton6.Location = New System.Drawing.Point(12, 157) + Me.SimpleButton6.Name = "SimpleButton6" + Me.SimpleButton6.Size = New System.Drawing.Size(163, 23) + Me.SimpleButton6.TabIndex = 0 + Me.SimpleButton6.Text = "Info Message (with long text 1)" + ' + 'SimpleButton7 + ' + Me.SimpleButton7.Location = New System.Drawing.Point(12, 186) + Me.SimpleButton7.Name = "SimpleButton7" + Me.SimpleButton7.Size = New System.Drawing.Size(163, 23) + Me.SimpleButton7.TabIndex = 0 + Me.SimpleButton7.Text = "Info Message (with long text 1)" ' 'frmMsgBox ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.SimpleButton7) + Me.Controls.Add(Me.SimpleButton6) + Me.Controls.Add(Me.SimpleButton5) + Me.Controls.Add(Me.SimpleButton4) Me.Controls.Add(Me.SimpleButton3) Me.Controls.Add(Me.SimpleButton2) Me.Controls.Add(Me.SimpleButton1) @@ -68,4 +108,8 @@ Partial Class frmMsgBox Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton5 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton6 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SimpleButton7 As DevExpress.XtraEditors.SimpleButton End Class diff --git a/GUIs.Test.TestGUI/frmMsgBox.vb b/GUIs.Test.TestGUI/frmMsgBox.vb index d7fac5f1..d0dc43c6 100644 --- a/GUIs.Test.TestGUI/frmMsgBox.vb +++ b/GUIs.Test.TestGUI/frmMsgBox.vb @@ -20,8 +20,7 @@ Public Class frmMsgBox End Sub Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click - Dim oMsgbox = New frmDialog("Der Fluxkompensator ist leer. Bitte auffüllen!", "File Flow", frmDialog.DialogType.Warning) - oMsgbox.ShowDialog() + FormHelper.ShowWarningMessage("Der Fluxkompensator ist leer. Bitte auffüllen!", "FileFlow") End Sub Private Sub frmMsgBox_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -32,4 +31,31 @@ Public Class frmMsgBox Dim CURRENT_NEWFILENAME = "\\Windream\Objects\DigitalData-IDB\2022\02\01\TestDoctype1\more\even-more\big\empty\folders\haha\Brainpool_Logo-22_02_01.pdf" FormHelper.ShowQuestionMessage($"File sucessfully processed!{vbNewLine}Path:{vbNewLine}{vbNewLine}{vbNewLine}{vbNewLine}{CURRENT_NEWFILENAME}", CURRENT_NEWFILENAME.Count) End Sub + + Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click + FormHelper.ShowInfoMessage("Dies ist eine Durchsage", "Wartezimmer") + End Sub + + Private Sub SimpleButton5_Click(sender As Object, e As EventArgs) Handles SimpleButton5.Click + FormHelper.ShowInfoMessage("Dies ist eine Durchsage", "Wartezimmer") + End Sub + + Private Sub SimpleButton6_Click(sender As Object, e As EventArgs) Handles SimpleButton6.Click + Dim oMessage = "Harry Kim: [commenting on Paris' fighting technique] You punch like a Ferengi. + [the captain of a Federation time-travel ship is arrested] Lieutenant Ducane: I'm arresting you for crimes... + you're going to commit. Captain Janeway: I have a boyfriend that malfunctions. Harry Kim: Holographic Americans are invading deck 7! + Tuvok: You're in love with a computer subroutine? The Doctor: All of us have violent instincts. We have evolved from predators. + Well, not me, of course. I've been programmed by you predators. Klingon Commander: Federation ship Enterprise, surrender + and prepare to be boarded. Capt. Picard: [indignantly, under his breath] That'll be the day! The Doctor: Seven. Please state + the nature of the medical emergency. Seven of Nine: I have a date. Icheb: [looking at his tricorder readings after B'lanna + becomes disoriented] I'm detecting another lifesign. Seven of Nine: [looking around engineering] Where?" + + FormHelper.ShowInfoMessage(oMessage, "Wartezimmer") + End Sub + + Private Sub SimpleButton7_Click(sender As Object, e As EventArgs) Handles SimpleButton7.Click + Dim oMessage = "Harry Kim: [commenting on Paris' fighting technique] You punch like a Ferengi. [the captain of a Federation time-travel ship is arrested] Lieutenant Ducane: I'm arresting you for crimes... you're going to commit. Captain Janeway: I have a boyfriend that malfunctions. Harry Kim: Holographic Americans are invading deck 7! Tuvok: You're in love with a computer subroutine? The Doctor: All of us have violent instincts. We have evolved from predators. Well, not me, of course. I've been programmed by you predators. Klingon Commander: Federation ship Enterprise, surrender and prepare to be boarded. Capt. Picard: [indignantly, under his breath] That'll be the day! The Doctor: Seven. Please state the nature of the medical emergency. Seven of Nine: I have a date. Icheb: [looking at his tricorder readings after B'lanna becomes disoriented] I'm detecting another lifesign. Seven of Nine: [looking around engineering] Where?" + + FormHelper.ShowInfoMessage(oMessage, "Wartezimmer") + End Sub End Class \ No newline at end of file