AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

TestGUI: update

Browse Source
This commit is contained in:
Jonathan Jenne
2022-09-14 14:21:11 +02:00
parent e85110996a
commit c24202cdcf
2 changed files with 75 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
GUIs.Test.TestGUI/frmMsgBox.vb
View File

@@ -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