TestGUI: update

2022-09-14 14:21:11 +02:00 · 2022-09-14 14:21:11 +02:00 · c24202cdcf
commit c24202cdcf
parent e85110996a
2 changed files with 75 additions and 5 deletions
--- 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
--- 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