Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging

Public Class frmMsgBox
    Private ReadOnly LogConfig As LogConfig
    Private ReadOnly SQLServer As MSSQLServer
    Public ReadOnly FormHelper As FormHelper

    Public Sub New(LogConfig As LogConfig, SQLServer As MSSQLServer)
        InitializeComponent()

        Me.LogConfig = LogConfig
        Me.SQLServer = SQLServer
        Me.FormHelper = New FormHelper(LogConfig, Me)
    End Sub

    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
        FormHelper.ShowErrorMessage(New ApplicationException("Diese Datei ist hier unerwünscht!"), "Mein Titel")
    End Sub

    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
        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

    End Sub

    Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
        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