Public Class frmExportContainer

    Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler

    Private Sub frmExportContainer_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub evh_Export_Vorbereiten_Clicked(Type As String, Bezeichnung As String, Keyvalue As String) Handles evh.Export_Vorbereiten_Clicked
        Dim arr(3) As String
        arr(0) = Type
        arr(1) = Bezeichnung
        arr(2) = Keyvalue
        Dim li As New ListViewItem(arr)
        Me.ListView1.Items.Add(li)
    End Sub

    Private Sub frmExportContainer_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
        Me.ListView1.Columns(0).Width = Me.ListView1.Width / 3
        Me.ListView1.Columns(1).Width = Me.ListView1.Width / 3
        Me.ListView1.Columns(2).Width = Me.ListView1.Width / 3

    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Globals.ExcelExport_Form_exists = False
        Me.Close()
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Dim frmf As New frmFortschritt
        frmf.Show()
        frmf.ProgressBar1.Value = 0
        frmf.ProgressBar1.Maximum = Me.ListView1.Items.Count
        Dim ds As New DataSet
        Dim dc As New _DataClass.DataClass
        ds.Tables.Clear()
        Dim i As Integer = 1

        For Each lvi As ListViewItem In Me.ListView1.Items
            frmf.ProgressBar1.Value = frmf.ProgressBar1.Value + 1
            Application.DoEvents()
            Dim dt As New DataTable
            dt = dc.Get_Data_for_ExcelExport(lvi.SubItems(0).Text, lvi.SubItems(2).Text)

            If i = 1 Then
                ds.Tables.Add(dt.Copy)
            Else
                For Each r As DataRow In dt.Rows
                    ds.Tables(0).ImportRow(r)
                Next
            End If
            i = i + 1
        Next

        Dim rpt As New _FRReporting.frmAuswertung("ExcelExport", ds, Globals.clsapplication.sTmp_filepath.Value)

        rpt.MdiParent = Me.MdiParent
        rpt.Show()
        frmf.Close()
        frmf.Dispose()
    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        Me.ListView1.Items.Clear()
    End Sub
End Class